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.codecommit
let apiVersion = "2015-04-13"
let endpointPrefix = "codecommit"
let serviceFullName = "AWS CodeCommit"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "CodeCommit"
let targetPrefix = "CodeCommit_20150413"
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 ReactionValue =
  struct
    type nonrec t = string
    let context_ = "ReactionValue"
    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:"ReactionValue" j
    let to_json = simple_to_json to_value
  end
module Count =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Count" 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 HunkContent =
  struct
    type nonrec t = string
    let context_ = "HunkContent"
    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:"HunkContent" j
    let to_json = simple_to_json to_value
  end
module LineNumber =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for LineNumber" 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 ApprovalRuleTemplateId =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleTemplateId"
    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:"ApprovalRuleTemplateId" j
    let to_json = simple_to_json to_value
  end
module ApprovalRuleTemplateName =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleTemplateName"
    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:"ApprovalRuleTemplateName" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    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:"Arn" j
    let to_json = simple_to_json to_value
  end
module CommitId =
  struct
    type nonrec t = string
    let context_ = "CommitId"
    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:"CommitId" j
    let to_json = simple_to_json to_value
  end
module IsMerged =
  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 MergeOptionTypeEnum =
  struct
    type nonrec t =
      | FAST_FORWARD_MERGE 
      | SQUASH_MERGE 
      | THREE_WAY_MERGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FAST_FORWARD_MERGE -> "FAST_FORWARD_MERGE"
      | SQUASH_MERGE -> "SQUASH_MERGE"
      | THREE_WAY_MERGE -> "THREE_WAY_MERGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "FAST_FORWARD_MERGE" -> FAST_FORWARD_MERGE
      | "SQUASH_MERGE" -> SQUASH_MERGE
      | "THREE_WAY_MERGE" -> THREE_WAY_MERGE
      | 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 MergeOptionTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"MergeOptionTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module ObjectId =
  struct
    type nonrec t = string
    let context_ = "ObjectId"
    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:"ObjectId" j
    let to_json = simple_to_json to_value
  end
module Date =
  struct
    type nonrec t = string
    let context_ = "Date"
    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:"Date" j
    let to_json = simple_to_json to_value
  end
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    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:"Email" j
    let to_json = simple_to_json to_value
  end
module Name =
  struct
    type nonrec t = string
    let context_ = "Name"
    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:"Name" j
    let to_json = simple_to_json to_value
  end
module CallerReactions =
  struct
    type nonrec t = ReactionValue.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:ReactionValue.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:ReactionValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CallerReactions" ~of_json:ReactionValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ClientRequestToken =
  struct
    type nonrec t = string
    let context_ = "ClientRequestToken"
    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:"ClientRequestToken" j
    let to_json = simple_to_json to_value
  end
module CommentId =
  struct
    type nonrec t = string
    let context_ = "CommentId"
    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:"CommentId" j
    let to_json = simple_to_json to_value
  end
module Content =
  struct
    type nonrec t = string
    let context_ = "Content"
    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:"Content" j
    let to_json = simple_to_json to_value
  end
module CreationDate =
  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 IsCommentDeleted =
  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 LastModifiedDate =
  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 ReactionCountsMap =
  struct
    type nonrec t = (ReactionValue.t * Count.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((ReactionValue.of_string chopped),
                              (Count.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (ReactionValue.to_value x) |>
                    (fun x -> (Count.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:ReactionValue.of_string
        ~of_json:Count.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileModeTypeEnum =
  struct
    type nonrec t =
      | EXECUTABLE 
      | NORMAL 
      | SYMLINK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EXECUTABLE -> "EXECUTABLE"
      | NORMAL -> "NORMAL"
      | SYMLINK -> "SYMLINK"
      | Non_static_id s -> s
    let of_string =
      function
      | "EXECUTABLE" -> EXECUTABLE
      | "NORMAL" -> NORMAL
      | "SYMLINK" -> SYMLINK
      | 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 FileModeTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FileModeTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module FileSize =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module CapitalBoolean =
  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 ChangeTypeEnum =
  struct
    type nonrec t =
      | A 
      | M 
      | D 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | A -> "A" | M -> "M" | D -> "D" | Non_static_id s -> s
    let of_string =
      function | "A" -> A | "M" -> M | "D" -> D | 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 ChangeTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module ObjectTypeEnum =
  struct
    type nonrec t =
      | FILE 
      | DIRECTORY 
      | GIT_LINK 
      | SYMBOLIC_LINK 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FILE -> "FILE"
      | DIRECTORY -> "DIRECTORY"
      | GIT_LINK -> "GIT_LINK"
      | SYMBOLIC_LINK -> "SYMBOLIC_LINK"
      | Non_static_id s -> s
    let of_string =
      function
      | "FILE" -> FILE
      | "DIRECTORY" -> DIRECTORY
      | "GIT_LINK" -> GIT_LINK
      | "SYMBOLIC_LINK" -> SYMBOLIC_LINK
      | 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 ObjectTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ObjectTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module IsHunkConflict =
  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 MergeHunkDetail =
  struct
    type nonrec t =
      {
      startLine: LineNumber.t option
        [@ocaml.doc "The start position of the hunk in the merge result."];
      endLine: LineNumber.t option
        [@ocaml.doc "The end position of the hunk in the merge result."];
      hunkContent: HunkContent.t option
        [@ocaml.doc
          "The base-64 encoded content of the hunk merged region that might contain a conflict."]}
    let make ?startLine =
      fun ?endLine ->
        fun ?hunkContent -> fun () -> { startLine; endLine; hunkContent }
    let to_value x =
      structure_to_value
        [("startLine", (Option.map x.startLine ~f:LineNumber.to_value));
        ("endLine", (Option.map x.endLine ~f:LineNumber.to_value));
        ("hunkContent", (Option.map x.hunkContent ~f:HunkContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hunkContent =
        (Option.map ~f:HunkContent.of_xml) (Xml.child xml_arg0 "hunkContent") in
      let endLine =
        (Option.map ~f:LineNumber.of_xml) (Xml.child xml_arg0 "endLine") in
      let startLine =
        (Option.map ~f:LineNumber.of_xml) (Xml.child xml_arg0 "startLine") in
      make ?hunkContent ?endLine ?startLine ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hunkContent = field_map json__ "hunkContent" HunkContent.of_json in
      let endLine = field_map json__ "endLine" LineNumber.of_json in
      let startLine = field_map json__ "startLine" LineNumber.of_json in
      make ?hunkContent ?endLine ?startLine ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the details of a merge hunk that contains a conflict in a merge or pull request operation."]
module ApprovalRuleContent =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3000) >>=
             (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:"ApprovalRuleContent" j
    let to_json = simple_to_json to_value
  end
module ApprovalRuleId =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleId"
    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:"ApprovalRuleId" j
    let to_json = simple_to_json to_value
  end
module ApprovalRuleName =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleName"
    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:"ApprovalRuleName" j
    let to_json = simple_to_json to_value
  end
module OriginApprovalRuleTemplate =
  struct
    type nonrec t =
      {
      approvalRuleTemplateId: ApprovalRuleTemplateId.t option
        [@ocaml.doc "The ID of the template that created the approval rule."];
      approvalRuleTemplateName: ApprovalRuleTemplateName.t option
        [@ocaml.doc
          "The name of the template that created the approval rule."]}
    let make ?approvalRuleTemplateId =
      fun ?approvalRuleTemplateName ->
        fun () -> { approvalRuleTemplateId; approvalRuleTemplateName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateId",
           (Option.map x.approvalRuleTemplateId
              ~f:ApprovalRuleTemplateId.to_value));
        ("approvalRuleTemplateName",
          (Option.map x.approvalRuleTemplateName
             ~f:ApprovalRuleTemplateName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateName =
        (Option.map ~f:ApprovalRuleTemplateName.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateName") in
      let approvalRuleTemplateId =
        (Option.map ~f:ApprovalRuleTemplateId.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateId") in
      make ?approvalRuleTemplateName ?approvalRuleTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateName =
        field_map json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      let approvalRuleTemplateId =
        field_map json__ "approvalRuleTemplateId"
          ApprovalRuleTemplateId.of_json in
      make ?approvalRuleTemplateName ?approvalRuleTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the template that created the approval rule for a pull request."]
module RuleContentSha256 =
  struct
    type nonrec t = string
    let context_ = "RuleContentSha256"
    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:"RuleContentSha256" j
    let to_json = simple_to_json to_value
  end
module MergeMetadata =
  struct
    type nonrec t =
      {
      isMerged: IsMerged.t option
        [@ocaml.doc
          "A Boolean value indicating whether the merge has been made."];
      mergedBy: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user who merged the branches."];
      mergeCommitId: CommitId.t option
        [@ocaml.doc "The commit ID for the merge commit, if any."];
      mergeOption: MergeOptionTypeEnum.t option
        [@ocaml.doc "The merge strategy used in the merge."]}
    let make ?isMerged =
      fun ?mergedBy ->
        fun ?mergeCommitId ->
          fun ?mergeOption ->
            fun () -> { isMerged; mergedBy; mergeCommitId; mergeOption }
    let to_value x =
      structure_to_value
        [("isMerged", (Option.map x.isMerged ~f:IsMerged.to_value));
        ("mergedBy", (Option.map x.mergedBy ~f:Arn.to_value));
        ("mergeCommitId", (Option.map x.mergeCommitId ~f:CommitId.to_value));
        ("mergeOption",
          (Option.map x.mergeOption ~f:MergeOptionTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeOption =
        (Option.map ~f:MergeOptionTypeEnum.of_xml)
          (Xml.child xml_arg0 "mergeOption") in
      let mergeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "mergeCommitId") in
      let mergedBy =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "mergedBy") in
      let isMerged =
        (Option.map ~f:IsMerged.of_xml) (Xml.child xml_arg0 "isMerged") in
      make ?mergeOption ?mergeCommitId ?mergedBy ?isMerged ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeOption =
        field_map json__ "mergeOption" MergeOptionTypeEnum.of_json in
      let mergeCommitId = field_map json__ "mergeCommitId" CommitId.of_json in
      let mergedBy = field_map json__ "mergedBy" Arn.of_json in
      let isMerged = field_map json__ "isMerged" IsMerged.of_json in
      make ?mergeOption ?mergeCommitId ?mergedBy ?isMerged ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a merge or potential merge between a source reference and a destination reference in a pull request."]
module ReferenceName =
  struct
    type nonrec t = string
    let context_ = "ReferenceName"
    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:"ReferenceName" j
    let to_json = simple_to_json to_value
  end
module RepositoryName =
  struct
    type nonrec t = string
    let context_ = "RepositoryName"
    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:"[\\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:"RepositoryName" j
    let to_json = simple_to_json to_value
  end
module BranchName =
  struct
    type nonrec t = string
    let context_ = "BranchName"
    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:"BranchName" j
    let to_json = simple_to_json to_value
  end
module RepositoryTriggerEventEnum =
  struct
    type nonrec t =
      | All 
      | UpdateReference 
      | CreateReference 
      | DeleteReference 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | All -> "all"
      | UpdateReference -> "updateReference"
      | CreateReference -> "createReference"
      | DeleteReference -> "deleteReference"
      | Non_static_id s -> s
    let of_string =
      function
      | "all" -> All
      | "updateReference" -> UpdateReference
      | "createReference" -> CreateReference
      | "deleteReference" -> DeleteReference
      | 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 RepositoryTriggerEventEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RepositoryTriggerEventEnum" j)
    let to_json = simple_to_json to_value
  end
module Path =
  struct
    type nonrec t = string
    let context_ = "Path"
    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:"Path" j
    let to_json = simple_to_json to_value
  end
module FileContent =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module ReplacementTypeEnum =
  struct
    type nonrec t =
      | KEEP_BASE 
      | KEEP_SOURCE 
      | KEEP_DESTINATION 
      | USE_NEW_CONTENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | KEEP_BASE -> "KEEP_BASE"
      | KEEP_SOURCE -> "KEEP_SOURCE"
      | KEEP_DESTINATION -> "KEEP_DESTINATION"
      | USE_NEW_CONTENT -> "USE_NEW_CONTENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "KEEP_BASE" -> KEEP_BASE
      | "KEEP_SOURCE" -> KEEP_SOURCE
      | "KEEP_DESTINATION" -> KEEP_DESTINATION
      | "USE_NEW_CONTENT" -> USE_NEW_CONTENT
      | 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 ReplacementTypeEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ReplacementTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module AdditionalData =
  struct
    type nonrec t = string
    let context_ = "AdditionalData"
    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:"AdditionalData" j
    let to_json = simple_to_json to_value
  end
module Message =
  struct
    type nonrec t = string
    let context_ = "Message"
    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:"Message" j
    let to_json = simple_to_json to_value
  end
module ParentList =
  struct
    type nonrec t = ObjectId.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:ObjectId.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:ObjectId.of_xml)
    let of_json j =
      list_of_json ~kind:"ParentList" ~of_json:ObjectId.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserInfo =
  struct
    type nonrec t =
      {
      name: Name.t option
        [@ocaml.doc "The name of the user who made the specified commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address associated with the user who made the commit, if any."];
      date: Date.t option
        [@ocaml.doc
          "The date when the specified commit was commited, in timestamp format with GMT offset."]}
    let make ?name =
      fun ?email -> fun ?date -> fun () -> { name; email; date }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("date", (Option.map x.date ~f:Date.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let date = (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "date") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      make ?date ?email ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let date = field_map json__ "date" Date.of_json in
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" Name.of_json in
      make ?date ?email ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the user who made a specified commit."]
module RevisionId =
  struct
    type nonrec t = string
    let context_ = "RevisionId"
    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:"RevisionId" j
    let to_json = simple_to_json to_value
  end
module Mode =
  struct
    type nonrec t = string
    let context_ = "Mode"
    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:"Mode" j
    let to_json = simple_to_json to_value
  end
module Comment =
  struct
    type nonrec t =
      {
      commentId: CommentId.t option
        [@ocaml.doc "The system-generated comment ID."];
      content: Content.t option [@ocaml.doc "The content of the comment."];
      inReplyTo: CommentId.t option
        [@ocaml.doc
          "The ID of the comment for which this comment is a reply, if any."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date and time the comment was created, in timestamp format."];
      lastModifiedDate: LastModifiedDate.t option
        [@ocaml.doc
          "The date and time the comment was most recently modified, in timestamp format."];
      authorArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the person who posted the comment."];
      deleted: IsCommentDeleted.t option
        [@ocaml.doc
          "A Boolean value indicating whether the comment has been deleted."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."];
      callerReactions: CallerReactions.t option
        [@ocaml.doc
          "The emoji reactions to a comment, if any, submitted by the user whose credentials are associated with the call to the API."];
      reactionCounts: ReactionCountsMap.t option
        [@ocaml.doc
          "A string to integer map that represents the number of individual users who have responded to a comment with the specified reactions."]}
    let make ?commentId =
      fun ?content ->
        fun ?inReplyTo ->
          fun ?creationDate ->
            fun ?lastModifiedDate ->
              fun ?authorArn ->
                fun ?deleted ->
                  fun ?clientRequestToken ->
                    fun ?callerReactions ->
                      fun ?reactionCounts ->
                        fun () ->
                          {
                            commentId;
                            content;
                            inReplyTo;
                            creationDate;
                            lastModifiedDate;
                            authorArn;
                            deleted;
                            clientRequestToken;
                            callerReactions;
                            reactionCounts
                          }
    let to_value x =
      structure_to_value
        [("commentId", (Option.map x.commentId ~f:CommentId.to_value));
        ("content", (Option.map x.content ~f:Content.to_value));
        ("inReplyTo", (Option.map x.inReplyTo ~f:CommentId.to_value));
        ("creationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:LastModifiedDate.to_value));
        ("authorArn", (Option.map x.authorArn ~f:Arn.to_value));
        ("deleted", (Option.map x.deleted ~f:IsCommentDeleted.to_value));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("callerReactions",
          (Option.map x.callerReactions ~f:CallerReactions.to_value));
        ("reactionCounts",
          (Option.map x.reactionCounts ~f:ReactionCountsMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reactionCounts =
        (Option.map ~f:ReactionCountsMap.of_xml)
          (Xml.child xml_arg0 "reactionCounts") in
      let callerReactions =
        (Option.map ~f:CallerReactions.of_xml)
          (Xml.child xml_arg0 "callerReactions") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let deleted =
        (Option.map ~f:IsCommentDeleted.of_xml)
          (Xml.child xml_arg0 "deleted") in
      let authorArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "authorArn") in
      let lastModifiedDate =
        (Option.map ~f:LastModifiedDate.of_xml)
          (Xml.child xml_arg0 "lastModifiedDate") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "creationDate") in
      let inReplyTo =
        (Option.map ~f:CommentId.of_xml) (Xml.child xml_arg0 "inReplyTo") in
      let content =
        (Option.map ~f:Content.of_xml) (Xml.child xml_arg0 "content") in
      let commentId =
        (Option.map ~f:CommentId.of_xml) (Xml.child xml_arg0 "commentId") in
      make ?reactionCounts ?callerReactions ?clientRequestToken ?deleted
        ?authorArn ?lastModifiedDate ?creationDate ?inReplyTo ?content
        ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reactionCounts =
        field_map json__ "reactionCounts" ReactionCountsMap.of_json in
      let callerReactions =
        field_map json__ "callerReactions" CallerReactions.of_json in
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let deleted = field_map json__ "deleted" IsCommentDeleted.of_json in
      let authorArn = field_map json__ "authorArn" Arn.of_json in
      let lastModifiedDate =
        field_map json__ "lastModifiedDate" LastModifiedDate.of_json in
      let creationDate = field_map json__ "creationDate" CreationDate.of_json in
      let inReplyTo = field_map json__ "inReplyTo" CommentId.of_json in
      let content = field_map json__ "content" Content.of_json in
      let commentId = field_map json__ "commentId" CommentId.of_json in
      make ?reactionCounts ?callerReactions ?clientRequestToken ?deleted
        ?authorArn ?lastModifiedDate ?creationDate ?inReplyTo ?content
        ?commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specific comment."]
module Position =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module RelativeFileVersionEnum =
  struct
    type nonrec t =
      | BEFORE 
      | AFTER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | BEFORE -> "BEFORE" | AFTER -> "AFTER" | Non_static_id s -> s
    let of_string =
      function | "BEFORE" -> BEFORE | "AFTER" -> AFTER | 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 RelativeFileVersionEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"RelativeFileVersionEnum" j)
    let to_json = simple_to_json to_value
  end
module ReactionEmoji =
  struct
    type nonrec t = string
    let context_ = "ReactionEmoji"
    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:"ReactionEmoji" j
    let to_json = simple_to_json to_value
  end
module ReactionShortCode =
  struct
    type nonrec t = string
    let context_ = "ReactionShortCode"
    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:"ReactionShortCode" j
    let to_json = simple_to_json to_value
  end
module ReactionUnicode =
  struct
    type nonrec t = string
    let context_ = "ReactionUnicode"
    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:"ReactionUnicode" j
    let to_json = simple_to_json to_value
  end
module OverrideStatus =
  struct
    type nonrec t =
      | OVERRIDE 
      | REVOKE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OVERRIDE -> "OVERRIDE"
      | REVOKE -> "REVOKE"
      | Non_static_id s -> s
    let of_string =
      function
      | "OVERRIDE" -> OVERRIDE
      | "REVOKE" -> REVOKE
      | 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 OverrideStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OverrideStatus" j)
    let to_json = simple_to_json to_value
  end
module ApprovalState =
  struct
    type nonrec t =
      | APPROVE 
      | REVOKE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPROVE -> "APPROVE"
      | REVOKE -> "REVOKE"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPROVE" -> APPROVE
      | "REVOKE" -> REVOKE
      | 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 ApprovalState" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApprovalState" j)
    let to_json = simple_to_json to_value
  end
module PullRequestStatusEnum =
  struct
    type nonrec t =
      | OPEN 
      | CLOSED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | OPEN -> "OPEN" | CLOSED -> "CLOSED" | Non_static_id s -> s
    let of_string =
      function | "OPEN" -> OPEN | "CLOSED" -> CLOSED | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration PullRequestStatusEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PullRequestStatusEnum" j)
    let to_json = simple_to_json to_value
  end
module IsMove =
  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 FileModes =
  struct
    type nonrec t =
      {
      source: FileModeTypeEnum.t option
        [@ocaml.doc
          "The file mode of a file in the source of a merge or pull request."];
      destination: FileModeTypeEnum.t option
        [@ocaml.doc
          "The file mode of a file in the destination of a merge or pull request."];
      base: FileModeTypeEnum.t option
        [@ocaml.doc
          "The file mode of a file in the base of a merge or pull request."]}
    let make ?source =
      fun ?destination ->
        fun ?base -> fun () -> { source; destination; base }
    let to_value x =
      structure_to_value
        [("source", (Option.map x.source ~f:FileModeTypeEnum.to_value));
        ("destination",
          (Option.map x.destination ~f:FileModeTypeEnum.to_value));
        ("base", (Option.map x.base ~f:FileModeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base =
        (Option.map ~f:FileModeTypeEnum.of_xml) (Xml.child xml_arg0 "base") in
      let destination =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:FileModeTypeEnum.of_xml) (Xml.child xml_arg0 "source") in
      make ?base ?destination ?source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base = field_map json__ "base" FileModeTypeEnum.of_json in
      let destination =
        field_map json__ "destination" FileModeTypeEnum.of_json in
      let source = field_map json__ "source" FileModeTypeEnum.of_json in
      make ?base ?destination ?source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about file modes in a merge or pull request."]
module FileSizes =
  struct
    type nonrec t =
      {
      source: FileSize.t option
        [@ocaml.doc
          "The size of a file in the source of a merge or pull request."];
      destination: FileSize.t option
        [@ocaml.doc
          "The size of a file in the destination of a merge or pull request."];
      base: FileSize.t option
        [@ocaml.doc
          "The size of a file in the base of a merge or pull request."]}
    let make ?source =
      fun ?destination ->
        fun ?base -> fun () -> { source; destination; base }
    let to_value x =
      structure_to_value
        [("source", (Option.map x.source ~f:FileSize.to_value));
        ("destination", (Option.map x.destination ~f:FileSize.to_value));
        ("base", (Option.map x.base ~f:FileSize.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base = (Option.map ~f:FileSize.of_xml) (Xml.child xml_arg0 "base") in
      let destination =
        (Option.map ~f:FileSize.of_xml) (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:FileSize.of_xml) (Xml.child xml_arg0 "source") in
      make ?base ?destination ?source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base = field_map json__ "base" FileSize.of_json in
      let destination = field_map json__ "destination" FileSize.of_json in
      let source = field_map json__ "source" FileSize.of_json in
      make ?base ?destination ?source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the size of files in a merge or pull request."]
module IsBinaryFile =
  struct
    type nonrec t =
      {
      source: CapitalBoolean.t option
        [@ocaml.doc
          "The binary or non-binary status of file in the source of a merge or pull request."];
      destination: CapitalBoolean.t option
        [@ocaml.doc
          "The binary or non-binary status of a file in the destination of a merge or pull request."];
      base: CapitalBoolean.t option
        [@ocaml.doc
          "The binary or non-binary status of a file in the base of a merge or pull request."]}
    let make ?source =
      fun ?destination ->
        fun ?base -> fun () -> { source; destination; base }
    let to_value x =
      structure_to_value
        [("source", (Option.map x.source ~f:CapitalBoolean.to_value));
        ("destination",
          (Option.map x.destination ~f:CapitalBoolean.to_value));
        ("base", (Option.map x.base ~f:CapitalBoolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base =
        (Option.map ~f:CapitalBoolean.of_xml) (Xml.child xml_arg0 "base") in
      let destination =
        (Option.map ~f:CapitalBoolean.of_xml)
          (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:CapitalBoolean.of_xml) (Xml.child xml_arg0 "source") in
      make ?base ?destination ?source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base = field_map json__ "base" CapitalBoolean.of_json in
      let destination = field_map json__ "destination" CapitalBoolean.of_json in
      let source = field_map json__ "source" CapitalBoolean.of_json in
      make ?base ?destination ?source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about whether a file is binary or textual in a merge or pull request operation."]
module IsContentConflict =
  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 IsFileModeConflict =
  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 IsObjectTypeConflict =
  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 MergeOperations =
  struct
    type nonrec t =
      {
      source: ChangeTypeEnum.t option
        [@ocaml.doc
          "The operation (add, modify, or delete) on a file in the source of a merge or pull request."];
      destination: ChangeTypeEnum.t option
        [@ocaml.doc
          "The operation on a file in the destination of a merge or pull request."]}
    let make ?source = fun ?destination -> fun () -> { source; destination }
    let to_value x =
      structure_to_value
        [("source", (Option.map x.source ~f:ChangeTypeEnum.to_value));
        ("destination",
          (Option.map x.destination ~f:ChangeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destination =
        (Option.map ~f:ChangeTypeEnum.of_xml)
          (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:ChangeTypeEnum.of_xml) (Xml.child xml_arg0 "source") in
      make ?destination ?source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destination = field_map json__ "destination" ChangeTypeEnum.of_json in
      let source = field_map json__ "source" ChangeTypeEnum.of_json in
      make ?destination ?source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the file operation conflicts in a merge operation."]
module NumberOfConflicts =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for NumberOfConflicts" 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 ObjectTypes =
  struct
    type nonrec t =
      {
      source: ObjectTypeEnum.t option
        [@ocaml.doc "The type of the object in the source branch."];
      destination: ObjectTypeEnum.t option
        [@ocaml.doc "The type of the object in the destination branch."];
      base: ObjectTypeEnum.t option
        [@ocaml.doc
          "The type of the object in the base commit of the merge."]}
    let make ?source =
      fun ?destination ->
        fun ?base -> fun () -> { source; destination; base }
    let to_value x =
      structure_to_value
        [("source", (Option.map x.source ~f:ObjectTypeEnum.to_value));
        ("destination",
          (Option.map x.destination ~f:ObjectTypeEnum.to_value));
        ("base", (Option.map x.base ~f:ObjectTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base =
        (Option.map ~f:ObjectTypeEnum.of_xml) (Xml.child xml_arg0 "base") in
      let destination =
        (Option.map ~f:ObjectTypeEnum.of_xml)
          (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:ObjectTypeEnum.of_xml) (Xml.child xml_arg0 "source") in
      make ?base ?destination ?source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base = field_map json__ "base" ObjectTypeEnum.of_json in
      let destination = field_map json__ "destination" ObjectTypeEnum.of_json in
      let source = field_map json__ "source" ObjectTypeEnum.of_json in
      make ?base ?destination ?source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the type of an object in a merge operation."]
module MergeHunk =
  struct
    type nonrec t =
      {
      isConflict: IsHunkConflict.t option
        [@ocaml.doc
          "A Boolean value indicating whether a combination of hunks contains a conflict. Conflicts occur when the same file or the same lines in a file were modified in both the source and destination of a merge or pull request. Valid values include true, false, and null. True when the hunk represents a conflict and one or more files contains a line conflict. File mode conflicts in a merge do not set this to true."];
      source: MergeHunkDetail.t option
        [@ocaml.doc
          "Information about the merge hunk in the source of a merge or pull request."];
      destination: MergeHunkDetail.t option
        [@ocaml.doc
          "Information about the merge hunk in the destination of a merge or pull request."];
      base: MergeHunkDetail.t option
        [@ocaml.doc
          "Information about the merge hunk in the base of a merge or pull request."]}
    let make ?isConflict =
      fun ?source ->
        fun ?destination ->
          fun ?base -> fun () -> { isConflict; source; destination; base }
    let to_value x =
      structure_to_value
        [("isConflict", (Option.map x.isConflict ~f:IsHunkConflict.to_value));
        ("source", (Option.map x.source ~f:MergeHunkDetail.to_value));
        ("destination",
          (Option.map x.destination ~f:MergeHunkDetail.to_value));
        ("base", (Option.map x.base ~f:MergeHunkDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let base =
        (Option.map ~f:MergeHunkDetail.of_xml) (Xml.child xml_arg0 "base") in
      let destination =
        (Option.map ~f:MergeHunkDetail.of_xml)
          (Xml.child xml_arg0 "destination") in
      let source =
        (Option.map ~f:MergeHunkDetail.of_xml) (Xml.child xml_arg0 "source") in
      let isConflict =
        (Option.map ~f:IsHunkConflict.of_xml)
          (Xml.child xml_arg0 "isConflict") in
      make ?base ?destination ?source ?isConflict ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let base = field_map json__ "base" MergeHunkDetail.of_json in
      let destination =
        field_map json__ "destination" MergeHunkDetail.of_json in
      let source = field_map json__ "source" MergeHunkDetail.of_json in
      let isConflict = field_map json__ "isConflict" IsHunkConflict.of_json in
      make ?base ?destination ?source ?isConflict ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about merge hunks in a merge or pull request operation."]
module ApprovalRule =
  struct
    type nonrec t =
      {
      approvalRuleId: ApprovalRuleId.t option
        [@ocaml.doc "The system-generated ID of the approval rule."];
      approvalRuleName: ApprovalRuleName.t option
        [@ocaml.doc "The name of the approval rule."];
      approvalRuleContent: ApprovalRuleContent.t option
        [@ocaml.doc "The content of the approval rule."];
      ruleContentSha256: RuleContentSha256.t option
        [@ocaml.doc
          "The SHA-256 hash signature for the content of the approval rule."];
      lastModifiedDate: LastModifiedDate.t option
        [@ocaml.doc
          "The date the approval rule was most recently changed, in timestamp format."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date the approval rule was created, in timestamp format."];
      lastModifiedUser: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user who made the most recent changes to the approval rule."];
      originApprovalRuleTemplate: OriginApprovalRuleTemplate.t option
        [@ocaml.doc "The approval rule template used to create the rule."]}
    let make ?approvalRuleId =
      fun ?approvalRuleName ->
        fun ?approvalRuleContent ->
          fun ?ruleContentSha256 ->
            fun ?lastModifiedDate ->
              fun ?creationDate ->
                fun ?lastModifiedUser ->
                  fun ?originApprovalRuleTemplate ->
                    fun () ->
                      {
                        approvalRuleId;
                        approvalRuleName;
                        approvalRuleContent;
                        ruleContentSha256;
                        lastModifiedDate;
                        creationDate;
                        lastModifiedUser;
                        originApprovalRuleTemplate
                      }
    let to_value x =
      structure_to_value
        [("approvalRuleId",
           (Option.map x.approvalRuleId ~f:ApprovalRuleId.to_value));
        ("approvalRuleName",
          (Option.map x.approvalRuleName ~f:ApprovalRuleName.to_value));
        ("approvalRuleContent",
          (Option.map x.approvalRuleContent ~f:ApprovalRuleContent.to_value));
        ("ruleContentSha256",
          (Option.map x.ruleContentSha256 ~f:RuleContentSha256.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:LastModifiedDate.to_value));
        ("creationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("lastModifiedUser", (Option.map x.lastModifiedUser ~f:Arn.to_value));
        ("originApprovalRuleTemplate",
          (Option.map x.originApprovalRuleTemplate
             ~f:OriginApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originApprovalRuleTemplate =
        (Option.map ~f:OriginApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "originApprovalRuleTemplate") in
      let lastModifiedUser =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "lastModifiedUser") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "creationDate") in
      let lastModifiedDate =
        (Option.map ~f:LastModifiedDate.of_xml)
          (Xml.child xml_arg0 "lastModifiedDate") in
      let ruleContentSha256 =
        (Option.map ~f:RuleContentSha256.of_xml)
          (Xml.child xml_arg0 "ruleContentSha256") in
      let approvalRuleContent =
        (Option.map ~f:ApprovalRuleContent.of_xml)
          (Xml.child xml_arg0 "approvalRuleContent") in
      let approvalRuleName =
        (Option.map ~f:ApprovalRuleName.of_xml)
          (Xml.child xml_arg0 "approvalRuleName") in
      let approvalRuleId =
        (Option.map ~f:ApprovalRuleId.of_xml)
          (Xml.child xml_arg0 "approvalRuleId") in
      make ?originApprovalRuleTemplate ?lastModifiedUser ?creationDate
        ?lastModifiedDate ?ruleContentSha256 ?approvalRuleContent
        ?approvalRuleName ?approvalRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originApprovalRuleTemplate =
        field_map json__ "originApprovalRuleTemplate"
          OriginApprovalRuleTemplate.of_json in
      let lastModifiedUser = field_map json__ "lastModifiedUser" Arn.of_json in
      let creationDate = field_map json__ "creationDate" CreationDate.of_json in
      let lastModifiedDate =
        field_map json__ "lastModifiedDate" LastModifiedDate.of_json in
      let ruleContentSha256 =
        field_map json__ "ruleContentSha256" RuleContentSha256.of_json in
      let approvalRuleContent =
        field_map json__ "approvalRuleContent" ApprovalRuleContent.of_json in
      let approvalRuleName =
        field_map json__ "approvalRuleName" ApprovalRuleName.of_json in
      let approvalRuleId =
        field_map json__ "approvalRuleId" ApprovalRuleId.of_json in
      make ?originApprovalRuleTemplate ?lastModifiedUser ?creationDate
        ?lastModifiedDate ?ruleContentSha256 ?approvalRuleContent
        ?approvalRuleName ?approvalRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an approval rule."]
module PullRequestTarget =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that contains the pull request source and destination branches."];
      sourceReference: ReferenceName.t option
        [@ocaml.doc
          "The branch of the repository that contains the changes for the pull request. Also known as the source branch."];
      destinationReference: ReferenceName.t option
        [@ocaml.doc
          "The branch of the repository where the pull request changes are merged. Also known as the destination branch."];
      destinationCommit: CommitId.t option
        [@ocaml.doc
          "The full commit ID that is the tip of the destination branch. This is the commit where the pull request was or will be merged."];
      sourceCommit: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the tip of the source branch used to create the pull request. If the pull request branch is updated by a push while the pull request is open, the commit ID changes to reflect the new tip of the branch."];
      mergeBase: CommitId.t option
        [@ocaml.doc
          "The commit ID of the most recent commit that the source branch and the destination branch have in common."];
      mergeMetadata: MergeMetadata.t option
        [@ocaml.doc
          "Returns metadata about the state of the merge, including whether the merge has been made."]}
    let make ?repositoryName =
      fun ?sourceReference ->
        fun ?destinationReference ->
          fun ?destinationCommit ->
            fun ?sourceCommit ->
              fun ?mergeBase ->
                fun ?mergeMetadata ->
                  fun () ->
                    {
                      repositoryName;
                      sourceReference;
                      destinationReference;
                      destinationCommit;
                      sourceCommit;
                      mergeBase;
                      mergeMetadata
                    }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("sourceReference",
          (Option.map x.sourceReference ~f:ReferenceName.to_value));
        ("destinationReference",
          (Option.map x.destinationReference ~f:ReferenceName.to_value));
        ("destinationCommit",
          (Option.map x.destinationCommit ~f:CommitId.to_value));
        ("sourceCommit", (Option.map x.sourceCommit ~f:CommitId.to_value));
        ("mergeBase", (Option.map x.mergeBase ~f:CommitId.to_value));
        ("mergeMetadata",
          (Option.map x.mergeMetadata ~f:MergeMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeMetadata =
        (Option.map ~f:MergeMetadata.of_xml)
          (Xml.child xml_arg0 "mergeMetadata") in
      let mergeBase =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "mergeBase") in
      let sourceCommit =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "sourceCommit") in
      let destinationCommit =
        (Option.map ~f:CommitId.of_xml)
          (Xml.child xml_arg0 "destinationCommit") in
      let destinationReference =
        (Option.map ~f:ReferenceName.of_xml)
          (Xml.child xml_arg0 "destinationReference") in
      let sourceReference =
        (Option.map ~f:ReferenceName.of_xml)
          (Xml.child xml_arg0 "sourceReference") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?mergeMetadata ?mergeBase ?sourceCommit ?destinationCommit
        ?destinationReference ?sourceReference ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeMetadata =
        field_map json__ "mergeMetadata" MergeMetadata.of_json in
      let mergeBase = field_map json__ "mergeBase" CommitId.of_json in
      let sourceCommit = field_map json__ "sourceCommit" CommitId.of_json in
      let destinationCommit =
        field_map json__ "destinationCommit" CommitId.of_json in
      let destinationReference =
        field_map json__ "destinationReference" ReferenceName.of_json in
      let sourceReference =
        field_map json__ "sourceReference" ReferenceName.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?mergeMetadata ?mergeBase ?sourceCommit ?destinationCommit
        ?destinationReference ?sourceReference ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a pull request target."]
module RepositoryTriggerExecutionFailureMessage =
  struct
    type nonrec t = string
    let context_ = "RepositoryTriggerExecutionFailureMessage"
    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:"RepositoryTriggerExecutionFailureMessage" j
    let to_json = simple_to_json to_value
  end
module RepositoryTriggerName =
  struct
    type nonrec t = string
    let context_ = "RepositoryTriggerName"
    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:"RepositoryTriggerName" j
    let to_json = simple_to_json to_value
  end
module BranchNameList =
  struct
    type nonrec t = BranchName.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:BranchName.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:BranchName.of_xml)
    let of_json j =
      list_of_json ~kind:"BranchNameList" ~of_json:BranchName.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryTriggerCustomData =
  struct
    type nonrec t = string
    let context_ = "RepositoryTriggerCustomData"
    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:"RepositoryTriggerCustomData" j
    let to_json = simple_to_json to_value
  end
module RepositoryTriggerEventList =
  struct
    type nonrec t = RepositoryTriggerEventEnum.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:RepositoryTriggerEventEnum.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:RepositoryTriggerEventEnum.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryTriggerEventList"
        ~of_json:RepositoryTriggerEventEnum.of_json j
    let to_json v = composed_to_json to_value v
  end
module DeleteFileEntry =
  struct
    type nonrec t =
      {
      filePath: Path.t
        [@ocaml.doc
          "The full path of the file to be deleted, including the name of the file."]}
    let context_ = "DeleteFileEntry"
    let make ~filePath = fun () -> { filePath }
    let to_value x =
      structure_to_value [("filePath", (Some (Path.to_value x.filePath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      make ~filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      make ~filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A file that is deleted as part of a commit."]
module ReplaceContentEntry =
  struct
    type nonrec t =
      {
      filePath: Path.t [@ocaml.doc "The path of the conflicting file."];
      replacementType: ReplacementTypeEnum.t
        [@ocaml.doc
          "The replacement type to use when determining how to resolve the conflict."];
      content: FileContent.t option
        [@ocaml.doc
          "The base-64 encoded content to use when the replacement type is USE_NEW_CONTENT."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc "The file mode to apply during conflict resoltion."]}
    let context_ = "ReplaceContentEntry"
    let make ?content =
      fun ?fileMode ->
        fun ~filePath ->
          fun ~replacementType ->
            fun () -> { content; fileMode; filePath; replacementType }
    let to_value x =
      structure_to_value
        [("filePath", (Some (Path.to_value x.filePath)));
        ("replacementType",
          (Some (ReplacementTypeEnum.to_value x.replacementType)));
        ("content", (Option.map x.content ~f:FileContent.to_value));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let content =
        (Option.map ~f:FileContent.of_xml) (Xml.child xml_arg0 "content") in
      let replacementType =
        ReplacementTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "replacementType") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      make ?fileMode ?content ~replacementType ~filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let content = field_map json__ "content" FileContent.of_json in
      let replacementType =
        field_map_exn json__ "replacementType" ReplacementTypeEnum.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      make ?fileMode ?content ~replacementType ~filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a replacement content entry in the conflict of a merge or pull request operation."]
module SetFileModeEntry =
  struct
    type nonrec t =
      {
      filePath: Path.t
        [@ocaml.doc
          "The full path to the file, including the name of the file."];
      fileMode: FileModeTypeEnum.t [@ocaml.doc "The file mode for the file."]}
    let context_ = "SetFileModeEntry"
    let make ~filePath = fun ~fileMode -> fun () -> { filePath; fileMode }
    let to_value x =
      structure_to_value
        [("filePath", (Some (Path.to_value x.filePath)));
        ("fileMode", (Some (FileModeTypeEnum.to_value x.fileMode)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMode =
        FileModeTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileMode") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      make ~fileMode ~filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMode = field_map_exn json__ "fileMode" FileModeTypeEnum.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      make ~fileMode ~filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about the file mode changes."]
module RepositoryId =
  struct
    type nonrec t = string
    let context_ = "RepositoryId"
    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:"RepositoryId" j
    let to_json = simple_to_json to_value
  end
module Commit =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc "The full SHA ID of the specified commit."];
      treeId: ObjectId.t option
        [@ocaml.doc "Tree information for the specified commit."];
      parents: ParentList.t option
        [@ocaml.doc
          "A list of parent commits for the specified commit. Each parent commit ID is the full commit ID."];
      message: Message.t option
        [@ocaml.doc
          "The commit message associated with the specified commit."];
      author: UserInfo.t option
        [@ocaml.doc
          "Information about the author of the specified commit. Information includes the date in timestamp format with GMT offset, the name of the author, and the email address for the author, as configured in Git."];
      committer: UserInfo.t option
        [@ocaml.doc
          "Information about the person who committed the specified commit, also known as the committer. Information includes the date in timestamp format with GMT offset, the name of the committer, and the email address for the committer, as configured in Git. For more information about the difference between an author and a committer in Git, see Viewing the Commit History in Pro Git by Scott Chacon and Ben Straub."];
      additionalData: AdditionalData.t option
        [@ocaml.doc "Any other data associated with the specified commit."]}
    let make ?commitId =
      fun ?treeId ->
        fun ?parents ->
          fun ?message ->
            fun ?author ->
              fun ?committer ->
                fun ?additionalData ->
                  fun () ->
                    {
                      commitId;
                      treeId;
                      parents;
                      message;
                      author;
                      committer;
                      additionalData
                    }
    let to_value x =
      structure_to_value
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value));
        ("parents", (Option.map x.parents ~f:ParentList.to_value));
        ("message", (Option.map x.message ~f:Message.to_value));
        ("author", (Option.map x.author ~f:UserInfo.to_value));
        ("committer", (Option.map x.committer ~f:UserInfo.to_value));
        ("additionalData",
          (Option.map x.additionalData ~f:AdditionalData.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let additionalData =
        (Option.map ~f:AdditionalData.of_xml)
          (Xml.child xml_arg0 "additionalData") in
      let committer =
        (Option.map ~f:UserInfo.of_xml) (Xml.child xml_arg0 "committer") in
      let author =
        (Option.map ~f:UserInfo.of_xml) (Xml.child xml_arg0 "author") in
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      let parents =
        (Option.map ~f:ParentList.of_xml) (Xml.child xml_arg0 "parents") in
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?additionalData ?committer ?author ?message ?parents ?treeId
        ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let additionalData =
        field_map json__ "additionalData" AdditionalData.of_json in
      let committer = field_map json__ "committer" UserInfo.of_json in
      let author = field_map json__ "author" UserInfo.of_json in
      let message = field_map json__ "message" Message.of_json in
      let parents = field_map json__ "parents" ParentList.of_json in
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?additionalData ?committer ?author ?message ?parents ?treeId
        ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specific commit."]
module RevisionChildren =
  struct
    type nonrec t = RevisionId.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:RevisionId.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:RevisionId.of_xml)
    let of_json j =
      list_of_json ~kind:"RevisionChildren" ~of_json:RevisionId.of_json j
    let to_json v = composed_to_json to_value v
  end
module BlobMetadata =
  struct
    type nonrec t =
      {
      blobId: ObjectId.t option [@ocaml.doc "The full ID of the blob."];
      path: Path.t option
        [@ocaml.doc "The path to the blob and associated file name, if any."];
      mode: Mode.t option
        [@ocaml.doc
          "The file mode permissions of the blob. File mode permission codes include: 100644 indicates read/write 100755 indicates read/write/execute 160000 indicates a submodule 120000 indicates a symlink"]}
    let make ?blobId =
      fun ?path -> fun ?mode -> fun () -> { blobId; path; mode }
    let to_value x =
      structure_to_value
        [("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("path", (Option.map x.path ~f:Path.to_value));
        ("mode", (Option.map x.mode ~f:Mode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mode = (Option.map ~f:Mode.of_xml) (Xml.child xml_arg0 "mode") in
      let path = (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "path") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      make ?mode ?path ?blobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mode = field_map json__ "mode" Mode.of_json in
      let path = field_map json__ "path" Path.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      make ?mode ?path ?blobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specific Git blob object."]
module Comments =
  struct
    type nonrec t = Comment.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:Comment.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:Comment.of_xml)
    let of_json j = list_of_json ~kind:"Comments" ~of_json:Comment.of_json j
    let to_json v = composed_to_json to_value v
  end
module Location =
  struct
    type nonrec t =
      {
      filePath: Path.t option
        [@ocaml.doc
          "The name of the file being compared, including its extension and subdirectory, if any."];
      filePosition: Position.t option
        [@ocaml.doc
          "The position of a change in a compared file, in line number format."];
      relativeFileVersion: RelativeFileVersionEnum.t option
        [@ocaml.doc
          "In a comparison of commits or a pull request, whether the change is in the before or after of that comparison."]}
    let make ?filePath =
      fun ?filePosition ->
        fun ?relativeFileVersion ->
          fun () -> { filePath; filePosition; relativeFileVersion }
    let to_value x =
      structure_to_value
        [("filePath", (Option.map x.filePath ~f:Path.to_value));
        ("filePosition", (Option.map x.filePosition ~f:Position.to_value));
        ("relativeFileVersion",
          (Option.map x.relativeFileVersion
             ~f:RelativeFileVersionEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relativeFileVersion =
        (Option.map ~f:RelativeFileVersionEnum.of_xml)
          (Xml.child xml_arg0 "relativeFileVersion") in
      let filePosition =
        (Option.map ~f:Position.of_xml) (Xml.child xml_arg0 "filePosition") in
      let filePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "filePath") in
      make ?relativeFileVersion ?filePosition ?filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relativeFileVersion =
        field_map json__ "relativeFileVersion"
          RelativeFileVersionEnum.of_json in
      let filePosition = field_map json__ "filePosition" Position.of_json in
      let filePath = field_map json__ "filePath" Path.of_json in
      make ?relativeFileVersion ?filePosition ?filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the location of a change or comment in the comparison between two commits or a pull request."]
module PullRequestId =
  struct
    type nonrec t = string
    let context_ = "PullRequestId"
    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:"PullRequestId" j
    let to_json = simple_to_json to_value
  end
module ReactionUsersList =
  struct
    type nonrec t = Arn.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:Arn.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:Arn.of_xml)
    let of_json j =
      list_of_json ~kind:"ReactionUsersList" ~of_json:Arn.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReactionValueFormats =
  struct
    type nonrec t =
      {
      emoji: ReactionEmoji.t option
        [@ocaml.doc
          "The Emoji Version 1.0 graphic of the reaction. These graphics are interpreted slightly differently on different operating systems."];
      shortCode: ReactionShortCode.t option
        [@ocaml.doc
          "The emoji short code for the reaction. Short codes are interpreted slightly differently on different operating systems."];
      unicode: ReactionUnicode.t option
        [@ocaml.doc "The Unicode codepoint for the reaction."]}
    let make ?emoji =
      fun ?shortCode ->
        fun ?unicode -> fun () -> { emoji; shortCode; unicode }
    let to_value x =
      structure_to_value
        [("emoji", (Option.map x.emoji ~f:ReactionEmoji.to_value));
        ("shortCode", (Option.map x.shortCode ~f:ReactionShortCode.to_value));
        ("unicode", (Option.map x.unicode ~f:ReactionUnicode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let unicode =
        (Option.map ~f:ReactionUnicode.of_xml) (Xml.child xml_arg0 "unicode") in
      let shortCode =
        (Option.map ~f:ReactionShortCode.of_xml)
          (Xml.child xml_arg0 "shortCode") in
      let emoji =
        (Option.map ~f:ReactionEmoji.of_xml) (Xml.child xml_arg0 "emoji") in
      make ?unicode ?shortCode ?emoji ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let unicode = field_map json__ "unicode" ReactionUnicode.of_json in
      let shortCode = field_map json__ "shortCode" ReactionShortCode.of_json in
      let emoji = field_map json__ "emoji" ReactionEmoji.of_json in
      make ?unicode ?shortCode ?emoji ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the values for reactions to a comment. CodeCommit supports a limited set of reactions."]
module ApprovalRuleEventMetadata =
  struct
    type nonrec t =
      {
      approvalRuleName: ApprovalRuleName.t option
        [@ocaml.doc "The name of the approval rule."];
      approvalRuleId: ApprovalRuleId.t option
        [@ocaml.doc "The system-generated ID of the approval rule."];
      approvalRuleContent: ApprovalRuleContent.t option
        [@ocaml.doc "The content of the approval rule."]}
    let make ?approvalRuleName =
      fun ?approvalRuleId ->
        fun ?approvalRuleContent ->
          fun () -> { approvalRuleName; approvalRuleId; approvalRuleContent }
    let to_value x =
      structure_to_value
        [("approvalRuleName",
           (Option.map x.approvalRuleName ~f:ApprovalRuleName.to_value));
        ("approvalRuleId",
          (Option.map x.approvalRuleId ~f:ApprovalRuleId.to_value));
        ("approvalRuleContent",
          (Option.map x.approvalRuleContent ~f:ApprovalRuleContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleContent =
        (Option.map ~f:ApprovalRuleContent.of_xml)
          (Xml.child xml_arg0 "approvalRuleContent") in
      let approvalRuleId =
        (Option.map ~f:ApprovalRuleId.of_xml)
          (Xml.child xml_arg0 "approvalRuleId") in
      let approvalRuleName =
        (Option.map ~f:ApprovalRuleName.of_xml)
          (Xml.child xml_arg0 "approvalRuleName") in
      make ?approvalRuleContent ?approvalRuleId ?approvalRuleName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleContent =
        field_map json__ "approvalRuleContent" ApprovalRuleContent.of_json in
      let approvalRuleId =
        field_map json__ "approvalRuleId" ApprovalRuleId.of_json in
      let approvalRuleName =
        field_map json__ "approvalRuleName" ApprovalRuleName.of_json in
      make ?approvalRuleContent ?approvalRuleId ?approvalRuleName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an event for an approval rule."]
module ApprovalRuleOverriddenEventMetadata =
  struct
    type nonrec t =
      {
      revisionId: RevisionId.t option
        [@ocaml.doc
          "The revision ID of the pull request when the override event occurred."];
      overrideStatus: OverrideStatus.t option
        [@ocaml.doc "The status of the override event."]}
    let make ?revisionId =
      fun ?overrideStatus -> fun () -> { revisionId; overrideStatus }
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value));
        ("overrideStatus",
          (Option.map x.overrideStatus ~f:OverrideStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrideStatus =
        (Option.map ~f:OverrideStatus.of_xml)
          (Xml.child xml_arg0 "overrideStatus") in
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?overrideStatus ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrideStatus =
        field_map json__ "overrideStatus" OverrideStatus.of_json in
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      make ?overrideStatus ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about an override event for approval rules for a pull request."]
module ApprovalStateChangedEventMetadata =
  struct
    type nonrec t =
      {
      revisionId: RevisionId.t option
        [@ocaml.doc
          "The revision ID of the pull request when the approval state changed."];
      approvalStatus: ApprovalState.t option
        [@ocaml.doc "The approval status for the pull request."]}
    let make ?revisionId =
      fun ?approvalStatus -> fun () -> { revisionId; approvalStatus }
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value));
        ("approvalStatus",
          (Option.map x.approvalStatus ~f:ApprovalState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalStatus =
        (Option.map ~f:ApprovalState.of_xml)
          (Xml.child xml_arg0 "approvalStatus") in
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?approvalStatus ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalStatus =
        field_map json__ "approvalStatus" ApprovalState.of_json in
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      make ?approvalStatus ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a change in the approval state for a pull request."]
module EventDate =
  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 PullRequestCreatedEventMetadata =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      sourceCommitId: CommitId.t option
        [@ocaml.doc
          "The commit ID on the source branch used when the pull request was created."];
      destinationCommitId: CommitId.t option
        [@ocaml.doc
          "The commit ID of the tip of the branch specified as the destination branch when the pull request was created."];
      mergeBase: CommitId.t option
        [@ocaml.doc
          "The commit ID of the most recent commit that the source branch and the destination branch have in common."]}
    let make ?repositoryName =
      fun ?sourceCommitId ->
        fun ?destinationCommitId ->
          fun ?mergeBase ->
            fun () ->
              {
                repositoryName;
                sourceCommitId;
                destinationCommitId;
                mergeBase
              }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:CommitId.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:CommitId.to_value));
        ("mergeBase", (Option.map x.mergeBase ~f:CommitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeBase =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "mergeBase") in
      let destinationCommitId =
        (Option.map ~f:CommitId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let sourceCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?mergeBase ?destinationCommitId ?sourceCommitId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeBase = field_map json__ "mergeBase" CommitId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" CommitId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?mergeBase ?destinationCommitId ?sourceCommitId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Metadata about the pull request that is used when comparing the pull request source with its destination."]
module PullRequestEventType =
  struct
    type nonrec t =
      | PULL_REQUEST_CREATED 
      | PULL_REQUEST_STATUS_CHANGED 
      | PULL_REQUEST_SOURCE_REFERENCE_UPDATED 
      | PULL_REQUEST_MERGE_STATE_CHANGED 
      | PULL_REQUEST_APPROVAL_RULE_CREATED 
      | PULL_REQUEST_APPROVAL_RULE_UPDATED 
      | PULL_REQUEST_APPROVAL_RULE_DELETED 
      | PULL_REQUEST_APPROVAL_RULE_OVERRIDDEN 
      | PULL_REQUEST_APPROVAL_STATE_CHANGED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PULL_REQUEST_CREATED -> "PULL_REQUEST_CREATED"
      | PULL_REQUEST_STATUS_CHANGED -> "PULL_REQUEST_STATUS_CHANGED"
      | PULL_REQUEST_SOURCE_REFERENCE_UPDATED ->
          "PULL_REQUEST_SOURCE_REFERENCE_UPDATED"
      | PULL_REQUEST_MERGE_STATE_CHANGED ->
          "PULL_REQUEST_MERGE_STATE_CHANGED"
      | PULL_REQUEST_APPROVAL_RULE_CREATED ->
          "PULL_REQUEST_APPROVAL_RULE_CREATED"
      | PULL_REQUEST_APPROVAL_RULE_UPDATED ->
          "PULL_REQUEST_APPROVAL_RULE_UPDATED"
      | PULL_REQUEST_APPROVAL_RULE_DELETED ->
          "PULL_REQUEST_APPROVAL_RULE_DELETED"
      | PULL_REQUEST_APPROVAL_RULE_OVERRIDDEN ->
          "PULL_REQUEST_APPROVAL_RULE_OVERRIDDEN"
      | PULL_REQUEST_APPROVAL_STATE_CHANGED ->
          "PULL_REQUEST_APPROVAL_STATE_CHANGED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PULL_REQUEST_CREATED" -> PULL_REQUEST_CREATED
      | "PULL_REQUEST_STATUS_CHANGED" -> PULL_REQUEST_STATUS_CHANGED
      | "PULL_REQUEST_SOURCE_REFERENCE_UPDATED" ->
          PULL_REQUEST_SOURCE_REFERENCE_UPDATED
      | "PULL_REQUEST_MERGE_STATE_CHANGED" ->
          PULL_REQUEST_MERGE_STATE_CHANGED
      | "PULL_REQUEST_APPROVAL_RULE_CREATED" ->
          PULL_REQUEST_APPROVAL_RULE_CREATED
      | "PULL_REQUEST_APPROVAL_RULE_UPDATED" ->
          PULL_REQUEST_APPROVAL_RULE_UPDATED
      | "PULL_REQUEST_APPROVAL_RULE_DELETED" ->
          PULL_REQUEST_APPROVAL_RULE_DELETED
      | "PULL_REQUEST_APPROVAL_RULE_OVERRIDDEN" ->
          PULL_REQUEST_APPROVAL_RULE_OVERRIDDEN
      | "PULL_REQUEST_APPROVAL_STATE_CHANGED" ->
          PULL_REQUEST_APPROVAL_STATE_CHANGED
      | 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 PullRequestEventType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PullRequestEventType" j)
    let to_json = simple_to_json to_value
  end
module PullRequestMergedStateChangedEventMetadata =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      destinationReference: ReferenceName.t option
        [@ocaml.doc
          "The name of the branch that the pull request is merged into."];
      mergeMetadata: MergeMetadata.t option
        [@ocaml.doc "Information about the merge state change event."]}
    let make ?repositoryName =
      fun ?destinationReference ->
        fun ?mergeMetadata ->
          fun () -> { repositoryName; destinationReference; mergeMetadata }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("destinationReference",
          (Option.map x.destinationReference ~f:ReferenceName.to_value));
        ("mergeMetadata",
          (Option.map x.mergeMetadata ~f:MergeMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeMetadata =
        (Option.map ~f:MergeMetadata.of_xml)
          (Xml.child xml_arg0 "mergeMetadata") in
      let destinationReference =
        (Option.map ~f:ReferenceName.of_xml)
          (Xml.child xml_arg0 "destinationReference") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?mergeMetadata ?destinationReference ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeMetadata =
        field_map json__ "mergeMetadata" MergeMetadata.of_json in
      let destinationReference =
        field_map json__ "destinationReference" ReferenceName.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?mergeMetadata ?destinationReference ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the change in the merge state for a pull request event."]
module PullRequestSourceReferenceUpdatedEventMetadata =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where the pull request was updated."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was updated."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the source branch that was the tip of the branch at the time the pull request was updated."];
      mergeBase: CommitId.t option
        [@ocaml.doc
          "The commit ID of the most recent commit that the source branch and the destination branch have in common."]}
    let make ?repositoryName =
      fun ?beforeCommitId ->
        fun ?afterCommitId ->
          fun ?mergeBase ->
            fun () ->
              { repositoryName; beforeCommitId; afterCommitId; mergeBase }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("mergeBase", (Option.map x.mergeBase ~f:CommitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeBase =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "mergeBase") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?mergeBase ?afterCommitId ?beforeCommitId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeBase = field_map json__ "mergeBase" CommitId.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?mergeBase ?afterCommitId ?beforeCommitId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about an update to the source branch of a pull request."]
module PullRequestStatusChangedEventMetadata =
  struct
    type nonrec t =
      {
      pullRequestStatus: PullRequestStatusEnum.t option
        [@ocaml.doc "The changed status of the pull request."]}
    let make ?pullRequestStatus = fun () -> { pullRequestStatus }
    let to_value x =
      structure_to_value
        [("pullRequestStatus",
           (Option.map x.pullRequestStatus ~f:PullRequestStatusEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequestStatus =
        (Option.map ~f:PullRequestStatusEnum.of_xml)
          (Xml.child xml_arg0 "pullRequestStatus") in
      make ?pullRequestStatus ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequestStatus =
        field_map json__ "pullRequestStatus" PullRequestStatusEnum.of_json in
      make ?pullRequestStatus ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a change to the status of a pull request."]
module SourceFileSpecifier =
  struct
    type nonrec t =
      {
      filePath: Path.t
        [@ocaml.doc
          "The full path to the file, including the name of the file."];
      isMove: IsMove.t option
        [@ocaml.doc
          "Whether to remove the source file from the parent commit."]}
    let context_ = "SourceFileSpecifier"
    let make ?isMove = fun ~filePath -> fun () -> { isMove; filePath }
    let to_value x =
      structure_to_value
        [("filePath", (Some (Path.to_value x.filePath)));
        ("isMove", (Option.map x.isMove ~f:IsMove.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isMove =
        (Option.map ~f:IsMove.of_xml) (Xml.child xml_arg0 "isMove") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      make ?isMove ~filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isMove = field_map json__ "isMove" IsMove.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      make ?isMove ~filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a source file that is part of changes made in a commit."]
module BatchGetRepositoriesErrorCodeEnum =
  struct
    type nonrec t =
      | EncryptionIntegrityChecksFailedException 
      | EncryptionKeyAccessDeniedException 
      | EncryptionKeyDisabledException 
      | EncryptionKeyNotFoundException 
      | EncryptionKeyUnavailableException 
      | RepositoryDoesNotExistException 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | EncryptionIntegrityChecksFailedException ->
          "EncryptionIntegrityChecksFailedException"
      | EncryptionKeyAccessDeniedException ->
          "EncryptionKeyAccessDeniedException"
      | EncryptionKeyDisabledException -> "EncryptionKeyDisabledException"
      | EncryptionKeyNotFoundException -> "EncryptionKeyNotFoundException"
      | EncryptionKeyUnavailableException ->
          "EncryptionKeyUnavailableException"
      | RepositoryDoesNotExistException -> "RepositoryDoesNotExistException"
      | Non_static_id s -> s
    let of_string =
      function
      | "EncryptionIntegrityChecksFailedException" ->
          EncryptionIntegrityChecksFailedException
      | "EncryptionKeyAccessDeniedException" ->
          EncryptionKeyAccessDeniedException
      | "EncryptionKeyDisabledException" -> EncryptionKeyDisabledException
      | "EncryptionKeyNotFoundException" -> EncryptionKeyNotFoundException
      | "EncryptionKeyUnavailableException" ->
          EncryptionKeyUnavailableException
      | "RepositoryDoesNotExistException" -> RepositoryDoesNotExistException
      | 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 BatchGetRepositoriesErrorCodeEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"BatchGetRepositoriesErrorCodeEnum" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    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:"AccountId" j
    let to_json = simple_to_json to_value
  end
module CloneUrlHttp =
  struct
    type nonrec t = string
    let context_ = "CloneUrlHttp"
    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:"CloneUrlHttp" j
    let to_json = simple_to_json to_value
  end
module CloneUrlSsh =
  struct
    type nonrec t = string
    let context_ = "CloneUrlSsh"
    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:"CloneUrlSsh" j
    let to_json = simple_to_json to_value
  end
module KmsKeyId =
  struct
    type nonrec t = string
    let context_ = "KmsKeyId"
    let make i =
      let open Result in
        ok_or_failwith (check_pattern i ~pattern:"^[a-zA-Z0-9:/_-]+$"); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"KmsKeyId" j
    let to_json = simple_to_json to_value
  end
module RepositoryDescription =
  struct
    type nonrec t = string
    let context_ = "RepositoryDescription"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RepositoryDescription" j
    let to_json = simple_to_json to_value
  end
module ErrorCode =
  struct
    type nonrec t = string
    let context_ = "ErrorCode"
    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:"ErrorCode" j
    let to_json = simple_to_json to_value
  end
module ExceptionName =
  struct
    type nonrec t = string
    let context_ = "ExceptionName"
    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:"ExceptionName" j
    let to_json = simple_to_json to_value
  end
module ConflictMetadata =
  struct
    type nonrec t =
      {
      filePath: Path.t option
        [@ocaml.doc "The path of the file that contains conflicts."];
      fileSizes: FileSizes.t option
        [@ocaml.doc
          "The file sizes of the file in the source, destination, and base of the merge."];
      fileModes: FileModes.t option
        [@ocaml.doc
          "The file modes of the file in the source, destination, and base of the merge."];
      objectTypes: ObjectTypes.t option
        [@ocaml.doc
          "Information about any object type conflicts in a merge operation."];
      numberOfConflicts: NumberOfConflicts.t option
        [@ocaml.doc
          "The number of conflicts, including both hunk conflicts and metadata conflicts."];
      isBinaryFile: IsBinaryFile.t option
        [@ocaml.doc
          "A boolean value (true or false) indicating whether the file is binary or textual in the source, destination, and base of the merge."];
      contentConflict: IsContentConflict.t option
        [@ocaml.doc
          "A boolean value indicating whether there are conflicts in the content of a file."];
      fileModeConflict: IsFileModeConflict.t option
        [@ocaml.doc
          "A boolean value indicating whether there are conflicts in the file mode of a file."];
      objectTypeConflict: IsObjectTypeConflict.t option
        [@ocaml.doc
          "A boolean value (true or false) indicating whether there are conflicts between the branches in the object type of a file, folder, or submodule."];
      mergeOperations: MergeOperations.t option
        [@ocaml.doc
          "Whether an add, modify, or delete operation caused the conflict between the source and destination of the merge."]}
    let make ?filePath =
      fun ?fileSizes ->
        fun ?fileModes ->
          fun ?objectTypes ->
            fun ?numberOfConflicts ->
              fun ?isBinaryFile ->
                fun ?contentConflict ->
                  fun ?fileModeConflict ->
                    fun ?objectTypeConflict ->
                      fun ?mergeOperations ->
                        fun () ->
                          {
                            filePath;
                            fileSizes;
                            fileModes;
                            objectTypes;
                            numberOfConflicts;
                            isBinaryFile;
                            contentConflict;
                            fileModeConflict;
                            objectTypeConflict;
                            mergeOperations
                          }
    let to_value x =
      structure_to_value
        [("filePath", (Option.map x.filePath ~f:Path.to_value));
        ("fileSizes", (Option.map x.fileSizes ~f:FileSizes.to_value));
        ("fileModes", (Option.map x.fileModes ~f:FileModes.to_value));
        ("objectTypes", (Option.map x.objectTypes ~f:ObjectTypes.to_value));
        ("numberOfConflicts",
          (Option.map x.numberOfConflicts ~f:NumberOfConflicts.to_value));
        ("isBinaryFile",
          (Option.map x.isBinaryFile ~f:IsBinaryFile.to_value));
        ("contentConflict",
          (Option.map x.contentConflict ~f:IsContentConflict.to_value));
        ("fileModeConflict",
          (Option.map x.fileModeConflict ~f:IsFileModeConflict.to_value));
        ("objectTypeConflict",
          (Option.map x.objectTypeConflict ~f:IsObjectTypeConflict.to_value));
        ("mergeOperations",
          (Option.map x.mergeOperations ~f:MergeOperations.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeOperations =
        (Option.map ~f:MergeOperations.of_xml)
          (Xml.child xml_arg0 "mergeOperations") in
      let objectTypeConflict =
        (Option.map ~f:IsObjectTypeConflict.of_xml)
          (Xml.child xml_arg0 "objectTypeConflict") in
      let fileModeConflict =
        (Option.map ~f:IsFileModeConflict.of_xml)
          (Xml.child xml_arg0 "fileModeConflict") in
      let contentConflict =
        (Option.map ~f:IsContentConflict.of_xml)
          (Xml.child xml_arg0 "contentConflict") in
      let isBinaryFile =
        (Option.map ~f:IsBinaryFile.of_xml)
          (Xml.child xml_arg0 "isBinaryFile") in
      let numberOfConflicts =
        (Option.map ~f:NumberOfConflicts.of_xml)
          (Xml.child xml_arg0 "numberOfConflicts") in
      let objectTypes =
        (Option.map ~f:ObjectTypes.of_xml) (Xml.child xml_arg0 "objectTypes") in
      let fileModes =
        (Option.map ~f:FileModes.of_xml) (Xml.child xml_arg0 "fileModes") in
      let fileSizes =
        (Option.map ~f:FileSizes.of_xml) (Xml.child xml_arg0 "fileSizes") in
      let filePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "filePath") in
      make ?mergeOperations ?objectTypeConflict ?fileModeConflict
        ?contentConflict ?isBinaryFile ?numberOfConflicts ?objectTypes
        ?fileModes ?fileSizes ?filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeOperations =
        field_map json__ "mergeOperations" MergeOperations.of_json in
      let objectTypeConflict =
        field_map json__ "objectTypeConflict" IsObjectTypeConflict.of_json in
      let fileModeConflict =
        field_map json__ "fileModeConflict" IsFileModeConflict.of_json in
      let contentConflict =
        field_map json__ "contentConflict" IsContentConflict.of_json in
      let isBinaryFile = field_map json__ "isBinaryFile" IsBinaryFile.of_json in
      let numberOfConflicts =
        field_map json__ "numberOfConflicts" NumberOfConflicts.of_json in
      let objectTypes = field_map json__ "objectTypes" ObjectTypes.of_json in
      let fileModes = field_map json__ "fileModes" FileModes.of_json in
      let fileSizes = field_map json__ "fileSizes" FileSizes.of_json in
      let filePath = field_map json__ "filePath" Path.of_json in
      make ?mergeOperations ?objectTypeConflict ?fileModeConflict
        ?contentConflict ?isBinaryFile ?numberOfConflicts ?objectTypes
        ?fileModes ?fileSizes ?filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the metadata for a conflict in a merge operation."]
module MergeHunks =
  struct
    type nonrec t = MergeHunk.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:MergeHunk.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:MergeHunk.of_xml)
    let of_json j =
      list_of_json ~kind:"MergeHunks" ~of_json:MergeHunk.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApprovalRulesList =
  struct
    type nonrec t = ApprovalRule.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:ApprovalRule.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:ApprovalRule.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalRulesList" ~of_json:ApprovalRule.of_json j
    let to_json v = composed_to_json to_value v
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:10240); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module PullRequestTargetList =
  struct
    type nonrec t = PullRequestTarget.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:PullRequestTarget.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:PullRequestTarget.of_xml)
    let of_json j =
      list_of_json ~kind:"PullRequestTargetList"
        ~of_json:PullRequestTarget.of_json j
    let to_json v = composed_to_json to_value v
  end
module Title =
  struct
    type nonrec t = string
    let context_ = "Title"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:150); 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:"Title" j
    let to_json = simple_to_json to_value
  end
module ApprovalRuleTemplateContent =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleTemplateContent"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:3000) >>=
             (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:"ApprovalRuleTemplateContent" j
    let to_json = simple_to_json to_value
  end
module ApprovalRuleTemplateDescription =
  struct
    type nonrec t = string
    let context_ = "ApprovalRuleTemplateDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (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:"ApprovalRuleTemplateDescription" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module RepositoryTriggerExecutionFailure =
  struct
    type nonrec t =
      {
      trigger: RepositoryTriggerName.t option
        [@ocaml.doc "The name of the trigger that did not run."];
      failureMessage: RepositoryTriggerExecutionFailureMessage.t option
        [@ocaml.doc
          "Message information about the trigger that did not run."]}
    let make ?trigger =
      fun ?failureMessage -> fun () -> { trigger; failureMessage }
    let to_value x =
      structure_to_value
        [("trigger",
           (Option.map x.trigger ~f:RepositoryTriggerName.to_value));
        ("failureMessage",
          (Option.map x.failureMessage
             ~f:RepositoryTriggerExecutionFailureMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:RepositoryTriggerExecutionFailureMessage.of_xml)
          (Xml.child xml_arg0 "failureMessage") in
      let trigger =
        (Option.map ~f:RepositoryTriggerName.of_xml)
          (Xml.child xml_arg0 "trigger") in
      make ?failureMessage ?trigger ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage =
        field_map json__ "failureMessage"
          RepositoryTriggerExecutionFailureMessage.of_json in
      let trigger = field_map json__ "trigger" RepositoryTriggerName.of_json in
      make ?failureMessage ?trigger ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A trigger failed to run."]
module RepositoryTrigger =
  struct
    type nonrec t =
      {
      name: RepositoryTriggerName.t [@ocaml.doc "The name of the trigger."];
      destinationArn: Arn.t
        [@ocaml.doc
          "The ARN of the resource that is the target for a trigger (for example, the ARN of a topic in Amazon SNS)."];
      customData: RepositoryTriggerCustomData.t option
        [@ocaml.doc
          "Any custom data associated with the trigger to be included in the information sent to the target of the trigger."];
      branches: BranchNameList.t option
        [@ocaml.doc
          "The branches to be included in the trigger configuration. If you specify an empty array, the trigger applies to all branches. Although no content is required in the array, you must include the array itself."];
      events: RepositoryTriggerEventList.t
        [@ocaml.doc
          "The repository events that cause the trigger to run actions in another service, such as sending a notification through Amazon SNS. The valid value \"all\" cannot be used with any other values."]}
    let context_ = "RepositoryTrigger"
    let make ?customData =
      fun ?branches ->
        fun ~name ->
          fun ~destinationArn ->
            fun ~events ->
              fun () ->
                { customData; branches; name; destinationArn; events }
    let to_value x =
      structure_to_value
        [("name", (Some (RepositoryTriggerName.to_value x.name)));
        ("destinationArn", (Some (Arn.to_value x.destinationArn)));
        ("customData",
          (Option.map x.customData ~f:RepositoryTriggerCustomData.to_value));
        ("branches", (Option.map x.branches ~f:BranchNameList.to_value));
        ("events", (Some (RepositoryTriggerEventList.to_value x.events)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        RepositoryTriggerEventList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "events") in
      let branches =
        (Option.map ~f:BranchNameList.of_xml) (Xml.child xml_arg0 "branches") in
      let customData =
        (Option.map ~f:RepositoryTriggerCustomData.of_xml)
          (Xml.child xml_arg0 "customData") in
      let destinationArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationArn") in
      let name =
        RepositoryTriggerName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~events ?branches ?customData ~destinationArn ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events =
        field_map_exn json__ "events" RepositoryTriggerEventList.of_json in
      let branches = field_map json__ "branches" BranchNameList.of_json in
      let customData =
        field_map json__ "customData" RepositoryTriggerCustomData.of_json in
      let destinationArn = field_map_exn json__ "destinationArn" Arn.of_json in
      let name = field_map_exn json__ "name" RepositoryTriggerName.of_json in
      make ~events ?branches ?customData ~destinationArn ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a trigger for a repository. If you want to receive notifications about repository events, consider using notifications instead of triggers. For more information, see Configuring notifications for repository events."]
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module DeleteFileEntries =
  struct
    type nonrec t = DeleteFileEntry.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:DeleteFileEntry.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:DeleteFileEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteFileEntries" ~of_json:DeleteFileEntry.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ReplaceContentEntries =
  struct
    type nonrec t = ReplaceContentEntry.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:ReplaceContentEntry.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:ReplaceContentEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"ReplaceContentEntries"
        ~of_json:ReplaceContentEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module SetFileModeEntries =
  struct
    type nonrec t = SetFileModeEntry.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:SetFileModeEntry.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:SetFileModeEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"SetFileModeEntries"
        ~of_json:SetFileModeEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryNameIdPair =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc "The name associated with the repository."];
      repositoryId: RepositoryId.t option
        [@ocaml.doc "The ID associated with the repository."]}
    let make ?repositoryName =
      fun ?repositoryId -> fun () -> { repositoryName; repositoryId }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("repositoryId",
          (Option.map x.repositoryId ~f:RepositoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryId =
        (Option.map ~f:RepositoryId.of_xml)
          (Xml.child xml_arg0 "repositoryId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?repositoryId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryId = field_map json__ "repositoryId" RepositoryId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?repositoryId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a repository name and ID."]
module FileVersion =
  struct
    type nonrec t =
      {
      commit: Commit.t option ;
      blobId: ObjectId.t option
        [@ocaml.doc
          "The blob ID of the object that represents the content of the file in this version."];
      path: Path.t option
        [@ocaml.doc
          "The name and path of the file at which this blob is indexed which contains the data for this version of the file. This value will vary between file versions if a file is renamed or if its path changes."];
      revisionChildren: RevisionChildren.t option
        [@ocaml.doc
          "An array of commit IDs that contain more recent versions of this file. If there are no additional versions of the file, this array will be empty."]}
    let make ?commit =
      fun ?blobId ->
        fun ?path ->
          fun ?revisionChildren ->
            fun () -> { commit; blobId; path; revisionChildren }
    let to_value x =
      structure_to_value
        [("commit", (Option.map x.commit ~f:Commit.to_value));
        ("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("path", (Option.map x.path ~f:Path.to_value));
        ("revisionChildren",
          (Option.map x.revisionChildren ~f:RevisionChildren.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionChildren =
        (Option.map ~f:RevisionChildren.of_xml)
          (Xml.child xml_arg0 "revisionChildren") in
      let path = (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "path") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      let commit =
        (Option.map ~f:Commit.of_xml) (Xml.child xml_arg0 "commit") in
      make ?revisionChildren ?path ?blobId ?commit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionChildren =
        field_map json__ "revisionChildren" RevisionChildren.of_json in
      let path = field_map json__ "path" Path.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      let commit = field_map json__ "commit" Commit.of_json in
      make ?revisionChildren ?path ?blobId ?commit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a version of a file."]
module Approval =
  struct
    type nonrec t =
      {
      userArn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the user."];
      approvalState: ApprovalState.t option
        [@ocaml.doc
          "The state of the approval, APPROVE or REVOKE. REVOKE states are not stored."]}
    let make ?userArn =
      fun ?approvalState -> fun () -> { userArn; approvalState }
    let to_value x =
      structure_to_value
        [("userArn", (Option.map x.userArn ~f:Arn.to_value));
        ("approvalState",
          (Option.map x.approvalState ~f:ApprovalState.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalState =
        (Option.map ~f:ApprovalState.of_xml)
          (Xml.child xml_arg0 "approvalState") in
      let userArn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "userArn") in
      make ?approvalState ?userArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalState =
        field_map json__ "approvalState" ApprovalState.of_json in
      let userArn = field_map json__ "userArn" Arn.of_json in
      make ?approvalState ?userArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific approval on a pull request."]
module File =
  struct
    type nonrec t =
      {
      blobId: ObjectId.t option
        [@ocaml.doc "The blob ID that contains the file information."];
      absolutePath: Path.t option
        [@ocaml.doc
          "The fully qualified path to the file in the repository."];
      relativePath: Path.t option
        [@ocaml.doc
          "The relative path of the file from the folder where the query originated."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The extrapolated file mode permissions for the file. Valid values include EXECUTABLE and NORMAL."]}
    let make ?blobId =
      fun ?absolutePath ->
        fun ?relativePath ->
          fun ?fileMode ->
            fun () -> { blobId; absolutePath; relativePath; fileMode }
    let to_value x =
      structure_to_value
        [("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("absolutePath", (Option.map x.absolutePath ~f:Path.to_value));
        ("relativePath", (Option.map x.relativePath ~f:Path.to_value));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let relativePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "relativePath") in
      let absolutePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "absolutePath") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      make ?fileMode ?relativePath ?absolutePath ?blobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let relativePath = field_map json__ "relativePath" Path.of_json in
      let absolutePath = field_map json__ "absolutePath" Path.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      make ?fileMode ?relativePath ?absolutePath ?blobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a file in a repository."]
module Folder =
  struct
    type nonrec t =
      {
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains the folder."];
      absolutePath: Path.t option
        [@ocaml.doc
          "The fully qualified path of the folder in the repository."];
      relativePath: Path.t option
        [@ocaml.doc
          "The relative path of the specified folder from the folder where the query originated."]}
    let make ?treeId =
      fun ?absolutePath ->
        fun ?relativePath -> fun () -> { treeId; absolutePath; relativePath }
    let to_value x =
      structure_to_value
        [("treeId", (Option.map x.treeId ~f:ObjectId.to_value));
        ("absolutePath", (Option.map x.absolutePath ~f:Path.to_value));
        ("relativePath", (Option.map x.relativePath ~f:Path.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relativePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "relativePath") in
      let absolutePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "absolutePath") in
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      make ?relativePath ?absolutePath ?treeId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relativePath = field_map json__ "relativePath" Path.of_json in
      let absolutePath = field_map json__ "absolutePath" Path.of_json in
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      make ?relativePath ?absolutePath ?treeId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a folder in a repository."]
module SubModule =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID that contains the reference to the submodule."];
      absolutePath: Path.t option
        [@ocaml.doc
          "The fully qualified path to the folder that contains the reference to the submodule."];
      relativePath: Path.t option
        [@ocaml.doc
          "The relative path of the submodule from the folder where the query originated."]}
    let make ?commitId =
      fun ?absolutePath ->
        fun ?relativePath ->
          fun () -> { commitId; absolutePath; relativePath }
    let to_value x =
      structure_to_value
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("absolutePath", (Option.map x.absolutePath ~f:Path.to_value));
        ("relativePath", (Option.map x.relativePath ~f:Path.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let relativePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "relativePath") in
      let absolutePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "absolutePath") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?relativePath ?absolutePath ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let relativePath = field_map json__ "relativePath" Path.of_json in
      let absolutePath = field_map json__ "absolutePath" Path.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?relativePath ?absolutePath ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a submodule reference in a repository folder."]
module SymbolicLink =
  struct
    type nonrec t =
      {
      blobId: ObjectId.t option
        [@ocaml.doc
          "The blob ID that contains the information about the symbolic link."];
      absolutePath: Path.t option
        [@ocaml.doc
          "The fully qualified path to the folder that contains the symbolic link."];
      relativePath: Path.t option
        [@ocaml.doc
          "The relative path of the symbolic link from the folder where the query originated."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The file mode permissions of the blob that cotains information about the symbolic link."]}
    let make ?blobId =
      fun ?absolutePath ->
        fun ?relativePath ->
          fun ?fileMode ->
            fun () -> { blobId; absolutePath; relativePath; fileMode }
    let to_value x =
      structure_to_value
        [("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("absolutePath", (Option.map x.absolutePath ~f:Path.to_value));
        ("relativePath", (Option.map x.relativePath ~f:Path.to_value));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let relativePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "relativePath") in
      let absolutePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "absolutePath") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      make ?fileMode ?relativePath ?absolutePath ?blobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let relativePath = field_map json__ "relativePath" Path.of_json in
      let absolutePath = field_map json__ "absolutePath" Path.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      make ?fileMode ?relativePath ?absolutePath ?blobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a symbolic link in a repository folder."]
module Difference =
  struct
    type nonrec t =
      {
      beforeBlob: BlobMetadata.t option
        [@ocaml.doc
          "Information about a beforeBlob data type object, including the ID, the file mode permission code, and the path."];
      afterBlob: BlobMetadata.t option
        [@ocaml.doc
          "Information about an afterBlob data type object, including the ID, the file mode permission code, and the path."];
      changeType: ChangeTypeEnum.t option
        [@ocaml.doc
          "Whether the change type of the difference is an addition (A), deletion (D), or modification (M)."]}
    let make ?beforeBlob =
      fun ?afterBlob ->
        fun ?changeType -> fun () -> { beforeBlob; afterBlob; changeType }
    let to_value x =
      structure_to_value
        [("beforeBlob", (Option.map x.beforeBlob ~f:BlobMetadata.to_value));
        ("afterBlob", (Option.map x.afterBlob ~f:BlobMetadata.to_value));
        ("changeType", (Option.map x.changeType ~f:ChangeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changeType =
        (Option.map ~f:ChangeTypeEnum.of_xml)
          (Xml.child xml_arg0 "changeType") in
      let afterBlob =
        (Option.map ~f:BlobMetadata.of_xml) (Xml.child xml_arg0 "afterBlob") in
      let beforeBlob =
        (Option.map ~f:BlobMetadata.of_xml) (Xml.child xml_arg0 "beforeBlob") in
      make ?changeType ?afterBlob ?beforeBlob ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changeType = field_map json__ "changeType" ChangeTypeEnum.of_json in
      let afterBlob = field_map json__ "afterBlob" BlobMetadata.of_json in
      let beforeBlob = field_map json__ "beforeBlob" BlobMetadata.of_json in
      make ?changeType ?afterBlob ?beforeBlob ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a set of differences for a commit specifier."]
module CommentsForPullRequest =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t option
        [@ocaml.doc "The system-generated ID of the pull request."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that contains the pull request."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit that was the tip of the destination branch when the pull request was created. This commit is superceded by the after commit in the source branch when and if you merge the source branch into the destination branch."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit that was the tip of the source branch at the time the comment was made."];
      beforeBlobId: ObjectId.t option
        [@ocaml.doc
          "The full blob ID of the file on which you want to comment on the destination commit."];
      afterBlobId: ObjectId.t option
        [@ocaml.doc
          "The full blob ID of the file on which you want to comment on the source commit."];
      location: Location.t option
        [@ocaml.doc
          "Location information about the comment on the pull request, including the file name, line number, and whether the version of the file where the comment was made is BEFORE (destination branch) or AFTER (source branch)."];
      comments: Comments.t option
        [@ocaml.doc
          "An array of comment objects. Each comment object contains information about a comment on the pull request."]}
    let make ?pullRequestId =
      fun ?repositoryName ->
        fun ?beforeCommitId ->
          fun ?afterCommitId ->
            fun ?beforeBlobId ->
              fun ?afterBlobId ->
                fun ?location ->
                  fun ?comments ->
                    fun () ->
                      {
                        pullRequestId;
                        repositoryName;
                        beforeCommitId;
                        afterCommitId;
                        beforeBlobId;
                        afterBlobId;
                        location;
                        comments
                      }
    let to_value x =
      structure_to_value
        [("pullRequestId",
           (Option.map x.pullRequestId ~f:PullRequestId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("beforeBlobId", (Option.map x.beforeBlobId ~f:ObjectId.to_value));
        ("afterBlobId", (Option.map x.afterBlobId ~f:ObjectId.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("comments", (Option.map x.comments ~f:Comments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comments =
        (Option.map ~f:Comments.of_xml) (Xml.child xml_arg0 "comments") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "afterBlobId") in
      let beforeBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "beforeBlobId") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let pullRequestId =
        (Option.map ~f:PullRequestId.of_xml)
          (Xml.child xml_arg0 "pullRequestId") in
      make ?comments ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ?pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comments = field_map json__ "comments" Comments.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterBlobId = field_map json__ "afterBlobId" ObjectId.of_json in
      let beforeBlobId = field_map json__ "beforeBlobId" ObjectId.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map json__ "pullRequestId" PullRequestId.of_json in
      make ?comments ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ?pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about comments on a pull request."]
module CommentsForComparedCommit =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that contains the compared commits."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit used to establish the before of the comparison."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit used to establish the after of the comparison."];
      beforeBlobId: ObjectId.t option
        [@ocaml.doc
          "The full blob ID of the commit used to establish the before of the comparison."];
      afterBlobId: ObjectId.t option
        [@ocaml.doc
          "The full blob ID of the commit used to establish the after of the comparison."];
      location: Location.t option
        [@ocaml.doc
          "Location information about the comment on the comparison, including the file name, line number, and whether the version of the file where the comment was made is BEFORE or AFTER."];
      comments: Comments.t option
        [@ocaml.doc
          "An array of comment objects. Each comment object contains information about a comment on the comparison between commits."]}
    let make ?repositoryName =
      fun ?beforeCommitId ->
        fun ?afterCommitId ->
          fun ?beforeBlobId ->
            fun ?afterBlobId ->
              fun ?location ->
                fun ?comments ->
                  fun () ->
                    {
                      repositoryName;
                      beforeCommitId;
                      afterCommitId;
                      beforeBlobId;
                      afterBlobId;
                      location;
                      comments
                    }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("beforeBlobId", (Option.map x.beforeBlobId ~f:ObjectId.to_value));
        ("afterBlobId", (Option.map x.afterBlobId ~f:ObjectId.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("comments", (Option.map x.comments ~f:Comments.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comments =
        (Option.map ~f:Comments.of_xml) (Xml.child xml_arg0 "comments") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "afterBlobId") in
      let beforeBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "beforeBlobId") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?comments ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comments = field_map json__ "comments" Comments.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterBlobId = field_map json__ "afterBlobId" ObjectId.of_json in
      let beforeBlobId = field_map json__ "beforeBlobId" ObjectId.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?comments ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about comments on the comparison between two commits."]
module ReactionForComment =
  struct
    type nonrec t =
      {
      reaction: ReactionValueFormats.t option
        [@ocaml.doc "The reaction for a specified comment."];
      reactionUsers: ReactionUsersList.t option
        [@ocaml.doc
          "The Amazon Resource Names (ARNs) of users who have provided reactions to the comment."];
      reactionsFromDeletedUsersCount: Count.t option
        [@ocaml.doc
          "A numerical count of users who reacted with the specified emoji whose identities have been subsequently deleted from IAM. While these IAM users or roles no longer exist, the reactions might still appear in total reaction counts."]}
    let make ?reaction =
      fun ?reactionUsers ->
        fun ?reactionsFromDeletedUsersCount ->
          fun () ->
            { reaction; reactionUsers; reactionsFromDeletedUsersCount }
    let to_value x =
      structure_to_value
        [("reaction",
           (Option.map x.reaction ~f:ReactionValueFormats.to_value));
        ("reactionUsers",
          (Option.map x.reactionUsers ~f:ReactionUsersList.to_value));
        ("reactionsFromDeletedUsersCount",
          (Option.map x.reactionsFromDeletedUsersCount ~f:Count.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reactionsFromDeletedUsersCount =
        (Option.map ~f:Count.of_xml)
          (Xml.child xml_arg0 "reactionsFromDeletedUsersCount") in
      let reactionUsers =
        (Option.map ~f:ReactionUsersList.of_xml)
          (Xml.child xml_arg0 "reactionUsers") in
      let reaction =
        (Option.map ~f:ReactionValueFormats.of_xml)
          (Xml.child xml_arg0 "reaction") in
      make ?reactionsFromDeletedUsersCount ?reactionUsers ?reaction ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reactionsFromDeletedUsersCount =
        field_map json__ "reactionsFromDeletedUsersCount" Count.of_json in
      let reactionUsers =
        field_map json__ "reactionUsers" ReactionUsersList.of_json in
      let reaction = field_map json__ "reaction" ReactionValueFormats.of_json in
      make ?reactionsFromDeletedUsersCount ?reactionUsers ?reaction ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the reaction values provided by users on a comment."]
module ApprovalRulesNotSatisfiedList =
  struct
    type nonrec t = ApprovalRuleName.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:ApprovalRuleName.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:ApprovalRuleName.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalRulesNotSatisfiedList"
        ~of_json:ApprovalRuleName.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApprovalRulesSatisfiedList =
  struct
    type nonrec t = ApprovalRuleName.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:ApprovalRuleName.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:ApprovalRuleName.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalRulesSatisfiedList"
        ~of_json:ApprovalRuleName.of_json j
    let to_json v = composed_to_json to_value v
  end
module Approved =
  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 Overridden =
  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 PullRequestEvent =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t option
        [@ocaml.doc "The system-generated ID of the pull request."];
      eventDate: EventDate.t option
        [@ocaml.doc
          "The day and time of the pull request event, in timestamp format."];
      pullRequestEventType: PullRequestEventType.t option
        [@ocaml.doc
          "The type of the pull request event (for example, a status change event (PULL_REQUEST_STATUS_CHANGED) or update event (PULL_REQUEST_SOURCE_REFERENCE_UPDATED))."];
      actorArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with more commits or changing the status of a pull request."];
      pullRequestCreatedEventMetadata:
        PullRequestCreatedEventMetadata.t option
        [@ocaml.doc
          "Information about the source and destination branches for the pull request."];
      pullRequestStatusChangedEventMetadata:
        PullRequestStatusChangedEventMetadata.t option
        [@ocaml.doc
          "Information about the change in status for the pull request event."];
      pullRequestSourceReferenceUpdatedEventMetadata:
        PullRequestSourceReferenceUpdatedEventMetadata.t option
        [@ocaml.doc
          "Information about the updated source branch for the pull request event."];
      pullRequestMergedStateChangedEventMetadata:
        PullRequestMergedStateChangedEventMetadata.t option
        [@ocaml.doc
          "Information about the change in mergability state for the pull request event."];
      approvalRuleEventMetadata: ApprovalRuleEventMetadata.t option
        [@ocaml.doc "Information about a pull request event."];
      approvalStateChangedEventMetadata:
        ApprovalStateChangedEventMetadata.t option
        [@ocaml.doc
          "Information about an approval state change for a pull request."];
      approvalRuleOverriddenEventMetadata:
        ApprovalRuleOverriddenEventMetadata.t option
        [@ocaml.doc
          "Information about an approval rule override event for a pull request."]}
    let make ?pullRequestId =
      fun ?eventDate ->
        fun ?pullRequestEventType ->
          fun ?actorArn ->
            fun ?pullRequestCreatedEventMetadata ->
              fun ?pullRequestStatusChangedEventMetadata ->
                fun ?pullRequestSourceReferenceUpdatedEventMetadata ->
                  fun ?pullRequestMergedStateChangedEventMetadata ->
                    fun ?approvalRuleEventMetadata ->
                      fun ?approvalStateChangedEventMetadata ->
                        fun ?approvalRuleOverriddenEventMetadata ->
                          fun () ->
                            {
                              pullRequestId;
                              eventDate;
                              pullRequestEventType;
                              actorArn;
                              pullRequestCreatedEventMetadata;
                              pullRequestStatusChangedEventMetadata;
                              pullRequestSourceReferenceUpdatedEventMetadata;
                              pullRequestMergedStateChangedEventMetadata;
                              approvalRuleEventMetadata;
                              approvalStateChangedEventMetadata;
                              approvalRuleOverriddenEventMetadata
                            }
    let to_value x =
      structure_to_value
        [("pullRequestId",
           (Option.map x.pullRequestId ~f:PullRequestId.to_value));
        ("eventDate", (Option.map x.eventDate ~f:EventDate.to_value));
        ("pullRequestEventType",
          (Option.map x.pullRequestEventType ~f:PullRequestEventType.to_value));
        ("actorArn", (Option.map x.actorArn ~f:Arn.to_value));
        ("pullRequestCreatedEventMetadata",
          (Option.map x.pullRequestCreatedEventMetadata
             ~f:PullRequestCreatedEventMetadata.to_value));
        ("pullRequestStatusChangedEventMetadata",
          (Option.map x.pullRequestStatusChangedEventMetadata
             ~f:PullRequestStatusChangedEventMetadata.to_value));
        ("pullRequestSourceReferenceUpdatedEventMetadata",
          (Option.map x.pullRequestSourceReferenceUpdatedEventMetadata
             ~f:PullRequestSourceReferenceUpdatedEventMetadata.to_value));
        ("pullRequestMergedStateChangedEventMetadata",
          (Option.map x.pullRequestMergedStateChangedEventMetadata
             ~f:PullRequestMergedStateChangedEventMetadata.to_value));
        ("approvalRuleEventMetadata",
          (Option.map x.approvalRuleEventMetadata
             ~f:ApprovalRuleEventMetadata.to_value));
        ("approvalStateChangedEventMetadata",
          (Option.map x.approvalStateChangedEventMetadata
             ~f:ApprovalStateChangedEventMetadata.to_value));
        ("approvalRuleOverriddenEventMetadata",
          (Option.map x.approvalRuleOverriddenEventMetadata
             ~f:ApprovalRuleOverriddenEventMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleOverriddenEventMetadata =
        (Option.map ~f:ApprovalRuleOverriddenEventMetadata.of_xml)
          (Xml.child xml_arg0 "approvalRuleOverriddenEventMetadata") in
      let approvalStateChangedEventMetadata =
        (Option.map ~f:ApprovalStateChangedEventMetadata.of_xml)
          (Xml.child xml_arg0 "approvalStateChangedEventMetadata") in
      let approvalRuleEventMetadata =
        (Option.map ~f:ApprovalRuleEventMetadata.of_xml)
          (Xml.child xml_arg0 "approvalRuleEventMetadata") in
      let pullRequestMergedStateChangedEventMetadata =
        (Option.map ~f:PullRequestMergedStateChangedEventMetadata.of_xml)
          (Xml.child xml_arg0 "pullRequestMergedStateChangedEventMetadata") in
      let pullRequestSourceReferenceUpdatedEventMetadata =
        (Option.map ~f:PullRequestSourceReferenceUpdatedEventMetadata.of_xml)
          (Xml.child xml_arg0
             "pullRequestSourceReferenceUpdatedEventMetadata") in
      let pullRequestStatusChangedEventMetadata =
        (Option.map ~f:PullRequestStatusChangedEventMetadata.of_xml)
          (Xml.child xml_arg0 "pullRequestStatusChangedEventMetadata") in
      let pullRequestCreatedEventMetadata =
        (Option.map ~f:PullRequestCreatedEventMetadata.of_xml)
          (Xml.child xml_arg0 "pullRequestCreatedEventMetadata") in
      let actorArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "actorArn") in
      let pullRequestEventType =
        (Option.map ~f:PullRequestEventType.of_xml)
          (Xml.child xml_arg0 "pullRequestEventType") in
      let eventDate =
        (Option.map ~f:EventDate.of_xml) (Xml.child xml_arg0 "eventDate") in
      let pullRequestId =
        (Option.map ~f:PullRequestId.of_xml)
          (Xml.child xml_arg0 "pullRequestId") in
      make ?approvalRuleOverriddenEventMetadata
        ?approvalStateChangedEventMetadata ?approvalRuleEventMetadata
        ?pullRequestMergedStateChangedEventMetadata
        ?pullRequestSourceReferenceUpdatedEventMetadata
        ?pullRequestStatusChangedEventMetadata
        ?pullRequestCreatedEventMetadata ?actorArn ?pullRequestEventType
        ?eventDate ?pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleOverriddenEventMetadata =
        field_map json__ "approvalRuleOverriddenEventMetadata"
          ApprovalRuleOverriddenEventMetadata.of_json in
      let approvalStateChangedEventMetadata =
        field_map json__ "approvalStateChangedEventMetadata"
          ApprovalStateChangedEventMetadata.of_json in
      let approvalRuleEventMetadata =
        field_map json__ "approvalRuleEventMetadata"
          ApprovalRuleEventMetadata.of_json in
      let pullRequestMergedStateChangedEventMetadata =
        field_map json__ "pullRequestMergedStateChangedEventMetadata"
          PullRequestMergedStateChangedEventMetadata.of_json in
      let pullRequestSourceReferenceUpdatedEventMetadata =
        field_map json__ "pullRequestSourceReferenceUpdatedEventMetadata"
          PullRequestSourceReferenceUpdatedEventMetadata.of_json in
      let pullRequestStatusChangedEventMetadata =
        field_map json__ "pullRequestStatusChangedEventMetadata"
          PullRequestStatusChangedEventMetadata.of_json in
      let pullRequestCreatedEventMetadata =
        field_map json__ "pullRequestCreatedEventMetadata"
          PullRequestCreatedEventMetadata.of_json in
      let actorArn = field_map json__ "actorArn" Arn.of_json in
      let pullRequestEventType =
        field_map json__ "pullRequestEventType" PullRequestEventType.of_json in
      let eventDate = field_map json__ "eventDate" EventDate.of_json in
      let pullRequestId =
        field_map json__ "pullRequestId" PullRequestId.of_json in
      make ?approvalRuleOverriddenEventMetadata
        ?approvalStateChangedEventMetadata ?approvalRuleEventMetadata
        ?pullRequestMergedStateChangedEventMetadata
        ?pullRequestSourceReferenceUpdatedEventMetadata
        ?pullRequestStatusChangedEventMetadata
        ?pullRequestCreatedEventMetadata ?actorArn ?pullRequestEventType
        ?eventDate ?pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a pull request event."]
module Target =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the pull request."];
      sourceReference: ReferenceName.t
        [@ocaml.doc
          "The branch of the repository that contains the changes for the pull request. Also known as the source branch."];
      destinationReference: ReferenceName.t option
        [@ocaml.doc
          "The branch of the repository where the pull request changes are merged. Also known as the destination branch."]}
    let context_ = "Target"
    let make ?destinationReference =
      fun ~repositoryName ->
        fun ~sourceReference ->
          fun () -> { destinationReference; repositoryName; sourceReference }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceReference",
          (Some (ReferenceName.to_value x.sourceReference)));
        ("destinationReference",
          (Option.map x.destinationReference ~f:ReferenceName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationReference =
        (Option.map ~f:ReferenceName.of_xml)
          (Xml.child xml_arg0 "destinationReference") in
      let sourceReference =
        ReferenceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceReference") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?destinationReference ~sourceReference ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationReference =
        field_map json__ "destinationReference" ReferenceName.of_json in
      let sourceReference =
        field_map_exn json__ "sourceReference" ReferenceName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?destinationReference ~sourceReference ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a target for a pull request."]
module FileMetadata =
  struct
    type nonrec t =
      {
      absolutePath: Path.t option
        [@ocaml.doc
          "The full path to the file to be added or updated, including the name of the file."];
      blobId: ObjectId.t option
        [@ocaml.doc "The blob ID that contains the file information."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The extrapolated file mode permissions for the file. Valid values include EXECUTABLE and NORMAL."]}
    let make ?absolutePath =
      fun ?blobId ->
        fun ?fileMode -> fun () -> { absolutePath; blobId; fileMode }
    let to_value x =
      structure_to_value
        [("absolutePath", (Option.map x.absolutePath ~f:Path.to_value));
        ("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      let absolutePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "absolutePath") in
      make ?fileMode ?blobId ?absolutePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      let absolutePath = field_map json__ "absolutePath" Path.of_json in
      make ?fileMode ?blobId ?absolutePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A file to be added, updated, or deleted as part of a commit."]
module PutFileEntry =
  struct
    type nonrec t =
      {
      filePath: Path.t
        [@ocaml.doc
          "The full path to the file in the repository, including the name of the file."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The extrapolated file mode permissions for the file. Valid values include EXECUTABLE and NORMAL."];
      fileContent: FileContent.t option
        [@ocaml.doc
          "The content of the file, if a source file is not specified."];
      sourceFile: SourceFileSpecifier.t option
        [@ocaml.doc
          "The name and full path of the file that contains the changes you want to make as part of the commit, if you are not providing the file content directly."]}
    let context_ = "PutFileEntry"
    let make ?fileMode =
      fun ?fileContent ->
        fun ?sourceFile ->
          fun ~filePath ->
            fun () -> { fileMode; fileContent; sourceFile; filePath }
    let to_value x =
      structure_to_value
        [("filePath", (Some (Path.to_value x.filePath)));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value));
        ("fileContent", (Option.map x.fileContent ~f:FileContent.to_value));
        ("sourceFile",
          (Option.map x.sourceFile ~f:SourceFileSpecifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceFile =
        (Option.map ~f:SourceFileSpecifier.of_xml)
          (Xml.child xml_arg0 "sourceFile") in
      let fileContent =
        (Option.map ~f:FileContent.of_xml) (Xml.child xml_arg0 "fileContent") in
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      make ?sourceFile ?fileContent ?fileMode ~filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceFile =
        field_map json__ "sourceFile" SourceFileSpecifier.of_json in
      let fileContent = field_map json__ "fileContent" FileContent.of_json in
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      make ?sourceFile ?fileContent ?fileMode ~filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about a file added or updated as part of a commit."]
module BatchGetRepositoriesError =
  struct
    type nonrec t =
      {
      repositoryId: RepositoryId.t option
        [@ocaml.doc
          "The ID of a repository that either could not be found or was not in a valid state."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of a repository that either could not be found or was not in a valid state."];
      errorCode: BatchGetRepositoriesErrorCodeEnum.t option
        [@ocaml.doc "An error code that specifies the type of failure."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "An error message that provides detail about why the repository either was not found or was not in a valid state."]}
    let make ?repositoryId =
      fun ?repositoryName ->
        fun ?errorCode ->
          fun ?errorMessage ->
            fun () ->
              { repositoryId; repositoryName; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("repositoryId",
           (Option.map x.repositoryId ~f:RepositoryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("errorCode",
          (Option.map x.errorCode
             ~f:BatchGetRepositoriesErrorCodeEnum.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:BatchGetRepositoriesErrorCodeEnum.of_xml)
          (Xml.child xml_arg0 "errorCode") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let repositoryId =
        (Option.map ~f:RepositoryId.of_xml)
          (Xml.child xml_arg0 "repositoryId") in
      make ?errorMessage ?errorCode ?repositoryName ?repositoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode =
        field_map json__ "errorCode"
          BatchGetRepositoriesErrorCodeEnum.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let repositoryId = field_map json__ "repositoryId" RepositoryId.of_json in
      make ?errorMessage ?errorCode ?repositoryName ?repositoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about errors in a BatchGetRepositories operation."]
module RepositoryMetadata =
  struct
    type nonrec t =
      {
      accountId: AccountId.t option
        [@ocaml.doc
          "The ID of the Amazon Web Services account associated with the repository."];
      repositoryId: RepositoryId.t option
        [@ocaml.doc "The ID of the repository."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc "The repository's name."];
      repositoryDescription: RepositoryDescription.t option
        [@ocaml.doc "A comment or description about the repository."];
      defaultBranch: BranchName.t option
        [@ocaml.doc "The repository's default branch name."];
      lastModifiedDate: LastModifiedDate.t option
        [@ocaml.doc
          "The date and time the repository was last modified, in timestamp format."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date and time the repository was created, in timestamp format."];
      cloneUrlHttp: CloneUrlHttp.t option
        [@ocaml.doc "The URL to use for cloning the repository over HTTPS."];
      cloneUrlSsh: CloneUrlSsh.t option
        [@ocaml.doc "The URL to use for cloning the repository over SSH."];
      arn: Arn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the repository."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "The ID of the Key Management Service encryption key used to encrypt and decrypt the repository."]}
    let make ?accountId =
      fun ?repositoryId ->
        fun ?repositoryName ->
          fun ?repositoryDescription ->
            fun ?defaultBranch ->
              fun ?lastModifiedDate ->
                fun ?creationDate ->
                  fun ?cloneUrlHttp ->
                    fun ?cloneUrlSsh ->
                      fun ?arn ->
                        fun ?kmsKeyId ->
                          fun () ->
                            {
                              accountId;
                              repositoryId;
                              repositoryName;
                              repositoryDescription;
                              defaultBranch;
                              lastModifiedDate;
                              creationDate;
                              cloneUrlHttp;
                              cloneUrlSsh;
                              arn;
                              kmsKeyId
                            }
    let to_value x =
      structure_to_value
        [("accountId", (Option.map x.accountId ~f:AccountId.to_value));
        ("repositoryId",
          (Option.map x.repositoryId ~f:RepositoryId.to_value));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("repositoryDescription",
          (Option.map x.repositoryDescription
             ~f:RepositoryDescription.to_value));
        ("defaultBranch",
          (Option.map x.defaultBranch ~f:BranchName.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:LastModifiedDate.to_value));
        ("creationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("cloneUrlHttp",
          (Option.map x.cloneUrlHttp ~f:CloneUrlHttp.to_value));
        ("cloneUrlSsh", (Option.map x.cloneUrlSsh ~f:CloneUrlSsh.to_value));
        ("Arn", (Option.map x.arn ~f:Arn.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let arn = (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "Arn") in
      let cloneUrlSsh =
        (Option.map ~f:CloneUrlSsh.of_xml) (Xml.child xml_arg0 "cloneUrlSsh") in
      let cloneUrlHttp =
        (Option.map ~f:CloneUrlHttp.of_xml)
          (Xml.child xml_arg0 "cloneUrlHttp") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "creationDate") in
      let lastModifiedDate =
        (Option.map ~f:LastModifiedDate.of_xml)
          (Xml.child xml_arg0 "lastModifiedDate") in
      let defaultBranch =
        (Option.map ~f:BranchName.of_xml)
          (Xml.child xml_arg0 "defaultBranch") in
      let repositoryDescription =
        (Option.map ~f:RepositoryDescription.of_xml)
          (Xml.child xml_arg0 "repositoryDescription") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let repositoryId =
        (Option.map ~f:RepositoryId.of_xml)
          (Xml.child xml_arg0 "repositoryId") in
      let accountId =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "accountId") in
      make ?kmsKeyId ?arn ?cloneUrlSsh ?cloneUrlHttp ?creationDate
        ?lastModifiedDate ?defaultBranch ?repositoryDescription
        ?repositoryName ?repositoryId ?accountId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let arn = field_map json__ "Arn" Arn.of_json in
      let cloneUrlSsh = field_map json__ "cloneUrlSsh" CloneUrlSsh.of_json in
      let cloneUrlHttp = field_map json__ "cloneUrlHttp" CloneUrlHttp.of_json in
      let creationDate = field_map json__ "creationDate" CreationDate.of_json in
      let lastModifiedDate =
        field_map json__ "lastModifiedDate" LastModifiedDate.of_json in
      let defaultBranch = field_map json__ "defaultBranch" BranchName.of_json in
      let repositoryDescription =
        field_map json__ "repositoryDescription"
          RepositoryDescription.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let repositoryId = field_map json__ "repositoryId" RepositoryId.of_json in
      let accountId = field_map json__ "accountId" AccountId.of_json in
      make ?kmsKeyId ?arn ?cloneUrlSsh ?cloneUrlHttp ?creationDate
        ?lastModifiedDate ?defaultBranch ?repositoryDescription
        ?repositoryName ?repositoryId ?accountId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about a repository."]
module BatchGetCommitsError =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "A commit ID that either could not be found or was not in a valid format."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "An error code that specifies whether the commit ID was not valid or not found."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "An error message that provides detail about why the commit ID either was not found or was not valid."]}
    let make ?commitId =
      fun ?errorCode ->
        fun ?errorMessage -> fun () -> { commitId; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?errorMessage ?errorCode ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?errorMessage ?errorCode ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about errors in a BatchGetCommits operation."]
module BatchDisassociateApprovalRuleTemplateFromRepositoriesError =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where the association with the template was not able to be removed."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "An error code that specifies whether the repository name was not valid or not found."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "An error message that provides details about why the repository name was either not found or not valid."]}
    let make ?repositoryName =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { repositoryName; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?errorMessage ?errorCode ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?errorMessage ?errorCode ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about errors in a BatchDisassociateApprovalRuleTemplateFromRepositories operation."]
module BatchDescribeMergeConflictsError =
  struct
    type nonrec t =
      {
      filePath: Path.t option [@ocaml.doc "The path to the file."];
      exceptionName: ExceptionName.t option
        [@ocaml.doc "The name of the exception."];
      message: Message.t option
        [@ocaml.doc "The message provided by the exception."]}
    let make ?filePath =
      fun ?exceptionName ->
        fun ?message -> fun () -> { filePath; exceptionName; message }
    let to_value x =
      structure_to_value
        [("filePath", (Option.map x.filePath ~f:Path.to_value));
        ("exceptionName",
          (Option.map x.exceptionName ~f:ExceptionName.to_value));
        ("message", (Option.map x.message ~f:Message.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "message") in
      let exceptionName =
        (Option.map ~f:ExceptionName.of_xml)
          (Xml.child xml_arg0 "exceptionName") in
      let filePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "filePath") in
      make ?message ?exceptionName ?filePath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" Message.of_json in
      let exceptionName =
        field_map json__ "exceptionName" ExceptionName.of_json in
      let filePath = field_map json__ "filePath" Path.of_json in
      make ?message ?exceptionName ?filePath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about errors in a BatchDescribeMergeConflicts operation."]
module Conflict =
  struct
    type nonrec t =
      {
      conflictMetadata: ConflictMetadata.t option
        [@ocaml.doc "Metadata about a conflict in a merge operation."];
      mergeHunks: MergeHunks.t option
        [@ocaml.doc
          "A list of hunks that contain the differences between files or lines causing the conflict."]}
    let make ?conflictMetadata =
      fun ?mergeHunks -> fun () -> { conflictMetadata; mergeHunks }
    let to_value x =
      structure_to_value
        [("conflictMetadata",
           (Option.map x.conflictMetadata ~f:ConflictMetadata.to_value));
        ("mergeHunks", (Option.map x.mergeHunks ~f:MergeHunks.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergeHunks =
        (Option.map ~f:MergeHunks.of_xml) (Xml.child xml_arg0 "mergeHunks") in
      let conflictMetadata =
        (Option.map ~f:ConflictMetadata.of_xml)
          (Xml.child xml_arg0 "conflictMetadata") in
      make ?mergeHunks ?conflictMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergeHunks = field_map json__ "mergeHunks" MergeHunks.of_json in
      let conflictMetadata =
        field_map json__ "conflictMetadata" ConflictMetadata.of_json in
      make ?mergeHunks ?conflictMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Information about conflicts in a merge operation."]
module BatchAssociateApprovalRuleTemplateWithRepositoriesError =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where the association was not made."];
      errorCode: ErrorCode.t option
        [@ocaml.doc
          "An error code that specifies whether the repository name was not valid or not found."];
      errorMessage: ErrorMessage.t option
        [@ocaml.doc
          "An error message that provides details about why the repository name was not found or not valid."]}
    let make ?repositoryName =
      fun ?errorCode ->
        fun ?errorMessage ->
          fun () -> { repositoryName; errorCode; errorMessage }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("errorCode", (Option.map x.errorCode ~f:ErrorCode.to_value));
        ("errorMessage",
          (Option.map x.errorMessage ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorMessage =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "errorMessage") in
      let errorCode =
        (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "errorCode") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?errorMessage ?errorCode ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorMessage = field_map json__ "errorMessage" ErrorMessage.of_json in
      let errorCode = field_map json__ "errorCode" ErrorCode.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?errorMessage ?errorCode ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about errors in a BatchAssociateApprovalRuleTemplateWithRepositories operation."]
module EncryptionIntegrityChecksFailedException =
  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 "An encryption integrity check failed."]
module EncryptionKeyAccessDeniedException =
  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 "An encryption key could not be accessed."]
module EncryptionKeyDisabledException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The encryption key is disabled."]
module EncryptionKeyInvalidIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The Key Management Service encryption key is not valid."]
module EncryptionKeyInvalidUsageException =
  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
       "A KMS encryption key was used to try and encrypt or decrypt a repository, but either the repository or the key was not in a valid state to support the operation."]
module EncryptionKeyNotFoundException =
  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 "No encryption key was found."]
module EncryptionKeyRequiredException =
  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
       "A KMS encryption key ID is required but was not specified."]
module EncryptionKeyUnavailableException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The encryption key is not available."]
module InvalidRepositoryNameException =
  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
       "A specified repository name is not valid. This exception occurs only when a specified repository name is not valid. Other exceptions occur when a required repository parameter is missing, or when a specified repository does not exist."]
module RepositoryDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified repository does not exist."]
module RepositoryNameRequiredException =
  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 "A repository name is required, but was not specified."]
module InvalidPullRequestIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request ID is not valid. Make sure that you have provided the full ID and that the pull request is in the specified repository, and then try again."]
module InvalidTitleException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The title of the pull request is not valid. Pull request titles cannot exceed 100 characters in length."]
module PullRequest =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t option
        [@ocaml.doc "The system-generated ID of the pull request."];
      title: Title.t option
        [@ocaml.doc
          "The user-defined title of the pull request. This title is displayed in the list of pull requests to other repository users."];
      description: Description.t option
        [@ocaml.doc
          "The user-defined description of the pull request. This description can be used to clarify what should be reviewed and other details of the request."];
      lastActivityDate: LastModifiedDate.t option
        [@ocaml.doc
          "The day and time of the last user or system activity on the pull request, in timestamp format."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date and time the pull request was originally created, in timestamp format."];
      pullRequestStatus: PullRequestStatusEnum.t option
        [@ocaml.doc
          "The status of the pull request. Pull request status can only change from OPEN to CLOSED."];
      authorArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user who created the pull request."];
      pullRequestTargets: PullRequestTargetList.t option
        [@ocaml.doc
          "The targets of the pull request, including the source branch and destination branch for the pull request."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."];
      revisionId: RevisionId.t option
        [@ocaml.doc "The system-generated revision ID for the pull request."];
      approvalRules: ApprovalRulesList.t option
        [@ocaml.doc "The approval rules applied to the pull request."]}
    let make ?pullRequestId =
      fun ?title ->
        fun ?description ->
          fun ?lastActivityDate ->
            fun ?creationDate ->
              fun ?pullRequestStatus ->
                fun ?authorArn ->
                  fun ?pullRequestTargets ->
                    fun ?clientRequestToken ->
                      fun ?revisionId ->
                        fun ?approvalRules ->
                          fun () ->
                            {
                              pullRequestId;
                              title;
                              description;
                              lastActivityDate;
                              creationDate;
                              pullRequestStatus;
                              authorArn;
                              pullRequestTargets;
                              clientRequestToken;
                              revisionId;
                              approvalRules
                            }
    let to_value x =
      structure_to_value
        [("pullRequestId",
           (Option.map x.pullRequestId ~f:PullRequestId.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("lastActivityDate",
          (Option.map x.lastActivityDate ~f:LastModifiedDate.to_value));
        ("creationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("pullRequestStatus",
          (Option.map x.pullRequestStatus ~f:PullRequestStatusEnum.to_value));
        ("authorArn", (Option.map x.authorArn ~f:Arn.to_value));
        ("pullRequestTargets",
          (Option.map x.pullRequestTargets ~f:PullRequestTargetList.to_value));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("revisionId", (Option.map x.revisionId ~f:RevisionId.to_value));
        ("approvalRules",
          (Option.map x.approvalRules ~f:ApprovalRulesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRules =
        (Option.map ~f:ApprovalRulesList.of_xml)
          (Xml.child xml_arg0 "approvalRules") in
      let revisionId =
        (Option.map ~f:RevisionId.of_xml) (Xml.child xml_arg0 "revisionId") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let pullRequestTargets =
        (Option.map ~f:PullRequestTargetList.of_xml)
          (Xml.child xml_arg0 "pullRequestTargets") in
      let authorArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "authorArn") in
      let pullRequestStatus =
        (Option.map ~f:PullRequestStatusEnum.of_xml)
          (Xml.child xml_arg0 "pullRequestStatus") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "creationDate") in
      let lastActivityDate =
        (Option.map ~f:LastModifiedDate.of_xml)
          (Xml.child xml_arg0 "lastActivityDate") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let pullRequestId =
        (Option.map ~f:PullRequestId.of_xml)
          (Xml.child xml_arg0 "pullRequestId") in
      make ?approvalRules ?revisionId ?clientRequestToken ?pullRequestTargets
        ?authorArn ?pullRequestStatus ?creationDate ?lastActivityDate
        ?description ?title ?pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRules =
        field_map json__ "approvalRules" ApprovalRulesList.of_json in
      let revisionId = field_map json__ "revisionId" RevisionId.of_json in
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let pullRequestTargets =
        field_map json__ "pullRequestTargets" PullRequestTargetList.of_json in
      let authorArn = field_map json__ "authorArn" Arn.of_json in
      let pullRequestStatus =
        field_map json__ "pullRequestStatus" PullRequestStatusEnum.of_json in
      let creationDate = field_map json__ "creationDate" CreationDate.of_json in
      let lastActivityDate =
        field_map json__ "lastActivityDate" LastModifiedDate.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let pullRequestId =
        field_map json__ "pullRequestId" PullRequestId.of_json in
      make ?approvalRules ?revisionId ?clientRequestToken ?pullRequestTargets
        ?authorArn ?pullRequestStatus ?creationDate ?lastActivityDate
        ?description ?title ?pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a pull request."]
module PullRequestAlreadyClosedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request status cannot be updated because it is already closed."]
module PullRequestDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request ID could not be found. Make sure that you have specified the correct repository name and pull request ID, and then try again."]
module PullRequestIdRequiredException =
  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 "A pull request ID is required, but none was provided."]
module TitleRequiredException =
  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
       "A pull request title is required. It cannot be empty or null."]
module InvalidPullRequestStatusException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request status is not valid. The only valid values are OPEN and CLOSED."]
module InvalidPullRequestStatusUpdateException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request status update is not valid. The only valid update is from OPEN to CLOSED."]
module PullRequestStatusRequiredException =
  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
       "A pull request status is required, but none was provided."]
module InvalidDescriptionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request description is not valid. Descriptions cannot be more than 1,000 characters."]
module ApprovalRuleContentRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The content for the approval rule is empty. You must provide some content for an approval rule. The content cannot be null."]
module ApprovalRuleDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified approval rule does not exist."]
module ApprovalRuleNameRequiredException =
  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
       "An approval rule name is required, but was not specified."]
module CannotModifyApprovalRuleFromTemplateException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The approval rule cannot be modified for the pull request because it was created by an approval rule template and applied to the pull request automatically."]
module InvalidApprovalRuleContentException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The content for the approval rule is not valid."]
module InvalidApprovalRuleNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The name for the approval rule is not valid."]
module InvalidRuleContentSha256Exception =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The SHA-256 hash signature for the rule content is not valid."]
module CommentContentRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The comment is empty. You must provide some content for a comment. The content cannot be null."]
module CommentContentSizeLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The comment is too large. Comments are limited to 10,240 characters."]
module CommentDeletedException =
  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
       "This comment has already been deleted. You cannot edit or delete a deleted comment."]
module CommentDoesNotExistException =
  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
       "No comment exists with the provided ID. Verify that you have used the correct ID, and then try again."]
module CommentIdRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The comment ID is missing or null. A comment ID is required."]
module CommentNotCreatedByCallerException =
  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
       "You cannot modify or delete this comment. Only comment authors can modify or delete their comments."]
module InvalidCommentIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The comment ID is not in a valid format. Make sure that you have provided the full comment ID."]
module ApprovalRuleTemplate =
  struct
    type nonrec t =
      {
      approvalRuleTemplateId: ApprovalRuleTemplateId.t option
        [@ocaml.doc "The system-generated ID of the approval rule template."];
      approvalRuleTemplateName: ApprovalRuleTemplateName.t option
        [@ocaml.doc "The name of the approval rule template."];
      approvalRuleTemplateDescription:
        ApprovalRuleTemplateDescription.t option
        [@ocaml.doc "The description of the approval rule template."];
      approvalRuleTemplateContent: ApprovalRuleTemplateContent.t option
        [@ocaml.doc "The content of the approval rule template."];
      ruleContentSha256: RuleContentSha256.t option
        [@ocaml.doc
          "The SHA-256 hash signature for the content of the approval rule template."];
      lastModifiedDate: LastModifiedDate.t option
        [@ocaml.doc
          "The date the approval rule template was most recently changed, in timestamp format."];
      creationDate: CreationDate.t option
        [@ocaml.doc
          "The date the approval rule template was created, in timestamp format."];
      lastModifiedUser: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user who made the most recent changes to the approval rule template."]}
    let make ?approvalRuleTemplateId =
      fun ?approvalRuleTemplateName ->
        fun ?approvalRuleTemplateDescription ->
          fun ?approvalRuleTemplateContent ->
            fun ?ruleContentSha256 ->
              fun ?lastModifiedDate ->
                fun ?creationDate ->
                  fun ?lastModifiedUser ->
                    fun () ->
                      {
                        approvalRuleTemplateId;
                        approvalRuleTemplateName;
                        approvalRuleTemplateDescription;
                        approvalRuleTemplateContent;
                        ruleContentSha256;
                        lastModifiedDate;
                        creationDate;
                        lastModifiedUser
                      }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateId",
           (Option.map x.approvalRuleTemplateId
              ~f:ApprovalRuleTemplateId.to_value));
        ("approvalRuleTemplateName",
          (Option.map x.approvalRuleTemplateName
             ~f:ApprovalRuleTemplateName.to_value));
        ("approvalRuleTemplateDescription",
          (Option.map x.approvalRuleTemplateDescription
             ~f:ApprovalRuleTemplateDescription.to_value));
        ("approvalRuleTemplateContent",
          (Option.map x.approvalRuleTemplateContent
             ~f:ApprovalRuleTemplateContent.to_value));
        ("ruleContentSha256",
          (Option.map x.ruleContentSha256 ~f:RuleContentSha256.to_value));
        ("lastModifiedDate",
          (Option.map x.lastModifiedDate ~f:LastModifiedDate.to_value));
        ("creationDate",
          (Option.map x.creationDate ~f:CreationDate.to_value));
        ("lastModifiedUser", (Option.map x.lastModifiedUser ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedUser =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "lastModifiedUser") in
      let creationDate =
        (Option.map ~f:CreationDate.of_xml)
          (Xml.child xml_arg0 "creationDate") in
      let lastModifiedDate =
        (Option.map ~f:LastModifiedDate.of_xml)
          (Xml.child xml_arg0 "lastModifiedDate") in
      let ruleContentSha256 =
        (Option.map ~f:RuleContentSha256.of_xml)
          (Xml.child xml_arg0 "ruleContentSha256") in
      let approvalRuleTemplateContent =
        (Option.map ~f:ApprovalRuleTemplateContent.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateContent") in
      let approvalRuleTemplateDescription =
        (Option.map ~f:ApprovalRuleTemplateDescription.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateDescription") in
      let approvalRuleTemplateName =
        (Option.map ~f:ApprovalRuleTemplateName.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateName") in
      let approvalRuleTemplateId =
        (Option.map ~f:ApprovalRuleTemplateId.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateId") in
      make ?lastModifiedUser ?creationDate ?lastModifiedDate
        ?ruleContentSha256 ?approvalRuleTemplateContent
        ?approvalRuleTemplateDescription ?approvalRuleTemplateName
        ?approvalRuleTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedUser = field_map json__ "lastModifiedUser" Arn.of_json in
      let creationDate = field_map json__ "creationDate" CreationDate.of_json in
      let lastModifiedDate =
        field_map json__ "lastModifiedDate" LastModifiedDate.of_json in
      let ruleContentSha256 =
        field_map json__ "ruleContentSha256" RuleContentSha256.of_json in
      let approvalRuleTemplateContent =
        field_map json__ "approvalRuleTemplateContent"
          ApprovalRuleTemplateContent.of_json in
      let approvalRuleTemplateDescription =
        field_map json__ "approvalRuleTemplateDescription"
          ApprovalRuleTemplateDescription.of_json in
      let approvalRuleTemplateName =
        field_map json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      let approvalRuleTemplateId =
        field_map json__ "approvalRuleTemplateId"
          ApprovalRuleTemplateId.of_json in
      make ?lastModifiedUser ?creationDate ?lastModifiedDate
        ?ruleContentSha256 ?approvalRuleTemplateContent
        ?approvalRuleTemplateDescription ?approvalRuleTemplateName
        ?approvalRuleTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about an approval rule template."]
module ApprovalRuleTemplateDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified approval rule template does not exist. Verify that the name is correct and that you are signed in to the Amazon Web Services Region where the template was created, and then try again."]
module ApprovalRuleTemplateNameAlreadyExistsException =
  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
       "You cannot create an approval rule template with that name because a template with that name already exists in this Amazon Web Services Region for your Amazon Web Services account. Approval rule template names must be unique."]
module ApprovalRuleTemplateNameRequiredException =
  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
       "An approval rule template name is required, but was not specified."]
module InvalidApprovalRuleTemplateNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The name of the approval rule template is not valid. Template names must be between 1 and 100 valid characters in length. For more information about limits in CodeCommit, see Quotas in the CodeCommit User Guide."]
module InvalidApprovalRuleTemplateDescriptionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The description for the approval rule template is not valid because it exceeds the maximum characters allowed for a description. For more information about limits in CodeCommit, see Quotas in the CodeCommit User Guide."]
module ApprovalRuleTemplateContentRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The content for the approval rule template is empty. You must provide some content for an approval rule template. The content cannot be null."]
module InvalidApprovalRuleTemplateContentException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The content of the approval rule template is not valid."]
module ResourceArn =
  struct
    type nonrec t = string
    let context_ = "ResourceArn"
    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:"ResourceArn" j
    let to_json = simple_to_json to_value
  end
module TagKeysList =
  struct
    type nonrec t = TagKey.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j =
      list_of_json ~kind:"TagKeysList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidRepositoryTriggerBranchNameException =
  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
       "One or more branch names specified for the trigger is not valid."]
module InvalidRepositoryTriggerCustomDataException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The custom data provided for the trigger is not valid."]
module InvalidRepositoryTriggerDestinationArnException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) for the trigger is not valid for the specified destination. The most common reason for this error is that the ARN does not meet the requirements for the service type."]
module InvalidRepositoryTriggerEventsException =
  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
       "One or more events specified for the trigger is not valid. Check to make sure that all events specified match the requirements for allowed events."]
module InvalidRepositoryTriggerNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The name of the trigger is not valid."]
module InvalidRepositoryTriggerRegionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Web Services Region for the trigger target does not match the Amazon Web Services Region for the repository. Triggers must be created in the same Amazon Web Services Region as the target for the trigger."]
module MaximumBranchesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The number of branches for the trigger was exceeded."]
module MaximumRepositoryTriggersExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of triggers allowed for the repository was exceeded."]
module RepositoryTriggerBranchNameListRequiredException =
  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
       "At least one branch name is required, but was not specified in the trigger configuration."]
module RepositoryTriggerDestinationArnRequiredException =
  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
       "A destination ARN for the target service for the trigger is required, but was not specified."]
module RepositoryTriggerEventsListRequiredException =
  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
       "At least one event for the trigger is required, but was not specified."]
module RepositoryTriggerExecutionFailureList =
  struct
    type nonrec t = RepositoryTriggerExecutionFailure.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:RepositoryTriggerExecutionFailure.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:RepositoryTriggerExecutionFailure.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryTriggerExecutionFailureList"
        ~of_json:RepositoryTriggerExecutionFailure.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryTriggerNameList =
  struct
    type nonrec t = RepositoryTriggerName.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:RepositoryTriggerName.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:RepositoryTriggerName.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryTriggerNameList"
        ~of_json:RepositoryTriggerName.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryTriggerNameRequiredException =
  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
       "A name for the trigger is required, but was not specified."]
module RepositoryTriggersListRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The list of triggers for the repository is required, but was not specified."]
module RepositoryTriggersList =
  struct
    type nonrec t = RepositoryTrigger.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:RepositoryTrigger.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:RepositoryTrigger.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryTriggersList"
        ~of_json:RepositoryTrigger.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagsMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryTriggersConfigurationId =
  struct
    type nonrec t = string
    let context_ = "RepositoryTriggersConfigurationId"
    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:"RepositoryTriggersConfigurationId" j
    let to_json = simple_to_json to_value
  end
module BranchDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified branch does not exist."]
module BranchNameIsTagNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified branch name is not valid because it is a tag name. Enter the name of a branch in the repository. For a list of valid branch names, use ListBranches."]
module BranchNameRequiredException =
  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 "A branch name is required, but was not specified."]
module CommitMessageLengthExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit message is too long. Provide a shorter string."]
module DirectoryNameConflictsWithFileNameException =
  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
       "A file cannot be added to the repository because the specified path name has the same name as a file that already exists in this repository. Either provide a different name for the file, or specify a different path for the file."]
module FileContentRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file cannot be added because it is empty. Empty files cannot be added to the repository with this API."]
module FileContentSizeLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file cannot be added because it is too large. The maximum file size is 6 MB, and the combined file content change size is 7 MB. Consider making these changes using a Git client."]
module FileNameConflictsWithDirectoryNameException =
  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
       "A file cannot be added to the repository because the specified file name has the same name as a directory in this repository. Either provide another name for the file, or add the file in a directory that does not match the file name."]
module FilePathConflictsWithSubmodulePathException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because a specified file path points to a submodule. Verify that the destination files have valid file paths that do not point to a submodule."]
module FolderContentSizeLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because at least one of the overall changes in the commit results in a folder whose contents exceed the limit of 6 MB. Either reduce the number and size of your changes, or split the changes across multiple folders."]
module InvalidBranchNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified reference name is not valid."]
module InvalidDeletionParameterException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified deletion parameter is not valid."]
module InvalidEmailException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified email address either contains one or more characters that are not allowed, or it exceeds the maximum number of characters allowed for an email address."]
module InvalidFileModeException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified file mode permission is not valid. For a list of valid file mode permissions, see PutFile."]
module InvalidParentCommitIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parent commit ID is not valid. The commit ID cannot be empty, and must match the head commit ID for the branch of the repository where you want to add or update a file."]
module InvalidPathException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified path is not valid."]
module NameLengthExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The user name is not valid because it has exceeded the character limit for author names."]
module ParentCommitDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The parent commit ID is not valid because it does not exist. The specified parent commit ID does not exist in the specified branch of the repository."]
module ParentCommitIdOutdatedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file could not be added because the provided parent commit ID is not the current tip of the specified branch. To view the full commit ID of the current head of the branch, use GetBranch."]
module ParentCommitIdRequiredException =
  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
       "A parent commit ID is required. To view the full commit ID of a branch in a repository, use GetBranch or a Git command (for example, git pull or git log)."]
module PathRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The folderPath for a location cannot be null."]
module SameFileContentException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The file was not added or updated because the content of the file is exactly the same as the content of that file in the repository and branch that you specified."]
module ClientRequestTokenRequiredException =
  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
       "A client request token is required. A client request token is an unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."]
module IdempotencyParameterMismatchException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client request token is not valid. Either the token is not in a valid format, or the token has been used in a previous request and cannot be reused."]
module InvalidClientRequestTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The client request token is not valid."]
module BeforeCommitIdAndAfterCommitIdAreSameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The before commit ID and the after commit ID are the same, which is not valid. The before commit ID and the after commit ID must be different commit IDs."]
module CommitDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified commit does not exist or no commit was specified, and the specified repository has no default branch."]
module CommitIdRequiredException =
  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 "A commit ID was not specified."]
module InvalidCommitIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified commit ID is not valid."]
module InvalidFileLocationException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The location of the file is not valid. Make sure that you include the file name and extension."]
module InvalidFilePositionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The position is not valid. Make sure that the line number exists in the version of the file you want to comment on."]
module InvalidRelativeFileVersionEnumException =
  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
       "Either the enum is not in a valid format, or the specified file version enum is not valid in respect to the current file version."]
module PathDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified path does not exist."]
module RepositoryNotAssociatedWithPullRequestException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The repository does not contain any pull requests with that pull request ID. Use GetPullRequest to verify the correct repository name for the pull request ID."]
module ConcurrentReferenceUpdateException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The merge cannot be completed because the target branch has been modified. Another user might have modified the target branch while the merge was in progress. Wait a few minutes, and then try again."]
module InvalidConflictDetailLevelException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified conflict detail level is not valid."]
module InvalidConflictResolutionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified conflict resolution list is not valid."]
module InvalidConflictResolutionStrategyException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified conflict resolution strategy is not valid."]
module InvalidReplacementContentException =
  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
       "Automerge was specified for resolving the conflict, but the replacement type is not valid or content is missing."]
module InvalidReplacementTypeException =
  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
       "Automerge was specified for resolving the conflict, but the specified replacement type is not valid."]
module ManualMergeRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request cannot be merged automatically into the destination branch. You must manually merge the branches and resolve any conflicts."]
module MaximumConflictResolutionEntriesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of allowed conflict resolution entries was exceeded."]
module MaximumFileContentToLoadExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The number of files to load exceeds the allowed limit."]
module MaximumItemsToCompareExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of items to compare between the source or destination branches and the merge base has exceeded the maximum allowed."]
module MultipleConflictResolutionEntriesException =
  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
       "More than one conflict resolution entries exists for the conflict. A conflict can have only one conflict resolution entry."]
module PullRequestApprovalRulesNotSatisfiedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request cannot be merged because one or more approval rules applied to the pull request have conditions that have not been met."]
module ReplacementContentRequiredException =
  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
       "USE_NEW_CONTENT was specified, but no replacement content has been provided."]
module ReplacementTypeRequiredException =
  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 "A replacement type is required."]
module TipOfSourceReferenceIsDifferentException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The tip of the source branch in the destination repository does not match the tip of the source branch specified in your request. The pull request might have been updated. Make sure that you have the latest changes."]
module TipsDivergenceExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The divergence between the tips of the provided commit specifiers is too great to determine whether there might be any merge conflicts. Locally compare the specifiers using git diff or a diff tool."]
module ConflictDetailLevelTypeEnum =
  struct
    type nonrec t =
      | FILE_LEVEL 
      | LINE_LEVEL 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FILE_LEVEL -> "FILE_LEVEL"
      | LINE_LEVEL -> "LINE_LEVEL"
      | Non_static_id s -> s
    let of_string =
      function
      | "FILE_LEVEL" -> FILE_LEVEL
      | "LINE_LEVEL" -> LINE_LEVEL
      | 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 ConflictDetailLevelTypeEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictDetailLevelTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module ConflictResolution =
  struct
    type nonrec t =
      {
      replaceContents: ReplaceContentEntries.t option
        [@ocaml.doc
          "Files to have content replaced as part of the merge conflict resolution."];
      deleteFiles: DeleteFileEntries.t option
        [@ocaml.doc
          "Files to be deleted as part of the merge conflict resolution."];
      setFileModes: SetFileModeEntries.t option
        [@ocaml.doc
          "File modes that are set as part of the merge conflict resolution."]}
    let make ?replaceContents =
      fun ?deleteFiles ->
        fun ?setFileModes ->
          fun () -> { replaceContents; deleteFiles; setFileModes }
    let to_value x =
      structure_to_value
        [("replaceContents",
           (Option.map x.replaceContents ~f:ReplaceContentEntries.to_value));
        ("deleteFiles",
          (Option.map x.deleteFiles ~f:DeleteFileEntries.to_value));
        ("setFileModes",
          (Option.map x.setFileModes ~f:SetFileModeEntries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let setFileModes =
        (Option.map ~f:SetFileModeEntries.of_xml)
          (Xml.child xml_arg0 "setFileModes") in
      let deleteFiles =
        (Option.map ~f:DeleteFileEntries.of_xml)
          (Xml.child xml_arg0 "deleteFiles") in
      let replaceContents =
        (Option.map ~f:ReplaceContentEntries.of_xml)
          (Xml.child xml_arg0 "replaceContents") in
      make ?setFileModes ?deleteFiles ?replaceContents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let setFileModes =
        field_map json__ "setFileModes" SetFileModeEntries.of_json in
      let deleteFiles =
        field_map json__ "deleteFiles" DeleteFileEntries.of_json in
      let replaceContents =
        field_map json__ "replaceContents" ReplaceContentEntries.of_json in
      make ?setFileModes ?deleteFiles ?replaceContents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]
module ConflictResolutionStrategyTypeEnum =
  struct
    type nonrec t =
      | NONE 
      | ACCEPT_SOURCE 
      | ACCEPT_DESTINATION 
      | AUTOMERGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NONE -> "NONE"
      | ACCEPT_SOURCE -> "ACCEPT_SOURCE"
      | ACCEPT_DESTINATION -> "ACCEPT_DESTINATION"
      | AUTOMERGE -> "AUTOMERGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "NONE" -> NONE
      | "ACCEPT_SOURCE" -> ACCEPT_SOURCE
      | "ACCEPT_DESTINATION" -> ACCEPT_DESTINATION
      | "AUTOMERGE" -> AUTOMERGE
      | 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 ConflictResolutionStrategyTypeEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ConflictResolutionStrategyTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module KeepEmptyFolders =
  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 ReferenceDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified reference does not exist. You must provide a full commit ID."]
module CommitRequiredException =
  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 "A commit was not specified."]
module FileModeRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because no file mode has been specified. A file mode is required to update mode permissions for a file."]
module InvalidCommitException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified commit is not valid."]
module InvalidTargetBranchException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified target branch is not valid."]
module CommitName =
  struct
    type nonrec t = string
    let context_ = "CommitName"
    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:"CommitName" j
    let to_json = simple_to_json to_value
  end
module InvalidResourceArnException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value for the resource ARN is not valid. For more information about resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module NextToken =
  struct
    type nonrec t = string
    let context_ = "NextToken"
    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:"NextToken" j
    let to_json = simple_to_json to_value
  end
module ResourceArnRequiredException =
  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
       "A valid Amazon Resource Name (ARN) for an CodeCommit resource is required. For a list of valid resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module InvalidContinuationTokenException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified continuation token is not valid."]
module InvalidOrderException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified sort order is not valid."]
module InvalidSortByException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified sort by value is not valid."]
module RepositoryNameIdPairList =
  struct
    type nonrec t = RepositoryNameIdPair.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:RepositoryNameIdPair.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:RepositoryNameIdPair.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryNameIdPairList"
        ~of_json:RepositoryNameIdPair.of_json j
    let to_json v = composed_to_json to_value v
  end
module OrderEnum =
  struct
    type nonrec t =
      | Ascending 
      | Descending 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Ascending -> "ascending"
      | Descending -> "descending"
      | Non_static_id s -> s
    let of_string =
      function
      | "ascending" -> Ascending
      | "descending" -> Descending
      | 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 OrderEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrderEnum" j)
    let to_json = simple_to_json to_value
  end
module SortByEnum =
  struct
    type nonrec t =
      | RepositoryName 
      | LastModifiedDate 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RepositoryName -> "repositoryName"
      | LastModifiedDate -> "lastModifiedDate"
      | Non_static_id s -> s
    let of_string =
      function
      | "repositoryName" -> RepositoryName
      | "lastModifiedDate" -> LastModifiedDate
      | 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 SortByEnum" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortByEnum" j)
    let to_json = simple_to_json to_value
  end
module InvalidMaxResultsException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified number of maximum results is not valid."]
module RepositoryNameList =
  struct
    type nonrec t = RepositoryName.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:RepositoryName.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:RepositoryName.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryNameList" ~of_json:RepositoryName.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module AuthorDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified Amazon Resource Name (ARN) does not exist in the Amazon Web Services account."]
module InvalidAuthorArnException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) is not valid. Make sure that you have provided the full ARN for the author of the pull request, and then try again."]
module PullRequestIdList =
  struct
    type nonrec t = PullRequestId.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:PullRequestId.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:PullRequestId.of_xml)
    let of_json j =
      list_of_json ~kind:"PullRequestIdList" ~of_json:PullRequestId.of_json j
    let to_json v = composed_to_json to_value v
  end
module RevisionDag =
  struct
    type nonrec t = FileVersion.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:FileVersion.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:FileVersion.of_xml)
    let of_json j =
      list_of_json ~kind:"RevisionDag" ~of_json:FileVersion.of_json j
    let to_json v = composed_to_json to_value v
  end
module Limit =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Limit" 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 ApprovalRuleTemplateNameList =
  struct
    type nonrec t = ApprovalRuleTemplateName.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:ApprovalRuleTemplateName.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:ApprovalRuleTemplateName.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalRuleTemplateNameList"
        ~of_json:ApprovalRuleTemplateName.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidRevisionIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The revision ID is not valid. Use GetPullRequest to determine the value."]
module RevisionIdRequiredException =
  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 "A revision ID is required, but was not provided."]
module ApprovalList =
  struct
    type nonrec t = Approval.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:Approval.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:Approval.of_xml)
    let of_json j =
      list_of_json ~kind:"ApprovalList" ~of_json:Approval.of_json j
    let to_json v = composed_to_json to_value v
  end
module MergeOptions =
  struct
    type nonrec t = MergeOptionTypeEnum.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:MergeOptionTypeEnum.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:MergeOptionTypeEnum.of_xml)
    let of_json j =
      list_of_json ~kind:"MergeOptions" ~of_json:MergeOptionTypeEnum.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module ConflictMetadataList =
  struct
    type nonrec t = ConflictMetadata.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:ConflictMetadata.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:ConflictMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"ConflictMetadataList"
        ~of_json:ConflictMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidDestinationCommitSpecifierException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The destination commit specifier is not valid. You must provide a valid branch name, tag, or full commit ID."]
module InvalidMaxConflictFilesException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified value for the number of conflict files to return is not valid."]
module InvalidMergeOptionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified merge option is not valid for this operation. Not all merge strategies are supported for all operations."]
module InvalidSourceCommitSpecifierException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The source commit specifier is not valid. You must provide a valid branch name, tag, or full commit ID."]
module IsMergeable =
  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 MergeOptionRequiredException =
  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
       "A merge option or stategy is required, and none was provided."]
module FileList =
  struct
    type nonrec t = File.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:File.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:File.of_xml)
    let of_json j = list_of_json ~kind:"FileList" ~of_json:File.of_json j
    let to_json v = composed_to_json to_value v
  end
module FolderDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified folder does not exist. Either the folder name is not correct, or you did not enter the full path to the folder."]
module FolderList =
  struct
    type nonrec t = Folder.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:Folder.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:Folder.of_xml)
    let of_json j = list_of_json ~kind:"FolderList" ~of_json:Folder.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubModuleList =
  struct
    type nonrec t = SubModule.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:SubModule.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:SubModule.of_xml)
    let of_json j =
      list_of_json ~kind:"SubModuleList" ~of_json:SubModule.of_json j
    let to_json v = composed_to_json to_value v
  end
module SymbolicLinkList =
  struct
    type nonrec t = SymbolicLink.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:SymbolicLink.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:SymbolicLink.of_xml)
    let of_json j =
      list_of_json ~kind:"SymbolicLinkList" ~of_json:SymbolicLink.of_json j
    let to_json v = composed_to_json to_value v
  end
module FileDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified file does not exist. Verify that you have used the correct file name, full path, and extension."]
module FileTooLargeException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified file exceeds the file size limit for CodeCommit. For more information about limits in CodeCommit, see Quotas in the CodeCommit User Guide."]
module ObjectSize =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module DifferenceList =
  struct
    type nonrec t = Difference.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:Difference.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:Difference.of_xml)
    let of_json j =
      list_of_json ~kind:"DifferenceList" ~of_json:Difference.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommitIdDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified commit ID does not exist."]
module CommentsForPullRequestData =
  struct
    type nonrec t = CommentsForPullRequest.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:CommentsForPullRequest.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:CommentsForPullRequest.of_xml)
    let of_json j =
      list_of_json ~kind:"CommentsForPullRequestData"
        ~of_json:CommentsForPullRequest.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommentsForComparedCommitData =
  struct
    type nonrec t = CommentsForComparedCommit.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:CommentsForComparedCommit.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:CommentsForComparedCommit.of_xml)
    let of_json j =
      list_of_json ~kind:"CommentsForComparedCommitData"
        ~of_json:CommentsForComparedCommit.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidReactionUserArnException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) of the user or identity is not valid."]
module ReactionsForCommentList =
  struct
    type nonrec t = ReactionForComment.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:ReactionForComment.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:ReactionForComment.of_xml)
    let of_json j =
      list_of_json ~kind:"ReactionsForCommentList"
        ~of_json:ReactionForComment.of_json j
    let to_json v = composed_to_json to_value v
  end
module BranchInfo =
  struct
    type nonrec t =
      {
      branchName: BranchName.t option [@ocaml.doc "The name of the branch."];
      commitId: CommitId.t option
        [@ocaml.doc "The ID of the last commit made to the branch."]}
    let make ?branchName =
      fun ?commitId -> fun () -> { branchName; commitId }
    let to_value x =
      structure_to_value
        [("branchName", (Option.map x.branchName ~f:BranchName.to_value));
        ("commitId", (Option.map x.commitId ~f:CommitId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "commitId") in
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      make ?commitId ?branchName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commitId = field_map json__ "commitId" CommitId.of_json in
      let branchName = field_map json__ "branchName" BranchName.of_json in
      make ?commitId ?branchName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a branch."]
module BlobIdDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified blob does not exist."]
module BlobIdRequiredException =
  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 "A blob ID is required, but was not specified."]
module InvalidBlobIdException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified blob is not valid."]
module Blob =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Blob x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml xml_arg0 = string_of_xml ~kind:"a blob" xml_arg0
    let of_json j = string_of_json ~kind:"a blob" j
    let to_json = simple_to_json to_value
  end
module Evaluation =
  struct
    type nonrec t =
      {
      approved: Approved.t option
        [@ocaml.doc "Whether the state of the pull request is approved."];
      overridden: Overridden.t option
        [@ocaml.doc
          "Whether the approval rule requirements for the pull request have been overridden and no longer need to be met."];
      approvalRulesSatisfied: ApprovalRulesSatisfiedList.t option
        [@ocaml.doc
          "The names of the approval rules that have had their conditions met."];
      approvalRulesNotSatisfied: ApprovalRulesNotSatisfiedList.t option
        [@ocaml.doc
          "The names of the approval rules that have not had their conditions met."]}
    let make ?approved =
      fun ?overridden ->
        fun ?approvalRulesSatisfied ->
          fun ?approvalRulesNotSatisfied ->
            fun () ->
              {
                approved;
                overridden;
                approvalRulesSatisfied;
                approvalRulesNotSatisfied
              }
    let to_value x =
      structure_to_value
        [("approved", (Option.map x.approved ~f:Approved.to_value));
        ("overridden", (Option.map x.overridden ~f:Overridden.to_value));
        ("approvalRulesSatisfied",
          (Option.map x.approvalRulesSatisfied
             ~f:ApprovalRulesSatisfiedList.to_value));
        ("approvalRulesNotSatisfied",
          (Option.map x.approvalRulesNotSatisfied
             ~f:ApprovalRulesNotSatisfiedList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRulesNotSatisfied =
        (Option.map ~f:ApprovalRulesNotSatisfiedList.of_xml)
          (Xml.child xml_arg0 "approvalRulesNotSatisfied") in
      let approvalRulesSatisfied =
        (Option.map ~f:ApprovalRulesSatisfiedList.of_xml)
          (Xml.child xml_arg0 "approvalRulesSatisfied") in
      let overridden =
        (Option.map ~f:Overridden.of_xml) (Xml.child xml_arg0 "overridden") in
      let approved =
        (Option.map ~f:Approved.of_xml) (Xml.child xml_arg0 "approved") in
      make ?approvalRulesNotSatisfied ?approvalRulesSatisfied ?overridden
        ?approved ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRulesNotSatisfied =
        field_map json__ "approvalRulesNotSatisfied"
          ApprovalRulesNotSatisfiedList.of_json in
      let approvalRulesSatisfied =
        field_map json__ "approvalRulesSatisfied"
          ApprovalRulesSatisfiedList.of_json in
      let overridden = field_map json__ "overridden" Overridden.of_json in
      let approved = field_map json__ "approved" Approved.of_json in
      make ?approvalRulesNotSatisfied ?approvalRulesSatisfied ?overridden
        ?approved ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the approval rules applied to a pull request and whether conditions have been met."]
module RevisionNotCurrentException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The revision ID provided in the request does not match the current revision ID. Use GetPullRequest to retrieve the current revision ID."]
module ActorDoesNotExistException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified Amazon Resource Name (ARN) does not exist in the Amazon Web Services account."]
module InvalidActorArnException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon Resource Name (ARN) is not valid. Make sure that you have provided the full ARN for the user who initiated the change for the pull request, and then try again."]
module InvalidPullRequestEventTypeException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The pull request event type is not valid."]
module PullRequestEventList =
  struct
    type nonrec t = PullRequestEvent.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:PullRequestEvent.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:PullRequestEvent.of_xml)
    let of_json j =
      list_of_json ~kind:"PullRequestEventList"
        ~of_json:PullRequestEvent.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidMaxMergeHunksException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified value for the number of merge hunks to return is not valid."]
module CannotDeleteApprovalRuleFromTemplateException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The approval rule cannot be deleted from the pull request because it was created by an approval rule template and applied to the pull request automatically."]
module DefaultBranchCannotBeDeletedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified branch is the default branch for the repository, and cannot be deleted. To delete this branch, you must first set another branch as the default branch."]
module ApprovalRuleTemplateInUseException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The approval rule template is associated with one or more repositories. You cannot delete a template that is associated with a repository. Remove all associations, and then try again."]
module InvalidRepositoryDescriptionException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified repository description is not valid."]
module InvalidSystemTagUsageException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified tag is not valid. Key names cannot be prefixed with aws:."]
module InvalidTagsMapException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The map of tags is not valid."]
module OperationNotAllowedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested action is not allowed."]
module RepositoryLimitExceededException =
  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 "A repository resource limit was exceeded."]
module RepositoryNameExistsException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified repository name already exists."]
module TagPolicyException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The tag policy is not valid."]
module TooManyTagsException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of tags for an CodeCommit resource has been exceeded."]
module InvalidReferenceNameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified reference name format is not valid. Reference names must conform to the Git references format (for example, refs/heads/main). For more information, see Git Internals - Git References or consult your Git documentation."]
module InvalidTargetException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The target for the pull request is not valid. A target must contain the full values for the repository name, source branch, and destination branch for the pull request."]
module InvalidTargetsException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The targets for the pull request is not valid or not in a valid format. Targets are a list of target objects. Each target object must contain the full values for the repository name, source branch, and destination branch for a pull request."]
module MaximumOpenPullRequestsExceededException =
  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
       "You cannot create the pull request because the repository has too many open pull requests. The maximum number of open pull requests for a repository is 1,000. Close one or more open pull requests, and then try again."]
module MultipleRepositoriesInPullRequestException =
  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
       "You cannot include more than one repository in a pull request. Make sure you have specified only one repository name in your request, and then try again."]
module ReferenceNameRequiredException =
  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 "A reference name is required, but none was provided."]
module ReferenceTypeNotSupportedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified reference is not a supported type."]
module SourceAndDestinationAreSameException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The source branch and destination branch for the pull request are the same. You must specify different branches for the source and destination."]
module TargetRequiredException =
  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
       "A pull request target is required. It cannot be empty or null. A pull request target must contain the full values for the repository name, source branch, and destination branch for the pull request."]
module TargetsRequiredException =
  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
       "An array of target objects is required. It cannot be empty or null."]
module TargetList =
  struct
    type nonrec t = Target.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:Target.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:Target.of_xml)
    let of_json j = list_of_json ~kind:"TargetList" ~of_json:Target.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApprovalRuleNameAlreadyExistsException =
  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
       "An approval rule with that name already exists. Approval rule names must be unique within the scope of a pull request."]
module NumberOfRulesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The approval rule cannot be added. The pull request has the maximum number of approval rules associated with it."]
module FileContentAndSourceFileSpecifiedException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because both a source file and file content have been specified for the same file. You cannot provide both. Either specify a source file or provide the file content directly."]
module FileEntryRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because no files have been specified as added, updated, or changed (PutFile or DeleteFile) for the commit."]
module FilesMetadata =
  struct
    type nonrec t = FileMetadata.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:FileMetadata.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:FileMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FilesMetadata" ~of_json:FileMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaximumFileEntriesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of specified files to change as part of this commit exceeds the maximum number of files that can be changed in a single commit. Consider using a Git client for these changes."]
module NoChangeException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because no changes will be made to the repository as a result of this commit. A commit must contain at least one change."]
module PutFileEntryConflictException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because one or more files specified in the commit reference both a file and a folder."]
module RestrictedSourceFileException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because one of the changes specifies copying or moving a .gitkeep file."]
module SamePathRequestException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because one or more changes in this commit duplicate actions in the same file path. For example, you cannot make the same delete request to the same file in the same file path twice, or make a delete request and a move request to the same file as part of the same commit."]
module SourceFileOrContentRequiredException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The commit cannot be created because no source files or file content have been specified for the commit."]
module PutFileEntries =
  struct
    type nonrec t = PutFileEntry.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:PutFileEntry.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:PutFileEntry.of_xml)
    let of_json j =
      list_of_json ~kind:"PutFileEntries" ~of_json:PutFileEntry.of_json j
    let to_json v = composed_to_json to_value v
  end
module NumberOfRuleTemplatesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of approval rule templates has been exceeded for this Amazon Web Services Region."]
module BatchGetRepositoriesErrorsList =
  struct
    type nonrec t = BatchGetRepositoriesError.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:BatchGetRepositoriesError.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:BatchGetRepositoriesError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetRepositoriesErrorsList"
        ~of_json:BatchGetRepositoriesError.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaximumRepositoryNamesExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of allowed repository names was exceeded. Currently, this number is 100."]
module RepositoryMetadataList =
  struct
    type nonrec t = RepositoryMetadata.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:RepositoryMetadata.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:RepositoryMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryMetadataList"
        ~of_json:RepositoryMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module RepositoryNamesRequiredException =
  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
       "At least one repository name object is required, but was not specified."]
module RepositoryNotFoundList =
  struct
    type nonrec t = RepositoryName.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:RepositoryName.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:RepositoryName.of_xml)
    let of_json j =
      list_of_json ~kind:"RepositoryNotFoundList"
        ~of_json:RepositoryName.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchGetCommitsErrorsList =
  struct
    type nonrec t = BatchGetCommitsError.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:BatchGetCommitsError.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:BatchGetCommitsError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchGetCommitsErrorsList"
        ~of_json:BatchGetCommitsError.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommitIdsLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of allowed commit IDs in a batch request is 100. Verify that your batch requests contains no more than 100 commit IDs, and then try again."]
module CommitIdsListRequiredException =
  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
       "A list of commit IDs is required, but was either not specified or the list was empty."]
module CommitObjectsList =
  struct
    type nonrec t = Commit.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:Commit.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:Commit.of_xml)
    let of_json j =
      list_of_json ~kind:"CommitObjectsList" ~of_json:Commit.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommitIdsInputList =
  struct
    type nonrec t = ObjectId.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:ObjectId.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:ObjectId.of_xml)
    let of_json j =
      list_of_json ~kind:"CommitIdsInputList" ~of_json:ObjectId.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList =
  struct
    type nonrec t =
      BatchDisassociateApprovalRuleTemplateFromRepositoriesError.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:BatchDisassociateApprovalRuleTemplateFromRepositoriesError.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:BatchDisassociateApprovalRuleTemplateFromRepositoriesError.of_xml)
    let of_json j =
      list_of_json
        ~kind:"BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList"
        ~of_json:BatchDisassociateApprovalRuleTemplateFromRepositoriesError.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module BatchDescribeMergeConflictsErrors =
  struct
    type nonrec t = BatchDescribeMergeConflictsError.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:BatchDescribeMergeConflictsError.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:BatchDescribeMergeConflictsError.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchDescribeMergeConflictsErrors"
        ~of_json:BatchDescribeMergeConflictsError.of_json j
    let to_json v = composed_to_json to_value v
  end
module Conflicts =
  struct
    type nonrec t = Conflict.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:Conflict.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:Conflict.of_xml)
    let of_json j =
      list_of_json ~kind:"Conflicts" ~of_json:Conflict.of_json j
    let to_json v = composed_to_json to_value v
  end
module FilePaths =
  struct
    type nonrec t = Path.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:Path.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:Path.of_xml)
    let of_json j = list_of_json ~kind:"FilePaths" ~of_json:Path.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList =
  struct
    type nonrec t =
      BatchAssociateApprovalRuleTemplateWithRepositoriesError.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:BatchAssociateApprovalRuleTemplateWithRepositoriesError.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:BatchAssociateApprovalRuleTemplateWithRepositoriesError.of_xml)
    let of_json j =
      list_of_json
        ~kind:"BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList"
        ~of_json:BatchAssociateApprovalRuleTemplateWithRepositoriesError.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module UpdateRepositoryNameInput =
  struct
    type nonrec t =
      {
      oldName: RepositoryName.t
        [@ocaml.doc "The current name of the repository."];
      newName: RepositoryName.t
        [@ocaml.doc "The new name for the repository."]}
    let context_ = "UpdateRepositoryNameInput"
    let make ~oldName = fun ~newName -> fun () -> { oldName; newName }
    let to_value x =
      structure_to_value
        [("oldName", (Some (RepositoryName.to_value x.oldName)));
        ("newName", (Some (RepositoryName.to_value x.newName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "newName") in
      let oldName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "oldName") in
      make ~newName ~oldName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newName = field_map_exn json__ "newName" RepositoryName.of_json in
      let oldName = field_map_exn json__ "oldName" RepositoryName.of_json in
      make ~newName ~oldName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of an update repository description operation."]
module UpdateRepositoryEncryptionKeyOutput =
  struct
    type nonrec t =
      {
      repositoryId: RepositoryId.t option
        [@ocaml.doc "The ID of the repository."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc "The ID of the encryption key."];
      originalKmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "The ID of the encryption key formerly used to encrypt and decrypt the repository."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyInvalidIdException of EncryptionKeyInvalidIdException.t 
      | `EncryptionKeyInvalidUsageException of
          EncryptionKeyInvalidUsageException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyRequiredException of EncryptionKeyRequiredException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryId =
      fun ?kmsKeyId ->
        fun ?originalKmsKeyId ->
          fun () -> { repositoryId; kmsKeyId; originalKmsKeyId }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyInvalidIdException" ->
          `EncryptionKeyInvalidIdException
            (EncryptionKeyInvalidIdException.of_json json)
      | "EncryptionKeyInvalidUsageException" ->
          `EncryptionKeyInvalidUsageException
            (EncryptionKeyInvalidUsageException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyRequiredException" ->
          `EncryptionKeyRequiredException
            (EncryptionKeyRequiredException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyInvalidIdException" ->
          `EncryptionKeyInvalidIdException
            (EncryptionKeyInvalidIdException.of_xml xml)
      | "EncryptionKeyInvalidUsageException" ->
          `EncryptionKeyInvalidUsageException
            (EncryptionKeyInvalidUsageException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyRequiredException" ->
          `EncryptionKeyRequiredException
            (EncryptionKeyRequiredException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyInvalidIdException e ->
          `Assoc
            [("error", (`String "EncryptionKeyInvalidIdException"));
            ("details", (EncryptionKeyInvalidIdException.to_json e))]
      | `EncryptionKeyInvalidUsageException e ->
          `Assoc
            [("error", (`String "EncryptionKeyInvalidUsageException"));
            ("details", (EncryptionKeyInvalidUsageException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyRequiredException e ->
          `Assoc
            [("error", (`String "EncryptionKeyRequiredException"));
            ("details", (EncryptionKeyRequiredException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("repositoryId",
           (Option.map x.repositoryId ~f:RepositoryId.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value));
        ("originalKmsKeyId",
          (Option.map x.originalKmsKeyId ~f:KmsKeyId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let originalKmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml)
          (Xml.child xml_arg0 "originalKmsKeyId") in
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let repositoryId =
        (Option.map ~f:RepositoryId.of_xml)
          (Xml.child xml_arg0 "repositoryId") in
      make ?originalKmsKeyId ?kmsKeyId ?repositoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let originalKmsKeyId =
        field_map json__ "originalKmsKeyId" KmsKeyId.of_json in
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let repositoryId = field_map json__ "repositoryId" RepositoryId.of_json in
      make ?originalKmsKeyId ?kmsKeyId ?repositoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the Key Management Service encryption key used to encrypt and decrypt a CodeCommit repository."]
module UpdateRepositoryEncryptionKeyInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository for which you want to update the KMS encryption key used to encrypt and decrypt the repository."];
      kmsKeyId: KmsKeyId.t
        [@ocaml.doc
          "The ID of the encryption key. You can view the ID of an encryption key in the KMS console, or use the KMS APIs to programmatically retrieve a key ID. For more information about acceptable values for keyID, see KeyId in the Decrypt API description in the Key Management Service API Reference."]}
    let context_ = "UpdateRepositoryEncryptionKeyInput"
    let make ~repositoryName =
      fun ~kmsKeyId -> fun () -> { repositoryName; kmsKeyId }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("kmsKeyId", (Some (KmsKeyId.to_value x.kmsKeyId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        KmsKeyId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "kmsKeyId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~kmsKeyId ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map_exn json__ "kmsKeyId" KmsKeyId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~kmsKeyId ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the Key Management Service encryption key used to encrypt and decrypt a CodeCommit repository."]
module UpdateRepositoryDescriptionInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository to set or change the comment or description for."];
      repositoryDescription: RepositoryDescription.t option
        [@ocaml.doc
          "The new comment or description for the specified repository. Repository descriptions are limited to 1,000 characters."]}
    let context_ = "UpdateRepositoryDescriptionInput"
    let make ?repositoryDescription =
      fun ~repositoryName ->
        fun () -> { repositoryDescription; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("repositoryDescription",
          (Option.map x.repositoryDescription
             ~f:RepositoryDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryDescription =
        (Option.map ~f:RepositoryDescription.of_xml)
          (Xml.child xml_arg0 "repositoryDescription") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?repositoryDescription ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryDescription =
        field_map json__ "repositoryDescription"
          RepositoryDescription.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?repositoryDescription ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of an update repository description operation."]
module UpdatePullRequestTitleOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc "Information about the updated pull request."]}
    type nonrec error =
      [ `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidTitleException of InvalidTitleException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `TitleRequiredException of TitleRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidTitleException" ->
          `InvalidTitleException (InvalidTitleException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "TitleRequiredException" ->
          `TitleRequiredException (TitleRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidTitleException" ->
          `InvalidTitleException (InvalidTitleException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "TitleRequiredException" ->
          `TitleRequiredException (TitleRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidTitleException e ->
          `Assoc
            [("error", (`String "InvalidTitleException"));
            ("details", (InvalidTitleException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `TitleRequiredException e ->
          `Assoc
            [("error", (`String "TitleRequiredException"));
            ("details", (TitleRequiredException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Replaces the title of a pull request."]
module UpdatePullRequestTitleInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      title: Title.t
        [@ocaml.doc
          "The updated title of the pull request. This replaces the existing title."]}
    let context_ = "UpdatePullRequestTitleInput"
    let make ~pullRequestId =
      fun ~title -> fun () -> { pullRequestId; title }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("title", (Some (Title.to_value x.title)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~title ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let title = field_map_exn json__ "title" Title.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~title ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Replaces the title of a pull request."]
module UpdatePullRequestStatusOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc "Information about the pull request."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidPullRequestStatusException of
          InvalidPullRequestStatusException.t 
      | `InvalidPullRequestStatusUpdateException of
          InvalidPullRequestStatusUpdateException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `PullRequestStatusRequiredException of
          PullRequestStatusRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidPullRequestStatusException" ->
          `InvalidPullRequestStatusException
            (InvalidPullRequestStatusException.of_json json)
      | "InvalidPullRequestStatusUpdateException" ->
          `InvalidPullRequestStatusUpdateException
            (InvalidPullRequestStatusUpdateException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "PullRequestStatusRequiredException" ->
          `PullRequestStatusRequiredException
            (PullRequestStatusRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidPullRequestStatusException" ->
          `InvalidPullRequestStatusException
            (InvalidPullRequestStatusException.of_xml xml)
      | "InvalidPullRequestStatusUpdateException" ->
          `InvalidPullRequestStatusUpdateException
            (InvalidPullRequestStatusUpdateException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "PullRequestStatusRequiredException" ->
          `PullRequestStatusRequiredException
            (PullRequestStatusRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidPullRequestStatusException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestStatusException"));
            ("details", (InvalidPullRequestStatusException.to_json e))]
      | `InvalidPullRequestStatusUpdateException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestStatusUpdateException"));
            ("details", (InvalidPullRequestStatusUpdateException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `PullRequestStatusRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestStatusRequiredException"));
            ("details", (PullRequestStatusRequiredException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the status of a pull request."]
module UpdatePullRequestStatusInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      pullRequestStatus: PullRequestStatusEnum.t
        [@ocaml.doc
          "The status of the pull request. The only valid operations are to update the status from OPEN to OPEN, OPEN to CLOSED or from CLOSED to CLOSED."]}
    let context_ = "UpdatePullRequestStatusInput"
    let make ~pullRequestId =
      fun ~pullRequestStatus ->
        fun () -> { pullRequestId; pullRequestStatus }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("pullRequestStatus",
          (Some (PullRequestStatusEnum.to_value x.pullRequestStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequestStatus =
        PullRequestStatusEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestStatus") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~pullRequestStatus ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequestStatus =
        field_map_exn json__ "pullRequestStatus"
          PullRequestStatusEnum.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~pullRequestStatus ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the status of a pull request."]
module UpdatePullRequestDescriptionOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc "Information about the updated pull request."]}
    type nonrec error =
      [ `InvalidDescriptionException of InvalidDescriptionException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "InvalidDescriptionException" ->
          `InvalidDescriptionException
            (InvalidDescriptionException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidDescriptionException" ->
          `InvalidDescriptionException
            (InvalidDescriptionException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidDescriptionException e ->
          `Assoc
            [("error", (`String "InvalidDescriptionException"));
            ("details", (InvalidDescriptionException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Replaces the contents of the description of a pull request."]
module UpdatePullRequestDescriptionInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      description: Description.t
        [@ocaml.doc
          "The updated content of the description for the pull request. This content replaces the existing description."]}
    let context_ = "UpdatePullRequestDescriptionInput"
    let make ~pullRequestId =
      fun ~description -> fun () -> { pullRequestId; description }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("description", (Some (Description.to_value x.description)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let description =
        Description.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "description") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~description ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let description =
        field_map_exn json__ "description" Description.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~description ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Replaces the contents of the description of a pull request."]
module UpdatePullRequestApprovalStateInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc "The system-generated ID of the pull request."];
      revisionId: RevisionId.t
        [@ocaml.doc "The system-generated ID of the revision."];
      approvalState: ApprovalState.t
        [@ocaml.doc
          "The approval state to associate with the user on the pull request."]}
    let context_ = "UpdatePullRequestApprovalStateInput"
    let make ~pullRequestId =
      fun ~revisionId ->
        fun ~approvalState ->
          fun () -> { pullRequestId; revisionId; approvalState }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)));
        ("approvalState", (Some (ApprovalState.to_value x.approvalState)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalState =
        ApprovalState.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "approvalState") in
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~approvalState ~revisionId ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalState =
        field_map_exn json__ "approvalState" ApprovalState.of_json in
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~approvalState ~revisionId ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the state of a user's approval on a pull request. The user is derived from the signed-in account when the request is made."]
module UpdatePullRequestApprovalRuleContentOutput =
  struct
    type nonrec t =
      {
      approvalRule: ApprovalRule.t option
        [@ocaml.doc "Information about the updated approval rule."]}
    type nonrec error =
      [
        `ApprovalRuleContentRequiredException of
          ApprovalRuleContentRequiredException.t 
      | `ApprovalRuleDoesNotExistException of
          ApprovalRuleDoesNotExistException.t 
      | `ApprovalRuleNameRequiredException of
          ApprovalRuleNameRequiredException.t 
      | `CannotModifyApprovalRuleFromTemplateException of
          CannotModifyApprovalRuleFromTemplateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleContentException of
          InvalidApprovalRuleContentException.t 
      | `InvalidApprovalRuleNameException of
          InvalidApprovalRuleNameException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRuleContentSha256Exception of
          InvalidRuleContentSha256Exception.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRule = fun () -> { approvalRule }
    let error_of_json name json =
      match name with
      | "ApprovalRuleContentRequiredException" ->
          `ApprovalRuleContentRequiredException
            (ApprovalRuleContentRequiredException.of_json json)
      | "ApprovalRuleDoesNotExistException" ->
          `ApprovalRuleDoesNotExistException
            (ApprovalRuleDoesNotExistException.of_json json)
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_json json)
      | "CannotModifyApprovalRuleFromTemplateException" ->
          `CannotModifyApprovalRuleFromTemplateException
            (CannotModifyApprovalRuleFromTemplateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleContentException" ->
          `InvalidApprovalRuleContentException
            (InvalidApprovalRuleContentException.of_json json)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRuleContentSha256Exception" ->
          `InvalidRuleContentSha256Exception
            (InvalidRuleContentSha256Exception.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleContentRequiredException" ->
          `ApprovalRuleContentRequiredException
            (ApprovalRuleContentRequiredException.of_xml xml)
      | "ApprovalRuleDoesNotExistException" ->
          `ApprovalRuleDoesNotExistException
            (ApprovalRuleDoesNotExistException.of_xml xml)
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_xml xml)
      | "CannotModifyApprovalRuleFromTemplateException" ->
          `CannotModifyApprovalRuleFromTemplateException
            (CannotModifyApprovalRuleFromTemplateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleContentException" ->
          `InvalidApprovalRuleContentException
            (InvalidApprovalRuleContentException.of_xml xml)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRuleContentSha256Exception" ->
          `InvalidRuleContentSha256Exception
            (InvalidRuleContentSha256Exception.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleContentRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleContentRequiredException"));
            ("details", (ApprovalRuleContentRequiredException.to_json e))]
      | `ApprovalRuleDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleDoesNotExistException"));
            ("details", (ApprovalRuleDoesNotExistException.to_json e))]
      | `ApprovalRuleNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleNameRequiredException"));
            ("details", (ApprovalRuleNameRequiredException.to_json e))]
      | `CannotModifyApprovalRuleFromTemplateException e ->
          `Assoc
            [("error",
               (`String "CannotModifyApprovalRuleFromTemplateException"));
            ("details",
              (CannotModifyApprovalRuleFromTemplateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleContentException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleContentException"));
            ("details", (InvalidApprovalRuleContentException.to_json e))]
      | `InvalidApprovalRuleNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleNameException"));
            ("details", (InvalidApprovalRuleNameException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRuleContentSha256Exception e ->
          `Assoc
            [("error", (`String "InvalidRuleContentSha256Exception"));
            ("details", (InvalidRuleContentSha256Exception.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("approvalRule",
           (Option.map x.approvalRule ~f:ApprovalRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRule =
        (Option.map ~f:ApprovalRule.of_xml)
          (Xml.child xml_arg0 "approvalRule") in
      make ?approvalRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRule = field_map json__ "approvalRule" ApprovalRule.of_json in
      make ?approvalRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the structure of an approval rule created specifically for a pull request. For example, you can change the number of required approvers and the approval pool for approvers."]
module UpdatePullRequestApprovalRuleContentInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc "The system-generated ID of the pull request."];
      approvalRuleName: ApprovalRuleName.t
        [@ocaml.doc "The name of the approval rule you want to update."];
      existingRuleContentSha256: RuleContentSha256.t option
        [@ocaml.doc
          "The SHA-256 hash signature for the content of the approval rule. You can retrieve this information by using GetPullRequest."];
      newRuleContent: ApprovalRuleContent.t
        [@ocaml.doc
          "The updated content for the approval rule. When you update the content of the approval rule, you can specify approvers in an approval pool in one of two ways: CodeCommitApprovers: This option only requires an Amazon Web Services account and a resource. It can be used for both IAM users and federated access users whose name matches the provided resource name. This is a very powerful option that offers a great deal of flexibility. For example, if you specify the Amazon Web Services account 123456789012 and Mary_Major, all of the following are counted as approvals coming from that user: An IAM user in the account (arn:aws:iam::123456789012:user/Mary_Major) A federated user identified in IAM as Mary_Major (arn:aws:sts::123456789012:federated-user/Mary_Major) This option does not recognize an active session of someone assuming the role of CodeCommitReview with a role session name of Mary_Major (arn:aws:sts::123456789012:assumed-role/CodeCommitReview/Mary_Major) unless you include a wildcard (*Mary_Major). Fully qualified ARN: This option allows you to specify the fully qualified Amazon Resource Name (ARN) of the IAM user or role. For more information about IAM ARNs, wildcards, and formats, see IAM Identifiers in the IAM User Guide."]}
    let context_ = "UpdatePullRequestApprovalRuleContentInput"
    let make ?existingRuleContentSha256 =
      fun ~pullRequestId ->
        fun ~approvalRuleName ->
          fun ~newRuleContent ->
            fun () ->
              {
                existingRuleContentSha256;
                pullRequestId;
                approvalRuleName;
                newRuleContent
              }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("approvalRuleName",
          (Some (ApprovalRuleName.to_value x.approvalRuleName)));
        ("existingRuleContentSha256",
          (Option.map x.existingRuleContentSha256
             ~f:RuleContentSha256.to_value));
        ("newRuleContent",
          (Some (ApprovalRuleContent.to_value x.newRuleContent)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newRuleContent =
        ApprovalRuleContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "newRuleContent") in
      let existingRuleContentSha256 =
        (Option.map ~f:RuleContentSha256.of_xml)
          (Xml.child xml_arg0 "existingRuleContentSha256") in
      let approvalRuleName =
        ApprovalRuleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "approvalRuleName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~newRuleContent ?existingRuleContentSha256 ~approvalRuleName
        ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newRuleContent =
        field_map_exn json__ "newRuleContent" ApprovalRuleContent.of_json in
      let existingRuleContentSha256 =
        field_map json__ "existingRuleContentSha256"
          RuleContentSha256.of_json in
      let approvalRuleName =
        field_map_exn json__ "approvalRuleName" ApprovalRuleName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~newRuleContent ?existingRuleContentSha256 ~approvalRuleName
        ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the structure of an approval rule created specifically for a pull request. For example, you can change the number of required approvers and the approval pool for approvers."]
module UpdateDefaultBranchInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository for which you want to set or change the default branch."];
      defaultBranchName: BranchName.t
        [@ocaml.doc "The name of the branch to set as the default branch."]}
    let context_ = "UpdateDefaultBranchInput"
    let make ~repositoryName =
      fun ~defaultBranchName ->
        fun () -> { repositoryName; defaultBranchName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("defaultBranchName",
          (Some (BranchName.to_value x.defaultBranchName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultBranchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "defaultBranchName") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~defaultBranchName ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultBranchName =
        field_map_exn json__ "defaultBranchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~defaultBranchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of an update default branch operation."]
module UpdateCommentOutput =
  struct
    type nonrec t =
      {
      comment: Comment.t option
        [@ocaml.doc "Information about the updated comment."]}
    type nonrec error =
      [
        `CommentContentRequiredException of CommentContentRequiredException.t 
      | `CommentContentSizeLimitExceededException of
          CommentContentSizeLimitExceededException.t 
      | `CommentDeletedException of CommentDeletedException.t 
      | `CommentDoesNotExistException of CommentDoesNotExistException.t 
      | `CommentIdRequiredException of CommentIdRequiredException.t 
      | `CommentNotCreatedByCallerException of
          CommentNotCreatedByCallerException.t 
      | `InvalidCommentIdException of InvalidCommentIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comment = fun () -> { comment }
    let error_of_json name json =
      match name with
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_json json)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_json json)
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_json json)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_json json)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException
            (CommentIdRequiredException.of_json json)
      | "CommentNotCreatedByCallerException" ->
          `CommentNotCreatedByCallerException
            (CommentNotCreatedByCallerException.of_json json)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_xml xml)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_xml xml)
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_xml xml)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_xml xml)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException (CommentIdRequiredException.of_xml xml)
      | "CommentNotCreatedByCallerException" ->
          `CommentNotCreatedByCallerException
            (CommentNotCreatedByCallerException.of_xml xml)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommentContentRequiredException e ->
          `Assoc
            [("error", (`String "CommentContentRequiredException"));
            ("details", (CommentContentRequiredException.to_json e))]
      | `CommentContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "CommentContentSizeLimitExceededException"));
            ("details", (CommentContentSizeLimitExceededException.to_json e))]
      | `CommentDeletedException e ->
          `Assoc
            [("error", (`String "CommentDeletedException"));
            ("details", (CommentDeletedException.to_json e))]
      | `CommentDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommentDoesNotExistException"));
            ("details", (CommentDoesNotExistException.to_json e))]
      | `CommentIdRequiredException e ->
          `Assoc
            [("error", (`String "CommentIdRequiredException"));
            ("details", (CommentIdRequiredException.to_json e))]
      | `CommentNotCreatedByCallerException e ->
          `Assoc
            [("error", (`String "CommentNotCreatedByCallerException"));
            ("details", (CommentNotCreatedByCallerException.to_json e))]
      | `InvalidCommentIdException e ->
          `Assoc
            [("error", (`String "InvalidCommentIdException"));
            ("details", (InvalidCommentIdException.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
        [("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      make ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      make ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Replaces the contents of a comment."]
module UpdateCommentInput =
  struct
    type nonrec t =
      {
      commentId: CommentId.t
        [@ocaml.doc
          "The system-generated ID of the comment you want to update. To get this ID, use GetCommentsForComparedCommit or GetCommentsForPullRequest."];
      content: Content.t
        [@ocaml.doc
          "The updated content to replace the existing content of the comment."]}
    let context_ = "UpdateCommentInput"
    let make ~commentId = fun ~content -> fun () -> { commentId; content }
    let to_value x =
      structure_to_value
        [("commentId", (Some (CommentId.to_value x.commentId)));
        ("content", (Some (Content.to_value x.content)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      make ~content ~commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map_exn json__ "content" Content.of_json in
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      make ~content ~commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Replaces the contents of a comment."]
module UpdateApprovalRuleTemplateNameOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplate: ApprovalRuleTemplate.t option
        [@ocaml.doc
          "The structure and content of the updated approval rule template."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameAlreadyExistsException of
          ApprovalRuleTemplateNameAlreadyExistsException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplate = fun () -> { approvalRuleTemplate }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameAlreadyExistsException" ->
          `ApprovalRuleTemplateNameAlreadyExistsException
            (ApprovalRuleTemplateNameAlreadyExistsException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameAlreadyExistsException" ->
          `ApprovalRuleTemplateNameAlreadyExistsException
            (ApprovalRuleTemplateNameAlreadyExistsException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameAlreadyExistsException e ->
          `Assoc
            [("error",
               (`String "ApprovalRuleTemplateNameAlreadyExistsException"));
            ("details",
              (ApprovalRuleTemplateNameAlreadyExistsException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.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
        [("approvalRuleTemplate",
           (Option.map x.approvalRuleTemplate
              ~f:ApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplate =
        (Option.map ~f:ApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplate") in
      make ?approvalRuleTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplate =
        field_map json__ "approvalRuleTemplate" ApprovalRuleTemplate.of_json in
      make ?approvalRuleTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the name of a specified approval rule template."]
module UpdateApprovalRuleTemplateNameInput =
  struct
    type nonrec t =
      {
      oldApprovalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc "The current name of the approval rule template."];
      newApprovalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The new name you want to apply to the approval rule template."]}
    let context_ = "UpdateApprovalRuleTemplateNameInput"
    let make ~oldApprovalRuleTemplateName =
      fun ~newApprovalRuleTemplateName ->
        fun () ->
          { oldApprovalRuleTemplateName; newApprovalRuleTemplateName }
    let to_value x =
      structure_to_value
        [("oldApprovalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value
                 x.oldApprovalRuleTemplateName)));
        ("newApprovalRuleTemplateName",
          (Some
             (ApprovalRuleTemplateName.to_value x.newApprovalRuleTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let newApprovalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "newApprovalRuleTemplateName") in
      let oldApprovalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "oldApprovalRuleTemplateName") in
      make ~newApprovalRuleTemplateName ~oldApprovalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let newApprovalRuleTemplateName =
        field_map_exn json__ "newApprovalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      let oldApprovalRuleTemplateName =
        field_map_exn json__ "oldApprovalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~newApprovalRuleTemplateName ~oldApprovalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the name of a specified approval rule template."]
module UpdateApprovalRuleTemplateDescriptionOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplate: ApprovalRuleTemplate.t option
        [@ocaml.doc
          "The structure and content of the updated approval rule template."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateDescriptionException of
          InvalidApprovalRuleTemplateDescriptionException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplate = fun () -> { approvalRuleTemplate }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateDescriptionException" ->
          `InvalidApprovalRuleTemplateDescriptionException
            (InvalidApprovalRuleTemplateDescriptionException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateDescriptionException" ->
          `InvalidApprovalRuleTemplateDescriptionException
            (InvalidApprovalRuleTemplateDescriptionException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateDescriptionException e ->
          `Assoc
            [("error",
               (`String "InvalidApprovalRuleTemplateDescriptionException"));
            ("details",
              (InvalidApprovalRuleTemplateDescriptionException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.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
        [("approvalRuleTemplate",
           (Option.map x.approvalRuleTemplate
              ~f:ApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplate =
        (Option.map ~f:ApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplate") in
      make ?approvalRuleTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplate =
        field_map json__ "approvalRuleTemplate" ApprovalRuleTemplate.of_json in
      make ?approvalRuleTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the description for a specified approval rule template."]
module UpdateApprovalRuleTemplateDescriptionInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the template for which you want to update the description."];
      approvalRuleTemplateDescription: ApprovalRuleTemplateDescription.t
        [@ocaml.doc "The updated description of the approval rule template."]}
    let context_ = "UpdateApprovalRuleTemplateDescriptionInput"
    let make ~approvalRuleTemplateName =
      fun ~approvalRuleTemplateDescription ->
        fun () ->
          { approvalRuleTemplateName; approvalRuleTemplateDescription }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("approvalRuleTemplateDescription",
          (Some
             (ApprovalRuleTemplateDescription.to_value
                x.approvalRuleTemplateDescription)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateDescription =
        ApprovalRuleTemplateDescription.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateDescription") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~approvalRuleTemplateDescription ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateDescription =
        field_map_exn json__ "approvalRuleTemplateDescription"
          ApprovalRuleTemplateDescription.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~approvalRuleTemplateDescription ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the description for a specified approval rule template."]
module UpdateApprovalRuleTemplateContentOutput =
  struct
    type nonrec t = {
      approvalRuleTemplate: ApprovalRuleTemplate.t option }
    type nonrec error =
      [
        `ApprovalRuleTemplateContentRequiredException of
          ApprovalRuleTemplateContentRequiredException.t 
      | `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateContentException of
          InvalidApprovalRuleTemplateContentException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `InvalidRuleContentSha256Exception of
          InvalidRuleContentSha256Exception.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplate = fun () -> { approvalRuleTemplate }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateContentRequiredException" ->
          `ApprovalRuleTemplateContentRequiredException
            (ApprovalRuleTemplateContentRequiredException.of_json json)
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateContentException" ->
          `InvalidApprovalRuleTemplateContentException
            (InvalidApprovalRuleTemplateContentException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | "InvalidRuleContentSha256Exception" ->
          `InvalidRuleContentSha256Exception
            (InvalidRuleContentSha256Exception.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateContentRequiredException" ->
          `ApprovalRuleTemplateContentRequiredException
            (ApprovalRuleTemplateContentRequiredException.of_xml xml)
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateContentException" ->
          `InvalidApprovalRuleTemplateContentException
            (InvalidApprovalRuleTemplateContentException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | "InvalidRuleContentSha256Exception" ->
          `InvalidRuleContentSha256Exception
            (InvalidRuleContentSha256Exception.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateContentRequiredException e ->
          `Assoc
            [("error",
               (`String "ApprovalRuleTemplateContentRequiredException"));
            ("details",
              (ApprovalRuleTemplateContentRequiredException.to_json e))]
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateContentException e ->
          `Assoc
            [("error",
               (`String "InvalidApprovalRuleTemplateContentException"));
            ("details",
              (InvalidApprovalRuleTemplateContentException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.to_json e))]
      | `InvalidRuleContentSha256Exception e ->
          `Assoc
            [("error", (`String "InvalidRuleContentSha256Exception"));
            ("details", (InvalidRuleContentSha256Exception.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
        [("approvalRuleTemplate",
           (Option.map x.approvalRuleTemplate
              ~f:ApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplate =
        (Option.map ~f:ApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplate") in
      make ?approvalRuleTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplate =
        field_map json__ "approvalRuleTemplate" ApprovalRuleTemplate.of_json in
      make ?approvalRuleTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the content of an approval rule template. You can change the number of required approvals, the membership of the approval rule, and whether an approval pool is defined."]
module UpdateApprovalRuleTemplateContentInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the approval rule template where you want to update the content of the rule."];
      newRuleContent: ApprovalRuleTemplateContent.t
        [@ocaml.doc
          "The content that replaces the existing content of the rule. Content statements must be complete. You cannot provide only the changes."];
      existingRuleContentSha256: RuleContentSha256.t option
        [@ocaml.doc
          "The SHA-256 hash signature for the content of the approval rule. You can retrieve this information by using GetPullRequest."]}
    let context_ = "UpdateApprovalRuleTemplateContentInput"
    let make ?existingRuleContentSha256 =
      fun ~approvalRuleTemplateName ->
        fun ~newRuleContent ->
          fun () ->
            {
              existingRuleContentSha256;
              approvalRuleTemplateName;
              newRuleContent
            }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("newRuleContent",
          (Some (ApprovalRuleTemplateContent.to_value x.newRuleContent)));
        ("existingRuleContentSha256",
          (Option.map x.existingRuleContentSha256
             ~f:RuleContentSha256.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let existingRuleContentSha256 =
        (Option.map ~f:RuleContentSha256.of_xml)
          (Xml.child xml_arg0 "existingRuleContentSha256") in
      let newRuleContent =
        ApprovalRuleTemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "newRuleContent") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ?existingRuleContentSha256 ~newRuleContent
        ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let existingRuleContentSha256 =
        field_map json__ "existingRuleContentSha256"
          RuleContentSha256.of_json in
      let newRuleContent =
        field_map_exn json__ "newRuleContent"
          ApprovalRuleTemplateContent.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ?existingRuleContentSha256 ~newRuleContent
        ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the content of an approval rule template. You can change the number of required approvals, the membership of the approval rule, and whether an approval pool is defined."]
module UntagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to which you want to remove tags."];
      tagKeys: TagKeysList.t
        [@ocaml.doc
          "The tag key for each tag that you want to remove from the resource."]}
    let context_ = "UntagResourceInput"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeysList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeysList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeysList.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes tags for a resource in CodeCommit. For a list of valid resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module TestRepositoryTriggersOutput =
  struct
    type nonrec t =
      {
      successfulExecutions: RepositoryTriggerNameList.t option
        [@ocaml.doc
          "The list of triggers that were successfully tested. This list provides the names of the triggers that were successfully tested, separated by commas."];
      failedExecutions: RepositoryTriggerExecutionFailureList.t option
        [@ocaml.doc
          "The list of triggers that were not tested. This list provides the names of the triggers that could not be tested, separated by commas."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidRepositoryTriggerBranchNameException of
          InvalidRepositoryTriggerBranchNameException.t 
      | `InvalidRepositoryTriggerCustomDataException of
          InvalidRepositoryTriggerCustomDataException.t 
      | `InvalidRepositoryTriggerDestinationArnException of
          InvalidRepositoryTriggerDestinationArnException.t 
      | `InvalidRepositoryTriggerEventsException of
          InvalidRepositoryTriggerEventsException.t 
      | `InvalidRepositoryTriggerNameException of
          InvalidRepositoryTriggerNameException.t 
      | `InvalidRepositoryTriggerRegionException of
          InvalidRepositoryTriggerRegionException.t 
      | `MaximumBranchesExceededException of
          MaximumBranchesExceededException.t 
      | `MaximumRepositoryTriggersExceededException of
          MaximumRepositoryTriggersExceededException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryTriggerBranchNameListRequiredException of
          RepositoryTriggerBranchNameListRequiredException.t 
      | `RepositoryTriggerDestinationArnRequiredException of
          RepositoryTriggerDestinationArnRequiredException.t 
      | `RepositoryTriggerEventsListRequiredException of
          RepositoryTriggerEventsListRequiredException.t 
      | `RepositoryTriggerNameRequiredException of
          RepositoryTriggerNameRequiredException.t 
      | `RepositoryTriggersListRequiredException of
          RepositoryTriggersListRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?successfulExecutions =
      fun ?failedExecutions ->
        fun () -> { successfulExecutions; failedExecutions }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidRepositoryTriggerBranchNameException" ->
          `InvalidRepositoryTriggerBranchNameException
            (InvalidRepositoryTriggerBranchNameException.of_json json)
      | "InvalidRepositoryTriggerCustomDataException" ->
          `InvalidRepositoryTriggerCustomDataException
            (InvalidRepositoryTriggerCustomDataException.of_json json)
      | "InvalidRepositoryTriggerDestinationArnException" ->
          `InvalidRepositoryTriggerDestinationArnException
            (InvalidRepositoryTriggerDestinationArnException.of_json json)
      | "InvalidRepositoryTriggerEventsException" ->
          `InvalidRepositoryTriggerEventsException
            (InvalidRepositoryTriggerEventsException.of_json json)
      | "InvalidRepositoryTriggerNameException" ->
          `InvalidRepositoryTriggerNameException
            (InvalidRepositoryTriggerNameException.of_json json)
      | "InvalidRepositoryTriggerRegionException" ->
          `InvalidRepositoryTriggerRegionException
            (InvalidRepositoryTriggerRegionException.of_json json)
      | "MaximumBranchesExceededException" ->
          `MaximumBranchesExceededException
            (MaximumBranchesExceededException.of_json json)
      | "MaximumRepositoryTriggersExceededException" ->
          `MaximumRepositoryTriggersExceededException
            (MaximumRepositoryTriggersExceededException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryTriggerBranchNameListRequiredException" ->
          `RepositoryTriggerBranchNameListRequiredException
            (RepositoryTriggerBranchNameListRequiredException.of_json json)
      | "RepositoryTriggerDestinationArnRequiredException" ->
          `RepositoryTriggerDestinationArnRequiredException
            (RepositoryTriggerDestinationArnRequiredException.of_json json)
      | "RepositoryTriggerEventsListRequiredException" ->
          `RepositoryTriggerEventsListRequiredException
            (RepositoryTriggerEventsListRequiredException.of_json json)
      | "RepositoryTriggerNameRequiredException" ->
          `RepositoryTriggerNameRequiredException
            (RepositoryTriggerNameRequiredException.of_json json)
      | "RepositoryTriggersListRequiredException" ->
          `RepositoryTriggersListRequiredException
            (RepositoryTriggersListRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidRepositoryTriggerBranchNameException" ->
          `InvalidRepositoryTriggerBranchNameException
            (InvalidRepositoryTriggerBranchNameException.of_xml xml)
      | "InvalidRepositoryTriggerCustomDataException" ->
          `InvalidRepositoryTriggerCustomDataException
            (InvalidRepositoryTriggerCustomDataException.of_xml xml)
      | "InvalidRepositoryTriggerDestinationArnException" ->
          `InvalidRepositoryTriggerDestinationArnException
            (InvalidRepositoryTriggerDestinationArnException.of_xml xml)
      | "InvalidRepositoryTriggerEventsException" ->
          `InvalidRepositoryTriggerEventsException
            (InvalidRepositoryTriggerEventsException.of_xml xml)
      | "InvalidRepositoryTriggerNameException" ->
          `InvalidRepositoryTriggerNameException
            (InvalidRepositoryTriggerNameException.of_xml xml)
      | "InvalidRepositoryTriggerRegionException" ->
          `InvalidRepositoryTriggerRegionException
            (InvalidRepositoryTriggerRegionException.of_xml xml)
      | "MaximumBranchesExceededException" ->
          `MaximumBranchesExceededException
            (MaximumBranchesExceededException.of_xml xml)
      | "MaximumRepositoryTriggersExceededException" ->
          `MaximumRepositoryTriggersExceededException
            (MaximumRepositoryTriggersExceededException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryTriggerBranchNameListRequiredException" ->
          `RepositoryTriggerBranchNameListRequiredException
            (RepositoryTriggerBranchNameListRequiredException.of_xml xml)
      | "RepositoryTriggerDestinationArnRequiredException" ->
          `RepositoryTriggerDestinationArnRequiredException
            (RepositoryTriggerDestinationArnRequiredException.of_xml xml)
      | "RepositoryTriggerEventsListRequiredException" ->
          `RepositoryTriggerEventsListRequiredException
            (RepositoryTriggerEventsListRequiredException.of_xml xml)
      | "RepositoryTriggerNameRequiredException" ->
          `RepositoryTriggerNameRequiredException
            (RepositoryTriggerNameRequiredException.of_xml xml)
      | "RepositoryTriggersListRequiredException" ->
          `RepositoryTriggersListRequiredException
            (RepositoryTriggersListRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidRepositoryTriggerBranchNameException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerBranchNameException"));
            ("details",
              (InvalidRepositoryTriggerBranchNameException.to_json e))]
      | `InvalidRepositoryTriggerCustomDataException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerCustomDataException"));
            ("details",
              (InvalidRepositoryTriggerCustomDataException.to_json e))]
      | `InvalidRepositoryTriggerDestinationArnException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerDestinationArnException"));
            ("details",
              (InvalidRepositoryTriggerDestinationArnException.to_json e))]
      | `InvalidRepositoryTriggerEventsException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerEventsException"));
            ("details", (InvalidRepositoryTriggerEventsException.to_json e))]
      | `InvalidRepositoryTriggerNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerNameException"));
            ("details", (InvalidRepositoryTriggerNameException.to_json e))]
      | `InvalidRepositoryTriggerRegionException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerRegionException"));
            ("details", (InvalidRepositoryTriggerRegionException.to_json e))]
      | `MaximumBranchesExceededException e ->
          `Assoc
            [("error", (`String "MaximumBranchesExceededException"));
            ("details", (MaximumBranchesExceededException.to_json e))]
      | `MaximumRepositoryTriggersExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumRepositoryTriggersExceededException"));
            ("details",
              (MaximumRepositoryTriggersExceededException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryTriggerBranchNameListRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerBranchNameListRequiredException"));
            ("details",
              (RepositoryTriggerBranchNameListRequiredException.to_json e))]
      | `RepositoryTriggerDestinationArnRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerDestinationArnRequiredException"));
            ("details",
              (RepositoryTriggerDestinationArnRequiredException.to_json e))]
      | `RepositoryTriggerEventsListRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerEventsListRequiredException"));
            ("details",
              (RepositoryTriggerEventsListRequiredException.to_json e))]
      | `RepositoryTriggerNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryTriggerNameRequiredException"));
            ("details", (RepositoryTriggerNameRequiredException.to_json e))]
      | `RepositoryTriggersListRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryTriggersListRequiredException"));
            ("details", (RepositoryTriggersListRequiredException.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
        [("successfulExecutions",
           (Option.map x.successfulExecutions
              ~f:RepositoryTriggerNameList.to_value));
        ("failedExecutions",
          (Option.map x.failedExecutions
             ~f:RepositoryTriggerExecutionFailureList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failedExecutions =
        (Option.map ~f:RepositoryTriggerExecutionFailureList.of_xml)
          (Xml.child xml_arg0 "failedExecutions") in
      let successfulExecutions =
        (Option.map ~f:RepositoryTriggerNameList.of_xml)
          (Xml.child xml_arg0 "successfulExecutions") in
      make ?failedExecutions ?successfulExecutions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failedExecutions =
        field_map json__ "failedExecutions"
          RepositoryTriggerExecutionFailureList.of_json in
      let successfulExecutions =
        field_map json__ "successfulExecutions"
          RepositoryTriggerNameList.of_json in
      make ?failedExecutions ?successfulExecutions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a test repository triggers operation."]
module TestRepositoryTriggersInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository in which to test the triggers."];
      triggers: RepositoryTriggersList.t
        [@ocaml.doc "The list of triggers to test."]}
    let context_ = "TestRepositoryTriggersInput"
    let make ~repositoryName =
      fun ~triggers -> fun () -> { repositoryName; triggers }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("triggers", (Some (RepositoryTriggersList.to_value x.triggers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let triggers =
        RepositoryTriggersList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "triggers") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~triggers ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let triggers =
        field_map_exn json__ "triggers" RepositoryTriggersList.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~triggers ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a test repository triggers operation."]
module TagsMapRequiredException =
  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 "A map of tags is required."]
module TagResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to which you want to add or update tags."];
      tags: TagsMap.t
        [@ocaml.doc
          "The key-value pair to use when tagging this repository."]}
    let context_ = "TagResourceInput"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("tags", (Some (TagsMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagsMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagsMap.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates tags for a resource in CodeCommit. For a list of valid resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module TagKeysListRequiredException =
  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
       "A list of tag keys is required. The list cannot be empty or null."]
module ReactionValueRequiredException =
  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 "A reaction value is required."]
module ReactionLimitExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of reactions has been exceeded. Reactions are limited to one reaction per user for each individual comment ID."]
module PutRepositoryTriggersOutput =
  struct
    type nonrec t =
      {
      configurationId: RepositoryTriggersConfigurationId.t option
        [@ocaml.doc
          "The system-generated unique ID for the create or update operation."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidRepositoryTriggerBranchNameException of
          InvalidRepositoryTriggerBranchNameException.t 
      | `InvalidRepositoryTriggerCustomDataException of
          InvalidRepositoryTriggerCustomDataException.t 
      | `InvalidRepositoryTriggerDestinationArnException of
          InvalidRepositoryTriggerDestinationArnException.t 
      | `InvalidRepositoryTriggerEventsException of
          InvalidRepositoryTriggerEventsException.t 
      | `InvalidRepositoryTriggerNameException of
          InvalidRepositoryTriggerNameException.t 
      | `InvalidRepositoryTriggerRegionException of
          InvalidRepositoryTriggerRegionException.t 
      | `MaximumBranchesExceededException of
          MaximumBranchesExceededException.t 
      | `MaximumRepositoryTriggersExceededException of
          MaximumRepositoryTriggersExceededException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryTriggerBranchNameListRequiredException of
          RepositoryTriggerBranchNameListRequiredException.t 
      | `RepositoryTriggerDestinationArnRequiredException of
          RepositoryTriggerDestinationArnRequiredException.t 
      | `RepositoryTriggerEventsListRequiredException of
          RepositoryTriggerEventsListRequiredException.t 
      | `RepositoryTriggerNameRequiredException of
          RepositoryTriggerNameRequiredException.t 
      | `RepositoryTriggersListRequiredException of
          RepositoryTriggersListRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationId = fun () -> { configurationId }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidRepositoryTriggerBranchNameException" ->
          `InvalidRepositoryTriggerBranchNameException
            (InvalidRepositoryTriggerBranchNameException.of_json json)
      | "InvalidRepositoryTriggerCustomDataException" ->
          `InvalidRepositoryTriggerCustomDataException
            (InvalidRepositoryTriggerCustomDataException.of_json json)
      | "InvalidRepositoryTriggerDestinationArnException" ->
          `InvalidRepositoryTriggerDestinationArnException
            (InvalidRepositoryTriggerDestinationArnException.of_json json)
      | "InvalidRepositoryTriggerEventsException" ->
          `InvalidRepositoryTriggerEventsException
            (InvalidRepositoryTriggerEventsException.of_json json)
      | "InvalidRepositoryTriggerNameException" ->
          `InvalidRepositoryTriggerNameException
            (InvalidRepositoryTriggerNameException.of_json json)
      | "InvalidRepositoryTriggerRegionException" ->
          `InvalidRepositoryTriggerRegionException
            (InvalidRepositoryTriggerRegionException.of_json json)
      | "MaximumBranchesExceededException" ->
          `MaximumBranchesExceededException
            (MaximumBranchesExceededException.of_json json)
      | "MaximumRepositoryTriggersExceededException" ->
          `MaximumRepositoryTriggersExceededException
            (MaximumRepositoryTriggersExceededException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryTriggerBranchNameListRequiredException" ->
          `RepositoryTriggerBranchNameListRequiredException
            (RepositoryTriggerBranchNameListRequiredException.of_json json)
      | "RepositoryTriggerDestinationArnRequiredException" ->
          `RepositoryTriggerDestinationArnRequiredException
            (RepositoryTriggerDestinationArnRequiredException.of_json json)
      | "RepositoryTriggerEventsListRequiredException" ->
          `RepositoryTriggerEventsListRequiredException
            (RepositoryTriggerEventsListRequiredException.of_json json)
      | "RepositoryTriggerNameRequiredException" ->
          `RepositoryTriggerNameRequiredException
            (RepositoryTriggerNameRequiredException.of_json json)
      | "RepositoryTriggersListRequiredException" ->
          `RepositoryTriggersListRequiredException
            (RepositoryTriggersListRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidRepositoryTriggerBranchNameException" ->
          `InvalidRepositoryTriggerBranchNameException
            (InvalidRepositoryTriggerBranchNameException.of_xml xml)
      | "InvalidRepositoryTriggerCustomDataException" ->
          `InvalidRepositoryTriggerCustomDataException
            (InvalidRepositoryTriggerCustomDataException.of_xml xml)
      | "InvalidRepositoryTriggerDestinationArnException" ->
          `InvalidRepositoryTriggerDestinationArnException
            (InvalidRepositoryTriggerDestinationArnException.of_xml xml)
      | "InvalidRepositoryTriggerEventsException" ->
          `InvalidRepositoryTriggerEventsException
            (InvalidRepositoryTriggerEventsException.of_xml xml)
      | "InvalidRepositoryTriggerNameException" ->
          `InvalidRepositoryTriggerNameException
            (InvalidRepositoryTriggerNameException.of_xml xml)
      | "InvalidRepositoryTriggerRegionException" ->
          `InvalidRepositoryTriggerRegionException
            (InvalidRepositoryTriggerRegionException.of_xml xml)
      | "MaximumBranchesExceededException" ->
          `MaximumBranchesExceededException
            (MaximumBranchesExceededException.of_xml xml)
      | "MaximumRepositoryTriggersExceededException" ->
          `MaximumRepositoryTriggersExceededException
            (MaximumRepositoryTriggersExceededException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryTriggerBranchNameListRequiredException" ->
          `RepositoryTriggerBranchNameListRequiredException
            (RepositoryTriggerBranchNameListRequiredException.of_xml xml)
      | "RepositoryTriggerDestinationArnRequiredException" ->
          `RepositoryTriggerDestinationArnRequiredException
            (RepositoryTriggerDestinationArnRequiredException.of_xml xml)
      | "RepositoryTriggerEventsListRequiredException" ->
          `RepositoryTriggerEventsListRequiredException
            (RepositoryTriggerEventsListRequiredException.of_xml xml)
      | "RepositoryTriggerNameRequiredException" ->
          `RepositoryTriggerNameRequiredException
            (RepositoryTriggerNameRequiredException.of_xml xml)
      | "RepositoryTriggersListRequiredException" ->
          `RepositoryTriggersListRequiredException
            (RepositoryTriggersListRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidRepositoryTriggerBranchNameException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerBranchNameException"));
            ("details",
              (InvalidRepositoryTriggerBranchNameException.to_json e))]
      | `InvalidRepositoryTriggerCustomDataException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerCustomDataException"));
            ("details",
              (InvalidRepositoryTriggerCustomDataException.to_json e))]
      | `InvalidRepositoryTriggerDestinationArnException e ->
          `Assoc
            [("error",
               (`String "InvalidRepositoryTriggerDestinationArnException"));
            ("details",
              (InvalidRepositoryTriggerDestinationArnException.to_json e))]
      | `InvalidRepositoryTriggerEventsException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerEventsException"));
            ("details", (InvalidRepositoryTriggerEventsException.to_json e))]
      | `InvalidRepositoryTriggerNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerNameException"));
            ("details", (InvalidRepositoryTriggerNameException.to_json e))]
      | `InvalidRepositoryTriggerRegionException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryTriggerRegionException"));
            ("details", (InvalidRepositoryTriggerRegionException.to_json e))]
      | `MaximumBranchesExceededException e ->
          `Assoc
            [("error", (`String "MaximumBranchesExceededException"));
            ("details", (MaximumBranchesExceededException.to_json e))]
      | `MaximumRepositoryTriggersExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumRepositoryTriggersExceededException"));
            ("details",
              (MaximumRepositoryTriggersExceededException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryTriggerBranchNameListRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerBranchNameListRequiredException"));
            ("details",
              (RepositoryTriggerBranchNameListRequiredException.to_json e))]
      | `RepositoryTriggerDestinationArnRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerDestinationArnRequiredException"));
            ("details",
              (RepositoryTriggerDestinationArnRequiredException.to_json e))]
      | `RepositoryTriggerEventsListRequiredException e ->
          `Assoc
            [("error",
               (`String "RepositoryTriggerEventsListRequiredException"));
            ("details",
              (RepositoryTriggerEventsListRequiredException.to_json e))]
      | `RepositoryTriggerNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryTriggerNameRequiredException"));
            ("details", (RepositoryTriggerNameRequiredException.to_json e))]
      | `RepositoryTriggersListRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryTriggersListRequiredException"));
            ("details", (RepositoryTriggersListRequiredException.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
        [("configurationId",
           (Option.map x.configurationId
              ~f:RepositoryTriggersConfigurationId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let configurationId =
        (Option.map ~f:RepositoryTriggersConfigurationId.of_xml)
          (Xml.child xml_arg0 "configurationId") in
      make ?configurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let configurationId =
        field_map json__ "configurationId"
          RepositoryTriggersConfigurationId.of_json in
      make ?configurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a put repository triggers operation."]
module PutRepositoryTriggersInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to create or update the trigger."];
      triggers: RepositoryTriggersList.t
        [@ocaml.doc
          "The JSON block of configuration information for each trigger."]}
    let context_ = "PutRepositoryTriggersInput"
    let make ~repositoryName =
      fun ~triggers -> fun () -> { repositoryName; triggers }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("triggers", (Some (RepositoryTriggersList.to_value x.triggers)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let triggers =
        RepositoryTriggersList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "triggers") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~triggers ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let triggers =
        field_map_exn json__ "triggers" RepositoryTriggersList.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~triggers ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a put repository triggers operation."]
module PutFileOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full SHA ID of the commit that contains this file change."];
      blobId: ObjectId.t option
        [@ocaml.doc "The ID of the blob, which is its SHA-1 pointer."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains this file change."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `DirectoryNameConflictsWithFileNameException of
          DirectoryNameConflictsWithFileNameException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentRequiredException of FileContentRequiredException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FileNameConflictsWithDirectoryNameException of
          FileNameConflictsWithDirectoryNameException.t 
      | `FilePathConflictsWithSubmodulePathException of
          FilePathConflictsWithSubmodulePathException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidDeletionParameterException of
          InvalidDeletionParameterException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidParentCommitIdException of InvalidParentCommitIdException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `ParentCommitDoesNotExistException of
          ParentCommitDoesNotExistException.t 
      | `ParentCommitIdOutdatedException of ParentCommitIdOutdatedException.t 
      | `ParentCommitIdRequiredException of ParentCommitIdRequiredException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `SameFileContentException of SameFileContentException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId =
      fun ?blobId -> fun ?treeId -> fun () -> { commitId; blobId; treeId }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "DirectoryNameConflictsWithFileNameException" ->
          `DirectoryNameConflictsWithFileNameException
            (DirectoryNameConflictsWithFileNameException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentRequiredException" ->
          `FileContentRequiredException
            (FileContentRequiredException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FileNameConflictsWithDirectoryNameException" ->
          `FileNameConflictsWithDirectoryNameException
            (FileNameConflictsWithDirectoryNameException.of_json json)
      | "FilePathConflictsWithSubmodulePathException" ->
          `FilePathConflictsWithSubmodulePathException
            (FilePathConflictsWithSubmodulePathException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidDeletionParameterException" ->
          `InvalidDeletionParameterException
            (InvalidDeletionParameterException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_json json)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_json json)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "SameFileContentException" ->
          `SameFileContentException (SameFileContentException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "DirectoryNameConflictsWithFileNameException" ->
          `DirectoryNameConflictsWithFileNameException
            (DirectoryNameConflictsWithFileNameException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentRequiredException" ->
          `FileContentRequiredException
            (FileContentRequiredException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FileNameConflictsWithDirectoryNameException" ->
          `FileNameConflictsWithDirectoryNameException
            (FileNameConflictsWithDirectoryNameException.of_xml xml)
      | "FilePathConflictsWithSubmodulePathException" ->
          `FilePathConflictsWithSubmodulePathException
            (FilePathConflictsWithSubmodulePathException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidDeletionParameterException" ->
          `InvalidDeletionParameterException
            (InvalidDeletionParameterException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_xml xml)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_xml xml)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "SameFileContentException" ->
          `SameFileContentException (SameFileContentException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `DirectoryNameConflictsWithFileNameException e ->
          `Assoc
            [("error",
               (`String "DirectoryNameConflictsWithFileNameException"));
            ("details",
              (DirectoryNameConflictsWithFileNameException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentRequiredException e ->
          `Assoc
            [("error", (`String "FileContentRequiredException"));
            ("details", (FileContentRequiredException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FileNameConflictsWithDirectoryNameException e ->
          `Assoc
            [("error",
               (`String "FileNameConflictsWithDirectoryNameException"));
            ("details",
              (FileNameConflictsWithDirectoryNameException.to_json e))]
      | `FilePathConflictsWithSubmodulePathException e ->
          `Assoc
            [("error",
               (`String "FilePathConflictsWithSubmodulePathException"));
            ("details",
              (FilePathConflictsWithSubmodulePathException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidDeletionParameterException e ->
          `Assoc
            [("error", (`String "InvalidDeletionParameterException"));
            ("details", (InvalidDeletionParameterException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidParentCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidParentCommitIdException"));
            ("details", (InvalidParentCommitIdException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `ParentCommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "ParentCommitDoesNotExistException"));
            ("details", (ParentCommitDoesNotExistException.to_json e))]
      | `ParentCommitIdOutdatedException e ->
          `Assoc
            [("error", (`String "ParentCommitIdOutdatedException"));
            ("details", (ParentCommitIdOutdatedException.to_json e))]
      | `ParentCommitIdRequiredException e ->
          `Assoc
            [("error", (`String "ParentCommitIdRequiredException"));
            ("details", (ParentCommitIdRequiredException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `SameFileContentException e ->
          `Assoc
            [("error", (`String "SameFileContentException"));
            ("details", (SameFileContentException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?treeId ?blobId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?treeId ?blobId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates a file in a branch in an CodeCommit repository, and generates a commit for the addition in the specified branch."]
module PutFileInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to add or update the file."];
      branchName: BranchName.t
        [@ocaml.doc
          "The name of the branch where you want to add or update the file. If this is an empty repository, this branch is created."];
      fileContent: FileContent.t
        [@ocaml.doc "The content of the file, in binary object format."];
      filePath: Path.t
        [@ocaml.doc
          "The name of the file you want to add or update, including the relative path to the file in the repository. If the path does not currently exist in the repository, the path is created as part of adding the file."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The file mode permissions of the blob. Valid file mode permissions are listed here."];
      parentCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the head commit in the branch where you want to add or update the file. If this is an empty repository, no commit ID is required. If this is not an empty repository, a commit ID is required. The commit ID must match the ID of the head commit at the time of the operation. Otherwise, an error occurs, and the file is not added or updated."];
      commitMessage: Message.t option
        [@ocaml.doc
          "A message about why this file was added or updated. Although it is optional, a message makes the commit history for your repository more useful."];
      name: Name.t option
        [@ocaml.doc
          "The name of the person adding or updating the file. Although it is optional, a name makes the commit history for your repository more useful."];
      email: Email.t option
        [@ocaml.doc
          "An email address for the person adding or updating the file."]}
    let context_ = "PutFileInput"
    let make ?fileMode =
      fun ?parentCommitId ->
        fun ?commitMessage ->
          fun ?name ->
            fun ?email ->
              fun ~repositoryName ->
                fun ~branchName ->
                  fun ~fileContent ->
                    fun ~filePath ->
                      fun () ->
                        {
                          fileMode;
                          parentCommitId;
                          commitMessage;
                          name;
                          email;
                          repositoryName;
                          branchName;
                          fileContent;
                          filePath
                        }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("fileContent", (Some (FileContent.to_value x.fileContent)));
        ("filePath", (Some (Path.to_value x.filePath)));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value));
        ("parentCommitId",
          (Option.map x.parentCommitId ~f:CommitId.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let parentCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "parentCommitId") in
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      let fileContent =
        FileContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileContent") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?email ?name ?commitMessage ?parentCommitId ?fileMode ~filePath
        ~fileContent ~branchName ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" Name.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let parentCommitId = field_map json__ "parentCommitId" CommitId.of_json in
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      let fileContent =
        field_map_exn json__ "fileContent" FileContent.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?email ?name ?commitMessage ?parentCommitId ?fileMode ~filePath
        ~fileContent ~branchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates a file in a branch in an CodeCommit repository, and generates a commit for the addition in the specified branch."]
module PutCommentReactionInput =
  struct
    type nonrec t =
      {
      commentId: CommentId.t
        [@ocaml.doc
          "The ID of the comment to which you want to add or update a reaction."];
      reactionValue: ReactionValue.t
        [@ocaml.doc
          "The emoji reaction you want to add or update. To remove a reaction, provide a value of blank or null. You can also provide the value of none. For information about emoji reaction values supported in CodeCommit, see the CodeCommit User Guide."]}
    let context_ = "PutCommentReactionInput"
    let make ~commentId =
      fun ~reactionValue -> fun () -> { commentId; reactionValue }
    let to_value x =
      structure_to_value
        [("commentId", (Some (CommentId.to_value x.commentId)));
        ("reactionValue", (Some (ReactionValue.to_value x.reactionValue)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reactionValue =
        ReactionValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reactionValue") in
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      make ~reactionValue ~commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reactionValue =
        field_map_exn json__ "reactionValue" ReactionValue.of_json in
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      make ~reactionValue ~commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds or updates a reaction to a specified comment for the user whose identity is used to make the request. You can only add or update a reaction for yourself. You cannot add, modify, or delete a reaction for another user."]
module PullRequestCannotBeApprovedByAuthorException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The approval cannot be applied because the user approving the pull request matches the user who created the pull request. You cannot approve a pull request that you created."]
module PostCommentReplyOutput =
  struct
    type nonrec t =
      {
      comment: Comment.t option
        [@ocaml.doc "Information about the reply to a comment."]}
    type nonrec error =
      [
        `ClientRequestTokenRequiredException of
          ClientRequestTokenRequiredException.t 
      | `CommentContentRequiredException of CommentContentRequiredException.t 
      | `CommentContentSizeLimitExceededException of
          CommentContentSizeLimitExceededException.t 
      | `CommentDoesNotExistException of CommentDoesNotExistException.t 
      | `CommentIdRequiredException of CommentIdRequiredException.t 
      | `IdempotencyParameterMismatchException of
          IdempotencyParameterMismatchException.t 
      | `InvalidClientRequestTokenException of
          InvalidClientRequestTokenException.t 
      | `InvalidCommentIdException of InvalidCommentIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comment = fun () -> { comment }
    let error_of_json name json =
      match name with
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_json json)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_json json)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_json json)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_json json)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException
            (CommentIdRequiredException.of_json json)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_json json)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_json json)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_xml xml)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_xml xml)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_xml xml)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_xml xml)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException (CommentIdRequiredException.of_xml xml)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_xml xml)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_xml xml)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientRequestTokenRequiredException e ->
          `Assoc
            [("error", (`String "ClientRequestTokenRequiredException"));
            ("details", (ClientRequestTokenRequiredException.to_json e))]
      | `CommentContentRequiredException e ->
          `Assoc
            [("error", (`String "CommentContentRequiredException"));
            ("details", (CommentContentRequiredException.to_json e))]
      | `CommentContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "CommentContentSizeLimitExceededException"));
            ("details", (CommentContentSizeLimitExceededException.to_json e))]
      | `CommentDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommentDoesNotExistException"));
            ("details", (CommentDoesNotExistException.to_json e))]
      | `CommentIdRequiredException e ->
          `Assoc
            [("error", (`String "CommentIdRequiredException"));
            ("details", (CommentIdRequiredException.to_json e))]
      | `IdempotencyParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotencyParameterMismatchException"));
            ("details", (IdempotencyParameterMismatchException.to_json e))]
      | `InvalidClientRequestTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientRequestTokenException"));
            ("details", (InvalidClientRequestTokenException.to_json e))]
      | `InvalidCommentIdException e ->
          `Assoc
            [("error", (`String "InvalidCommentIdException"));
            ("details", (InvalidCommentIdException.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
        [("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      make ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      make ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Posts a comment in reply to an existing comment on a comparison between commits or a pull request."]
module PostCommentReplyInput =
  struct
    type nonrec t =
      {
      inReplyTo: CommentId.t
        [@ocaml.doc
          "The system-generated ID of the comment to which you want to reply. To get this ID, use GetCommentsForComparedCommit or GetCommentsForPullRequest."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."];
      content: Content.t
        [@ocaml.doc "The contents of your reply to a comment."]}
    let context_ = "PostCommentReplyInput"
    let make ?clientRequestToken =
      fun ~inReplyTo ->
        fun ~content -> fun () -> { clientRequestToken; inReplyTo; content }
    let to_value x =
      structure_to_value
        [("inReplyTo", (Some (CommentId.to_value x.inReplyTo)));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value));
        ("content", (Some (Content.to_value x.content)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let inReplyTo =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "inReplyTo") in
      make ~content ?clientRequestToken ~inReplyTo ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map_exn json__ "content" Content.of_json in
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let inReplyTo = field_map_exn json__ "inReplyTo" CommentId.of_json in
      make ~content ?clientRequestToken ~inReplyTo ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Posts a comment in reply to an existing comment on a comparison between commits or a pull request."]
module PostCommentForPullRequestOutput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where you posted a comment on a pull request."];
      pullRequestId: PullRequestId.t option
        [@ocaml.doc "The system-generated ID of the pull request."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the source branch used to create the pull request, or in the case of an updated pull request, the full commit ID of the commit used to update the pull request."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the destination branch where the pull request is merged."];
      beforeBlobId: ObjectId.t option
        [@ocaml.doc
          "In the directionality of the pull request, the blob ID of the before blob."];
      afterBlobId: ObjectId.t option
        [@ocaml.doc
          "In the directionality of the pull request, the blob ID of the after blob."];
      location: Location.t option
        [@ocaml.doc
          "The location of the change where you posted your comment."];
      comment: Comment.t option
        [@ocaml.doc "The content of the comment you posted."]}
    type nonrec error =
      [
        `BeforeCommitIdAndAfterCommitIdAreSameException of
          BeforeCommitIdAndAfterCommitIdAreSameException.t 
      | `ClientRequestTokenRequiredException of
          ClientRequestTokenRequiredException.t 
      | `CommentContentRequiredException of CommentContentRequiredException.t 
      | `CommentContentSizeLimitExceededException of
          CommentContentSizeLimitExceededException.t 
      | `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitIdRequiredException of CommitIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `IdempotencyParameterMismatchException of
          IdempotencyParameterMismatchException.t 
      | `InvalidClientRequestTokenException of
          InvalidClientRequestTokenException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidFileLocationException of InvalidFileLocationException.t 
      | `InvalidFilePositionException of InvalidFilePositionException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRelativeFileVersionEnumException of
          InvalidRelativeFileVersionEnumException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PathDoesNotExistException of PathDoesNotExistException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryNotAssociatedWithPullRequestException of
          RepositoryNotAssociatedWithPullRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryName =
      fun ?pullRequestId ->
        fun ?beforeCommitId ->
          fun ?afterCommitId ->
            fun ?beforeBlobId ->
              fun ?afterBlobId ->
                fun ?location ->
                  fun ?comment ->
                    fun () ->
                      {
                        repositoryName;
                        pullRequestId;
                        beforeCommitId;
                        afterCommitId;
                        beforeBlobId;
                        afterBlobId;
                        location;
                        comment
                      }
    let error_of_json name json =
      match name with
      | "BeforeCommitIdAndAfterCommitIdAreSameException" ->
          `BeforeCommitIdAndAfterCommitIdAreSameException
            (BeforeCommitIdAndAfterCommitIdAreSameException.of_json json)
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_json json)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_json json)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_json json)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_json json)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidFileLocationException" ->
          `InvalidFileLocationException
            (InvalidFileLocationException.of_json json)
      | "InvalidFilePositionException" ->
          `InvalidFilePositionException
            (InvalidFilePositionException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRelativeFileVersionEnumException" ->
          `InvalidRelativeFileVersionEnumException
            (InvalidRelativeFileVersionEnumException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BeforeCommitIdAndAfterCommitIdAreSameException" ->
          `BeforeCommitIdAndAfterCommitIdAreSameException
            (BeforeCommitIdAndAfterCommitIdAreSameException.of_xml xml)
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_xml xml)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_xml xml)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_xml xml)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_xml xml)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidFileLocationException" ->
          `InvalidFileLocationException
            (InvalidFileLocationException.of_xml xml)
      | "InvalidFilePositionException" ->
          `InvalidFilePositionException
            (InvalidFilePositionException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRelativeFileVersionEnumException" ->
          `InvalidRelativeFileVersionEnumException
            (InvalidRelativeFileVersionEnumException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BeforeCommitIdAndAfterCommitIdAreSameException e ->
          `Assoc
            [("error",
               (`String "BeforeCommitIdAndAfterCommitIdAreSameException"));
            ("details",
              (BeforeCommitIdAndAfterCommitIdAreSameException.to_json e))]
      | `ClientRequestTokenRequiredException e ->
          `Assoc
            [("error", (`String "ClientRequestTokenRequiredException"));
            ("details", (ClientRequestTokenRequiredException.to_json e))]
      | `CommentContentRequiredException e ->
          `Assoc
            [("error", (`String "CommentContentRequiredException"));
            ("details", (CommentContentRequiredException.to_json e))]
      | `CommentContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "CommentContentSizeLimitExceededException"));
            ("details", (CommentContentSizeLimitExceededException.to_json e))]
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitIdRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdRequiredException"));
            ("details", (CommitIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `IdempotencyParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotencyParameterMismatchException"));
            ("details", (IdempotencyParameterMismatchException.to_json e))]
      | `InvalidClientRequestTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientRequestTokenException"));
            ("details", (InvalidClientRequestTokenException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidFileLocationException e ->
          `Assoc
            [("error", (`String "InvalidFileLocationException"));
            ("details", (InvalidFileLocationException.to_json e))]
      | `InvalidFilePositionException e ->
          `Assoc
            [("error", (`String "InvalidFilePositionException"));
            ("details", (InvalidFilePositionException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRelativeFileVersionEnumException e ->
          `Assoc
            [("error", (`String "InvalidRelativeFileVersionEnumException"));
            ("details", (InvalidRelativeFileVersionEnumException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PathDoesNotExistException e ->
          `Assoc
            [("error", (`String "PathDoesNotExistException"));
            ("details", (PathDoesNotExistException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryNotAssociatedWithPullRequestException e ->
          `Assoc
            [("error",
               (`String "RepositoryNotAssociatedWithPullRequestException"));
            ("details",
              (RepositoryNotAssociatedWithPullRequestException.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
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("pullRequestId",
          (Option.map x.pullRequestId ~f:PullRequestId.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("beforeBlobId", (Option.map x.beforeBlobId ~f:ObjectId.to_value));
        ("afterBlobId", (Option.map x.afterBlobId ~f:ObjectId.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "afterBlobId") in
      let beforeBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "beforeBlobId") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let pullRequestId =
        (Option.map ~f:PullRequestId.of_xml)
          (Xml.child xml_arg0 "pullRequestId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?comment ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?pullRequestId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterBlobId = field_map json__ "afterBlobId" ObjectId.of_json in
      let beforeBlobId = field_map json__ "beforeBlobId" ObjectId.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let pullRequestId =
        field_map json__ "pullRequestId" PullRequestId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?comment ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?pullRequestId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Posts a comment on a pull request."]
module PostCommentForPullRequestInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to post a comment on a pull request."];
      beforeCommitId: CommitId.t
        [@ocaml.doc
          "The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created."];
      afterCommitId: CommitId.t
        [@ocaml.doc
          "The full commit ID of the commit in the source branch that is the current tip of the branch for the pull request when you post the comment."];
      location: Location.t option
        [@ocaml.doc
          "The location of the change where you want to post your comment. If no location is provided, the comment is posted as a general comment on the pull request difference between the before commit ID and the after commit ID."];
      content: Content.t
        [@ocaml.doc "The content of your comment on the change."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."]}
    let context_ = "PostCommentForPullRequestInput"
    let make ?location =
      fun ?clientRequestToken ->
        fun ~pullRequestId ->
          fun ~repositoryName ->
            fun ~beforeCommitId ->
              fun ~afterCommitId ->
                fun ~content ->
                  fun () ->
                    {
                      location;
                      clientRequestToken;
                      pullRequestId;
                      repositoryName;
                      beforeCommitId;
                      afterCommitId;
                      content
                    }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("beforeCommitId", (Some (CommitId.to_value x.beforeCommitId)));
        ("afterCommitId", (Some (CommitId.to_value x.afterCommitId)));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("content", (Some (Content.to_value x.content)));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let content =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterCommitId =
        CommitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "afterCommitId") in
      let beforeCommitId =
        CommitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "beforeCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?clientRequestToken ~content ?location ~afterCommitId
        ~beforeCommitId ~repositoryName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let content = field_map_exn json__ "content" Content.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterCommitId =
        field_map_exn json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId =
        field_map_exn json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?clientRequestToken ~content ?location ~afterCommitId
        ~beforeCommitId ~repositoryName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Posts a comment on a pull request."]
module PostCommentForComparedCommitOutput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository where you posted a comment on the comparison between commits."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "In the directionality you established, the full commit ID of the before commit."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "In the directionality you established, the full commit ID of the after commit."];
      beforeBlobId: ObjectId.t option
        [@ocaml.doc
          "In the directionality you established, the blob ID of the before blob."];
      afterBlobId: ObjectId.t option
        [@ocaml.doc
          "In the directionality you established, the blob ID of the after blob."];
      location: Location.t option
        [@ocaml.doc
          "The location of the comment in the comparison between the two commits."];
      comment: Comment.t option
        [@ocaml.doc "The content of the comment you posted."]}
    type nonrec error =
      [
        `BeforeCommitIdAndAfterCommitIdAreSameException of
          BeforeCommitIdAndAfterCommitIdAreSameException.t 
      | `ClientRequestTokenRequiredException of
          ClientRequestTokenRequiredException.t 
      | `CommentContentRequiredException of CommentContentRequiredException.t 
      | `CommentContentSizeLimitExceededException of
          CommentContentSizeLimitExceededException.t 
      | `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitIdRequiredException of CommitIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `IdempotencyParameterMismatchException of
          IdempotencyParameterMismatchException.t 
      | `InvalidClientRequestTokenException of
          InvalidClientRequestTokenException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidFileLocationException of InvalidFileLocationException.t 
      | `InvalidFilePositionException of InvalidFilePositionException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRelativeFileVersionEnumException of
          InvalidRelativeFileVersionEnumException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PathDoesNotExistException of PathDoesNotExistException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryName =
      fun ?beforeCommitId ->
        fun ?afterCommitId ->
          fun ?beforeBlobId ->
            fun ?afterBlobId ->
              fun ?location ->
                fun ?comment ->
                  fun () ->
                    {
                      repositoryName;
                      beforeCommitId;
                      afterCommitId;
                      beforeBlobId;
                      afterBlobId;
                      location;
                      comment
                    }
    let error_of_json name json =
      match name with
      | "BeforeCommitIdAndAfterCommitIdAreSameException" ->
          `BeforeCommitIdAndAfterCommitIdAreSameException
            (BeforeCommitIdAndAfterCommitIdAreSameException.of_json json)
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_json json)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_json json)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_json json)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_json json)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidFileLocationException" ->
          `InvalidFileLocationException
            (InvalidFileLocationException.of_json json)
      | "InvalidFilePositionException" ->
          `InvalidFilePositionException
            (InvalidFilePositionException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRelativeFileVersionEnumException" ->
          `InvalidRelativeFileVersionEnumException
            (InvalidRelativeFileVersionEnumException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BeforeCommitIdAndAfterCommitIdAreSameException" ->
          `BeforeCommitIdAndAfterCommitIdAreSameException
            (BeforeCommitIdAndAfterCommitIdAreSameException.of_xml xml)
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_xml xml)
      | "CommentContentRequiredException" ->
          `CommentContentRequiredException
            (CommentContentRequiredException.of_xml xml)
      | "CommentContentSizeLimitExceededException" ->
          `CommentContentSizeLimitExceededException
            (CommentContentSizeLimitExceededException.of_xml xml)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_xml xml)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidFileLocationException" ->
          `InvalidFileLocationException
            (InvalidFileLocationException.of_xml xml)
      | "InvalidFilePositionException" ->
          `InvalidFilePositionException
            (InvalidFilePositionException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRelativeFileVersionEnumException" ->
          `InvalidRelativeFileVersionEnumException
            (InvalidRelativeFileVersionEnumException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BeforeCommitIdAndAfterCommitIdAreSameException e ->
          `Assoc
            [("error",
               (`String "BeforeCommitIdAndAfterCommitIdAreSameException"));
            ("details",
              (BeforeCommitIdAndAfterCommitIdAreSameException.to_json e))]
      | `ClientRequestTokenRequiredException e ->
          `Assoc
            [("error", (`String "ClientRequestTokenRequiredException"));
            ("details", (ClientRequestTokenRequiredException.to_json e))]
      | `CommentContentRequiredException e ->
          `Assoc
            [("error", (`String "CommentContentRequiredException"));
            ("details", (CommentContentRequiredException.to_json e))]
      | `CommentContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "CommentContentSizeLimitExceededException"));
            ("details", (CommentContentSizeLimitExceededException.to_json e))]
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitIdRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdRequiredException"));
            ("details", (CommitIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `IdempotencyParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotencyParameterMismatchException"));
            ("details", (IdempotencyParameterMismatchException.to_json e))]
      | `InvalidClientRequestTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientRequestTokenException"));
            ("details", (InvalidClientRequestTokenException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidFileLocationException e ->
          `Assoc
            [("error", (`String "InvalidFileLocationException"));
            ("details", (InvalidFileLocationException.to_json e))]
      | `InvalidFilePositionException e ->
          `Assoc
            [("error", (`String "InvalidFilePositionException"));
            ("details", (InvalidFilePositionException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRelativeFileVersionEnumException e ->
          `Assoc
            [("error", (`String "InvalidRelativeFileVersionEnumException"));
            ("details", (InvalidRelativeFileVersionEnumException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PathDoesNotExistException e ->
          `Assoc
            [("error", (`String "PathDoesNotExistException"));
            ("details", (PathDoesNotExistException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("beforeBlobId", (Option.map x.beforeBlobId ~f:ObjectId.to_value));
        ("afterBlobId", (Option.map x.afterBlobId ~f:ObjectId.to_value));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "afterBlobId") in
      let beforeBlobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "beforeBlobId") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      make ?comment ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterBlobId = field_map json__ "afterBlobId" ObjectId.of_json in
      let beforeBlobId = field_map json__ "beforeBlobId" ObjectId.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?comment ?location ?afterBlobId ?beforeBlobId ?afterCommitId
        ?beforeCommitId ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Posts a comment on the comparison between two commits."]
module PostCommentForComparedCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to post a comment on the comparison between commits."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "To establish the directionality of the comparison, the full commit ID of the before commit. Required for commenting on any commit unless that commit is the initial commit."];
      afterCommitId: CommitId.t
        [@ocaml.doc
          "To establish the directionality of the comparison, the full commit ID of the after commit."];
      location: Location.t option
        [@ocaml.doc
          "The location of the comparison where you want to comment."];
      content: Content.t
        [@ocaml.doc "The content of the comment you want to make."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token."]}
    let context_ = "PostCommentForComparedCommitInput"
    let make ?beforeCommitId =
      fun ?location ->
        fun ?clientRequestToken ->
          fun ~repositoryName ->
            fun ~afterCommitId ->
              fun ~content ->
                fun () ->
                  {
                    beforeCommitId;
                    location;
                    clientRequestToken;
                    repositoryName;
                    afterCommitId;
                    content
                  }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Some (CommitId.to_value x.afterCommitId)));
        ("location", (Option.map x.location ~f:Location.to_value));
        ("content", (Some (Content.to_value x.content)));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let content =
        Content.of_xml (Xml.child_exn ~context:context_ xml_arg0 "content") in
      let location =
        (Option.map ~f:Location.of_xml) (Xml.child xml_arg0 "location") in
      let afterCommitId =
        CommitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?clientRequestToken ~content ?location ~afterCommitId
        ?beforeCommitId ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let content = field_map_exn json__ "content" Content.of_json in
      let location = field_map json__ "location" Location.of_json in
      let afterCommitId =
        field_map_exn json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?clientRequestToken ~content ?location ~afterCommitId
        ?beforeCommitId ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Posts a comment on the comparison between two commits."]
module OverrideStatusRequiredException =
  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
       "An override status is required, but no value was provided. Valid values include OVERRIDE and REVOKE."]
module OverridePullRequestApprovalRulesInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request for which you want to override all approval rule requirements. To get this information, use GetPullRequest."];
      revisionId: RevisionId.t
        [@ocaml.doc
          "The system-generated ID of the most recent revision of the pull request. You cannot override approval rules for anything but the most recent revision of a pull request. To get the revision ID, use GetPullRequest."];
      overrideStatus: OverrideStatus.t
        [@ocaml.doc
          "Whether you want to set aside approval rule requirements for the pull request (OVERRIDE) or revoke a previous override and apply approval rule requirements (REVOKE). REVOKE status is not stored."]}
    let context_ = "OverridePullRequestApprovalRulesInput"
    let make ~pullRequestId =
      fun ~revisionId ->
        fun ~overrideStatus ->
          fun () -> { pullRequestId; revisionId; overrideStatus }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)));
        ("overrideStatus", (Some (OverrideStatus.to_value x.overrideStatus)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrideStatus =
        OverrideStatus.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "overrideStatus") in
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~overrideStatus ~revisionId ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrideStatus =
        field_map_exn json__ "overrideStatus" OverrideStatus.of_json in
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~overrideStatus ~revisionId ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Sets aside (overrides) all approval rule requirements for a specified pull request."]
module OverrideAlreadySetException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The pull request has already had its approval rules set to override."]
module MergePullRequestByThreeWayOutput =
  struct
    type nonrec t = {
      pullRequest: PullRequest.t option }
    type nonrec error =
      [
        `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionException of
          InvalidConflictResolutionException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidReplacementContentException of
          InvalidReplacementContentException.t 
      | `InvalidReplacementTypeException of InvalidReplacementTypeException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `MaximumConflictResolutionEntriesExceededException of
          MaximumConflictResolutionEntriesExceededException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MultipleConflictResolutionEntriesException of
          MultipleConflictResolutionEntriesException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestApprovalRulesNotSatisfiedException of
          PullRequestApprovalRulesNotSatisfiedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `ReplacementContentRequiredException of
          ReplacementContentRequiredException.t 
      | `ReplacementTypeRequiredException of
          ReplacementTypeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryNotAssociatedWithPullRequestException of
          RepositoryNotAssociatedWithPullRequestException.t 
      | `TipOfSourceReferenceIsDifferentException of
          TipOfSourceReferenceIsDifferentException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_json json)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_json json)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_json json)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_xml xml)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_xml xml)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_xml xml)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionException e ->
          `Assoc
            [("error", (`String "InvalidConflictResolutionException"));
            ("details", (InvalidConflictResolutionException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidReplacementContentException e ->
          `Assoc
            [("error", (`String "InvalidReplacementContentException"));
            ("details", (InvalidReplacementContentException.to_json e))]
      | `InvalidReplacementTypeException e ->
          `Assoc
            [("error", (`String "InvalidReplacementTypeException"));
            ("details", (InvalidReplacementTypeException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `MaximumConflictResolutionEntriesExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumConflictResolutionEntriesExceededException"));
            ("details",
              (MaximumConflictResolutionEntriesExceededException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MultipleConflictResolutionEntriesException e ->
          `Assoc
            [("error",
               (`String "MultipleConflictResolutionEntriesException"));
            ("details",
              (MultipleConflictResolutionEntriesException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestApprovalRulesNotSatisfiedException e ->
          `Assoc
            [("error",
               (`String "PullRequestApprovalRulesNotSatisfiedException"));
            ("details",
              (PullRequestApprovalRulesNotSatisfiedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `ReplacementContentRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementContentRequiredException"));
            ("details", (ReplacementContentRequiredException.to_json e))]
      | `ReplacementTypeRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementTypeRequiredException"));
            ("details", (ReplacementTypeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryNotAssociatedWithPullRequestException e ->
          `Assoc
            [("error",
               (`String "RepositoryNotAssociatedWithPullRequestException"));
            ("details",
              (RepositoryNotAssociatedWithPullRequestException.to_json e))]
      | `TipOfSourceReferenceIsDifferentException e ->
          `Assoc
            [("error", (`String "TipOfSourceReferenceIsDifferentException"));
            ("details", (TipOfSourceReferenceIsDifferentException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the three-way merge strategy. If the merge is successful, it closes the pull request."]
module MergePullRequestByThreeWayInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the original or updated commit in the pull request source branch. Pass this value if you want an exception thrown if the current commit ID of the tip of the source branch does not match this commit ID."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      commitMessage: Message.t option
        [@ocaml.doc
          "The commit message to include in the commit information for the merge."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address of the person merging the branches. This information is used in the commit information for the merge."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If true, a .gitkeep file is created for empty folders. The default is false."];
      conflictResolution: ConflictResolution.t option
        [@ocaml.doc
          "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]}
    let context_ = "MergePullRequestByThreeWayInput"
    let make ?sourceCommitId =
      fun ?conflictDetailLevel ->
        fun ?conflictResolutionStrategy ->
          fun ?commitMessage ->
            fun ?authorName ->
              fun ?email ->
                fun ?keepEmptyFolders ->
                  fun ?conflictResolution ->
                    fun ~pullRequestId ->
                      fun ~repositoryName ->
                        fun () ->
                          {
                            sourceCommitId;
                            conflictDetailLevel;
                            conflictResolutionStrategy;
                            commitMessage;
                            authorName;
                            email;
                            keepEmptyFolders;
                            conflictResolution;
                            pullRequestId;
                            repositoryName
                          }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("conflictResolution",
          (Option.map x.conflictResolution ~f:ConflictResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolution =
        (Option.map ~f:ConflictResolution.of_xml)
          (Xml.child xml_arg0 "conflictResolution") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?conflictResolution ?keepEmptyFolders ?email ?authorName
        ?commitMessage ?conflictResolutionStrategy ?conflictDetailLevel
        ?sourceCommitId ~repositoryName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolution =
        field_map json__ "conflictResolution" ConflictResolution.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?conflictResolution ?keepEmptyFolders ?email ?authorName
        ?commitMessage ?conflictResolutionStrategy ?conflictDetailLevel
        ?sourceCommitId ~repositoryName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the three-way merge strategy. If the merge is successful, it closes the pull request."]
module MergePullRequestBySquashOutput =
  struct
    type nonrec t = {
      pullRequest: PullRequest.t option }
    type nonrec error =
      [
        `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionException of
          InvalidConflictResolutionException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidReplacementContentException of
          InvalidReplacementContentException.t 
      | `InvalidReplacementTypeException of InvalidReplacementTypeException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `MaximumConflictResolutionEntriesExceededException of
          MaximumConflictResolutionEntriesExceededException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MultipleConflictResolutionEntriesException of
          MultipleConflictResolutionEntriesException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestApprovalRulesNotSatisfiedException of
          PullRequestApprovalRulesNotSatisfiedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `ReplacementContentRequiredException of
          ReplacementContentRequiredException.t 
      | `ReplacementTypeRequiredException of
          ReplacementTypeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryNotAssociatedWithPullRequestException of
          RepositoryNotAssociatedWithPullRequestException.t 
      | `TipOfSourceReferenceIsDifferentException of
          TipOfSourceReferenceIsDifferentException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_json json)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_json json)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_json json)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_xml xml)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_xml xml)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_xml xml)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionException e ->
          `Assoc
            [("error", (`String "InvalidConflictResolutionException"));
            ("details", (InvalidConflictResolutionException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidReplacementContentException e ->
          `Assoc
            [("error", (`String "InvalidReplacementContentException"));
            ("details", (InvalidReplacementContentException.to_json e))]
      | `InvalidReplacementTypeException e ->
          `Assoc
            [("error", (`String "InvalidReplacementTypeException"));
            ("details", (InvalidReplacementTypeException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `MaximumConflictResolutionEntriesExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumConflictResolutionEntriesExceededException"));
            ("details",
              (MaximumConflictResolutionEntriesExceededException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MultipleConflictResolutionEntriesException e ->
          `Assoc
            [("error",
               (`String "MultipleConflictResolutionEntriesException"));
            ("details",
              (MultipleConflictResolutionEntriesException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestApprovalRulesNotSatisfiedException e ->
          `Assoc
            [("error",
               (`String "PullRequestApprovalRulesNotSatisfiedException"));
            ("details",
              (PullRequestApprovalRulesNotSatisfiedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `ReplacementContentRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementContentRequiredException"));
            ("details", (ReplacementContentRequiredException.to_json e))]
      | `ReplacementTypeRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementTypeRequiredException"));
            ("details", (ReplacementTypeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryNotAssociatedWithPullRequestException e ->
          `Assoc
            [("error",
               (`String "RepositoryNotAssociatedWithPullRequestException"));
            ("details",
              (RepositoryNotAssociatedWithPullRequestException.to_json e))]
      | `TipOfSourceReferenceIsDifferentException e ->
          `Assoc
            [("error", (`String "TipOfSourceReferenceIsDifferentException"));
            ("details", (TipOfSourceReferenceIsDifferentException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the squash merge strategy. If the merge is successful, it closes the pull request."]
module MergePullRequestBySquashInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the original or updated commit in the pull request source branch. Pass this value if you want an exception thrown if the current commit ID of the tip of the source branch does not match this commit ID."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      commitMessage: Message.t option
        [@ocaml.doc
          "The commit message to include in the commit information for the merge."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address of the person merging the branches. This information is used in the commit information for the merge."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If true, a .gitkeep file is created for empty folders. The default is false."];
      conflictResolution: ConflictResolution.t option
        [@ocaml.doc
          "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]}
    let context_ = "MergePullRequestBySquashInput"
    let make ?sourceCommitId =
      fun ?conflictDetailLevel ->
        fun ?conflictResolutionStrategy ->
          fun ?commitMessage ->
            fun ?authorName ->
              fun ?email ->
                fun ?keepEmptyFolders ->
                  fun ?conflictResolution ->
                    fun ~pullRequestId ->
                      fun ~repositoryName ->
                        fun () ->
                          {
                            sourceCommitId;
                            conflictDetailLevel;
                            conflictResolutionStrategy;
                            commitMessage;
                            authorName;
                            email;
                            keepEmptyFolders;
                            conflictResolution;
                            pullRequestId;
                            repositoryName
                          }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("conflictResolution",
          (Option.map x.conflictResolution ~f:ConflictResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolution =
        (Option.map ~f:ConflictResolution.of_xml)
          (Xml.child xml_arg0 "conflictResolution") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?conflictResolution ?keepEmptyFolders ?email ?authorName
        ?commitMessage ?conflictResolutionStrategy ?conflictDetailLevel
        ?sourceCommitId ~repositoryName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolution =
        field_map json__ "conflictResolution" ConflictResolution.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?conflictResolution ?keepEmptyFolders ?email ?authorName
        ?commitMessage ?conflictResolutionStrategy ?conflictDetailLevel
        ?sourceCommitId ~repositoryName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the squash merge strategy. If the merge is successful, it closes the pull request."]
module MergePullRequestByFastForwardOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc
          "Information about the specified pull request, including the merge."]}
    type nonrec error =
      [
        `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestApprovalRulesNotSatisfiedException of
          PullRequestApprovalRulesNotSatisfiedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `ReferenceDoesNotExistException of ReferenceDoesNotExistException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryNotAssociatedWithPullRequestException of
          RepositoryNotAssociatedWithPullRequestException.t 
      | `TipOfSourceReferenceIsDifferentException of
          TipOfSourceReferenceIsDifferentException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "ReferenceDoesNotExistException" ->
          `ReferenceDoesNotExistException
            (ReferenceDoesNotExistException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_json json)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestApprovalRulesNotSatisfiedException" ->
          `PullRequestApprovalRulesNotSatisfiedException
            (PullRequestApprovalRulesNotSatisfiedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "ReferenceDoesNotExistException" ->
          `ReferenceDoesNotExistException
            (ReferenceDoesNotExistException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_xml xml)
      | "TipOfSourceReferenceIsDifferentException" ->
          `TipOfSourceReferenceIsDifferentException
            (TipOfSourceReferenceIsDifferentException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestApprovalRulesNotSatisfiedException e ->
          `Assoc
            [("error",
               (`String "PullRequestApprovalRulesNotSatisfiedException"));
            ("details",
              (PullRequestApprovalRulesNotSatisfiedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `ReferenceDoesNotExistException e ->
          `Assoc
            [("error", (`String "ReferenceDoesNotExistException"));
            ("details", (ReferenceDoesNotExistException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryNotAssociatedWithPullRequestException e ->
          `Assoc
            [("error",
               (`String "RepositoryNotAssociatedWithPullRequestException"));
            ("details",
              (RepositoryNotAssociatedWithPullRequestException.to_json e))]
      | `TipOfSourceReferenceIsDifferentException e ->
          `Assoc
            [("error", (`String "TipOfSourceReferenceIsDifferentException"));
            ("details", (TipOfSourceReferenceIsDifferentException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the fast-forward merge strategy. If the merge is successful, it closes the pull request."]
module MergePullRequestByFastForwardInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the original or updated commit in the pull request source branch. Pass this value if you want an exception thrown if the current commit ID of the tip of the source branch does not match this commit ID."]}
    let context_ = "MergePullRequestByFastForwardInput"
    let make ?sourceCommitId =
      fun ~pullRequestId ->
        fun ~repositoryName ->
          fun () -> { sourceCommitId; pullRequestId; repositoryName }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?sourceCommitId ~repositoryName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?sourceCommitId ~repositoryName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the fast-forward merge strategy. If the merge is successful, it closes the pull request."]
module MergeBranchesByThreeWayOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the merge in the destination or target branch."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The tree ID of the merge in the destination or target branch."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FileModeRequiredException of FileModeRequiredException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionException of
          InvalidConflictResolutionException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidReplacementContentException of
          InvalidReplacementContentException.t 
      | `InvalidReplacementTypeException of InvalidReplacementTypeException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidTargetBranchException of InvalidTargetBranchException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `MaximumConflictResolutionEntriesExceededException of
          MaximumConflictResolutionEntriesExceededException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MultipleConflictResolutionEntriesException of
          MultipleConflictResolutionEntriesException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `ReplacementContentRequiredException of
          ReplacementContentRequiredException.t 
      | `ReplacementTypeRequiredException of
          ReplacementTypeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId = fun ?treeId -> fun () -> { commitId; treeId }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_json json)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_json json)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_xml xml)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_xml xml)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FileModeRequiredException e ->
          `Assoc
            [("error", (`String "FileModeRequiredException"));
            ("details", (FileModeRequiredException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionException e ->
          `Assoc
            [("error", (`String "InvalidConflictResolutionException"));
            ("details", (InvalidConflictResolutionException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidReplacementContentException e ->
          `Assoc
            [("error", (`String "InvalidReplacementContentException"));
            ("details", (InvalidReplacementContentException.to_json e))]
      | `InvalidReplacementTypeException e ->
          `Assoc
            [("error", (`String "InvalidReplacementTypeException"));
            ("details", (InvalidReplacementTypeException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidTargetBranchException e ->
          `Assoc
            [("error", (`String "InvalidTargetBranchException"));
            ("details", (InvalidTargetBranchException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `MaximumConflictResolutionEntriesExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumConflictResolutionEntriesExceededException"));
            ("details",
              (MaximumConflictResolutionEntriesExceededException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MultipleConflictResolutionEntriesException e ->
          `Assoc
            [("error",
               (`String "MultipleConflictResolutionEntriesException"));
            ("details",
              (MultipleConflictResolutionEntriesException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `ReplacementContentRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementContentRequiredException"));
            ("details", (ReplacementContentRequiredException.to_json e))]
      | `ReplacementTypeRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementTypeRequiredException"));
            ("details", (ReplacementTypeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?treeId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?treeId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Merges two specified branches using the three-way merge strategy."]
module MergeBranchesByThreeWayInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to merge two branches."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      targetBranch: BranchName.t option
        [@ocaml.doc "The branch where the merge is applied."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address of the person merging the branches. This information is used in the commit information for the merge."];
      commitMessage: Message.t option
        [@ocaml.doc
          "The commit message to include in the commit information for the merge."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If true, a .gitkeep file is created for empty folders. The default is false."];
      conflictResolution: ConflictResolution.t option
        [@ocaml.doc
          "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]}
    let context_ = "MergeBranchesByThreeWayInput"
    let make ?targetBranch =
      fun ?conflictDetailLevel ->
        fun ?conflictResolutionStrategy ->
          fun ?authorName ->
            fun ?email ->
              fun ?commitMessage ->
                fun ?keepEmptyFolders ->
                  fun ?conflictResolution ->
                    fun ~repositoryName ->
                      fun ~sourceCommitSpecifier ->
                        fun ~destinationCommitSpecifier ->
                          fun () ->
                            {
                              targetBranch;
                              conflictDetailLevel;
                              conflictResolutionStrategy;
                              authorName;
                              email;
                              commitMessage;
                              keepEmptyFolders;
                              conflictResolution;
                              repositoryName;
                              sourceCommitSpecifier;
                              destinationCommitSpecifier
                            }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("targetBranch", (Option.map x.targetBranch ~f:BranchName.to_value));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("conflictResolution",
          (Option.map x.conflictResolution ~f:ConflictResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolution =
        (Option.map ~f:ConflictResolution.of_xml)
          (Xml.child xml_arg0 "conflictResolution") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let targetBranch =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "targetBranch") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolution =
        field_map json__ "conflictResolution" ConflictResolution.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let targetBranch = field_map json__ "targetBranch" BranchName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Merges two specified branches using the three-way merge strategy."]
module MergeBranchesBySquashOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the merge in the destination or target branch."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The tree ID of the merge in the destination or target branch."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FileModeRequiredException of FileModeRequiredException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionException of
          InvalidConflictResolutionException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidReplacementContentException of
          InvalidReplacementContentException.t 
      | `InvalidReplacementTypeException of InvalidReplacementTypeException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidTargetBranchException of InvalidTargetBranchException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `MaximumConflictResolutionEntriesExceededException of
          MaximumConflictResolutionEntriesExceededException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MultipleConflictResolutionEntriesException of
          MultipleConflictResolutionEntriesException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `ReplacementContentRequiredException of
          ReplacementContentRequiredException.t 
      | `ReplacementTypeRequiredException of
          ReplacementTypeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId = fun ?treeId -> fun () -> { commitId; treeId }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_json json)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_json json)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_xml xml)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_xml xml)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FileModeRequiredException e ->
          `Assoc
            [("error", (`String "FileModeRequiredException"));
            ("details", (FileModeRequiredException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionException e ->
          `Assoc
            [("error", (`String "InvalidConflictResolutionException"));
            ("details", (InvalidConflictResolutionException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidReplacementContentException e ->
          `Assoc
            [("error", (`String "InvalidReplacementContentException"));
            ("details", (InvalidReplacementContentException.to_json e))]
      | `InvalidReplacementTypeException e ->
          `Assoc
            [("error", (`String "InvalidReplacementTypeException"));
            ("details", (InvalidReplacementTypeException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidTargetBranchException e ->
          `Assoc
            [("error", (`String "InvalidTargetBranchException"));
            ("details", (InvalidTargetBranchException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `MaximumConflictResolutionEntriesExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumConflictResolutionEntriesExceededException"));
            ("details",
              (MaximumConflictResolutionEntriesExceededException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MultipleConflictResolutionEntriesException e ->
          `Assoc
            [("error",
               (`String "MultipleConflictResolutionEntriesException"));
            ("details",
              (MultipleConflictResolutionEntriesException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `ReplacementContentRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementContentRequiredException"));
            ("details", (ReplacementContentRequiredException.to_json e))]
      | `ReplacementTypeRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementTypeRequiredException"));
            ("details", (ReplacementTypeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?treeId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?treeId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Merges two branches using the squash merge strategy."]
module MergeBranchesBySquashInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to merge two branches."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      targetBranch: BranchName.t option
        [@ocaml.doc "The branch where the merge is applied."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address of the person merging the branches. This information is used in the commit information for the merge."];
      commitMessage: Message.t option
        [@ocaml.doc "The commit message for the merge."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If this is specified as true, a .gitkeep file is created for empty folders. The default is false."];
      conflictResolution: ConflictResolution.t option
        [@ocaml.doc
          "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]}
    let context_ = "MergeBranchesBySquashInput"
    let make ?targetBranch =
      fun ?conflictDetailLevel ->
        fun ?conflictResolutionStrategy ->
          fun ?authorName ->
            fun ?email ->
              fun ?commitMessage ->
                fun ?keepEmptyFolders ->
                  fun ?conflictResolution ->
                    fun ~repositoryName ->
                      fun ~sourceCommitSpecifier ->
                        fun ~destinationCommitSpecifier ->
                          fun () ->
                            {
                              targetBranch;
                              conflictDetailLevel;
                              conflictResolutionStrategy;
                              authorName;
                              email;
                              commitMessage;
                              keepEmptyFolders;
                              conflictResolution;
                              repositoryName;
                              sourceCommitSpecifier;
                              destinationCommitSpecifier
                            }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("targetBranch", (Option.map x.targetBranch ~f:BranchName.to_value));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("conflictResolution",
          (Option.map x.conflictResolution ~f:ConflictResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolution =
        (Option.map ~f:ConflictResolution.of_xml)
          (Xml.child xml_arg0 "conflictResolution") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let targetBranch =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "targetBranch") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolution =
        field_map json__ "conflictResolution" ConflictResolution.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let targetBranch = field_map json__ "targetBranch" BranchName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Merges two branches using the squash merge strategy."]
module MergeBranchesByFastForwardOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the merge in the destination or target branch."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The tree ID of the merge in the destination or target branch."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidTargetBranchException of InvalidTargetBranchException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId = fun ?treeId -> fun () -> { commitId; treeId }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidTargetBranchException" ->
          `InvalidTargetBranchException
            (InvalidTargetBranchException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidTargetBranchException e ->
          `Assoc
            [("error", (`String "InvalidTargetBranchException"));
            ("details", (InvalidTargetBranchException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?treeId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?treeId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Merges two branches using the fast-forward merge strategy."]
module MergeBranchesByFastForwardInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to merge two branches."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      targetBranch: BranchName.t option
        [@ocaml.doc "The branch where the merge is applied."]}
    let context_ = "MergeBranchesByFastForwardInput"
    let make ?targetBranch =
      fun ~repositoryName ->
        fun ~sourceCommitSpecifier ->
          fun ~destinationCommitSpecifier ->
            fun () ->
              {
                targetBranch;
                repositoryName;
                sourceCommitSpecifier;
                destinationCommitSpecifier
              }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("targetBranch", (Option.map x.targetBranch ~f:BranchName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let targetBranch =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "targetBranch") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let targetBranch = field_map json__ "targetBranch" BranchName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?targetBranch ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Merges two branches using the fast-forward merge strategy."]
module MaximumRuleTemplatesAssociatedWithRepositoryException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum number of approval rule templates for a repository has been exceeded. You cannot associate more than 25 approval rule templates with a repository."]
module MaximumNumberOfApprovalsExceededException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The number of approvals required for the approval rule exceeds the maximum number allowed."]
module ListTagsForResourceOutput =
  struct
    type nonrec t =
      {
      tags: TagsMap.t option
        [@ocaml.doc
          "A list of tag key and value pairs associated with the specified resource."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the next results of the operation."]}
    type nonrec error =
      [ `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidResourceArnException of InvalidResourceArnException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `ResourceArnRequiredException of ResourceArnRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun ?nextToken -> fun () -> { tags; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidResourceArnException" ->
          `InvalidResourceArnException
            (InvalidResourceArnException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "ResourceArnRequiredException" ->
          `ResourceArnRequiredException
            (ResourceArnRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidResourceArnException" ->
          `InvalidResourceArnException
            (InvalidResourceArnException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "ResourceArnRequiredException" ->
          `ResourceArnRequiredException
            (ResourceArnRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidResourceArnException e ->
          `Assoc
            [("error", (`String "InvalidResourceArnException"));
            ("details", (InvalidResourceArnException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `ResourceArnRequiredException e ->
          `Assoc
            [("error", (`String "ResourceArnRequiredException"));
            ("details", (ResourceArnRequiredException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?nextToken ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      make ?nextToken ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about Amazon Web Servicestags for a specified Amazon Resource Name (ARN) in CodeCommit. For a list of valid resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module ListTagsForResourceInput =
  struct
    type nonrec t =
      {
      resourceArn: ResourceArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource for which you want to get information about tags, if any."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."]}
    let context_ = "ListTagsForResourceInput"
    let make ?nextToken =
      fun ~resourceArn -> fun () -> { nextToken; resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (ResourceArn.to_value x.resourceArn)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let resourceArn =
        ResourceArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ?nextToken ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let resourceArn =
        field_map_exn json__ "resourceArn" ResourceArn.of_json in
      make ?nextToken ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about Amazon Web Servicestags for a specified Amazon Resource Name (ARN) in CodeCommit. For a list of valid resources in CodeCommit, see CodeCommit Resources and Operations in the CodeCommit User Guide."]
module ListRepositoriesOutput =
  struct
    type nonrec t =
      {
      repositories: RepositoryNameIdPairList.t option
        [@ocaml.doc
          "Lists the repositories called by the list repositories operation."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the results of the operation. Batch sizes are 1,000 for list repository operations. When the client sends the token back to CodeCommit, another page of 1,000 records is retrieved."]}
    type nonrec error =
      [
        `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidOrderException of InvalidOrderException.t 
      | `InvalidSortByException of InvalidSortByException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositories =
      fun ?nextToken -> fun () -> { repositories; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidOrderException" ->
          `InvalidOrderException (InvalidOrderException.of_json json)
      | "InvalidSortByException" ->
          `InvalidSortByException (InvalidSortByException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidOrderException" ->
          `InvalidOrderException (InvalidOrderException.of_xml xml)
      | "InvalidSortByException" ->
          `InvalidSortByException (InvalidSortByException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidOrderException e ->
          `Assoc
            [("error", (`String "InvalidOrderException"));
            ("details", (InvalidOrderException.to_json e))]
      | `InvalidSortByException e ->
          `Assoc
            [("error", (`String "InvalidSortByException"));
            ("details", (InvalidSortByException.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
        [("repositories",
           (Option.map x.repositories ~f:RepositoryNameIdPairList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositories =
        (Option.map ~f:RepositoryNameIdPairList.of_xml)
          (Xml.child xml_arg0 "repositories") in
      make ?nextToken ?repositories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositories =
        field_map json__ "repositories" RepositoryNameIdPairList.of_json in
      make ?nextToken ?repositories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a list repositories operation."]
module ListRepositoriesInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the results of the operation. Batch sizes are 1,000 for list repository operations. When the client sends the token back to CodeCommit, another page of 1,000 records is retrieved."];
      sortBy: SortByEnum.t option
        [@ocaml.doc
          "The criteria used to sort the results of a list repositories operation."];
      order: OrderEnum.t option
        [@ocaml.doc
          "The order in which to sort the results of a list repositories operation."]}
    let make ?nextToken =
      fun ?sortBy -> fun ?order -> fun () -> { nextToken; sortBy; order }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("sortBy", (Option.map x.sortBy ~f:SortByEnum.to_value));
        ("order", (Option.map x.order ~f:OrderEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let order =
        (Option.map ~f:OrderEnum.of_xml) (Xml.child xml_arg0 "order") in
      let sortBy =
        (Option.map ~f:SortByEnum.of_xml) (Xml.child xml_arg0 "sortBy") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?order ?sortBy ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let order = field_map json__ "order" OrderEnum.of_json in
      let sortBy = field_map json__ "sortBy" SortByEnum.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?order ?sortBy ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a list repositories operation."]
module ListRepositoriesForApprovalRuleTemplateOutput =
  struct
    type nonrec t =
      {
      repositoryNames: RepositoryNameList.t option
        [@ocaml.doc
          "A list of repository names that are associated with the specified approval rule template."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the next results of the operation."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryNames =
      fun ?nextToken -> fun () -> { repositoryNames; nextToken }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.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
        [("repositoryNames",
           (Option.map x.repositoryNames ~f:RepositoryNameList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositoryNames =
        (Option.map ~f:RepositoryNameList.of_xml)
          (Xml.child xml_arg0 "repositoryNames") in
      make ?nextToken ?repositoryNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositoryNames =
        field_map json__ "repositoryNames" RepositoryNameList.of_json in
      make ?nextToken ?repositoryNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all repositories associated with the specified approval rule template."]
module ListRepositoriesForApprovalRuleTemplateInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the approval rule template for which you want to list repositories that are associated with that template."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."]}
    let context_ = "ListRepositoriesForApprovalRuleTemplateInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~approvalRuleTemplateName ->
          fun () -> { nextToken; maxResults; approvalRuleTemplateName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ?maxResults ?nextToken ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ?maxResults ?nextToken ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all repositories associated with the specified approval rule template."]
module ListPullRequestsOutput =
  struct
    type nonrec t =
      {
      pullRequestIds: PullRequestIdList.t option
        [@ocaml.doc "The system-generated IDs of the pull requests."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the next results of the operation."]}
    type nonrec error =
      [ `AuthorDoesNotExistException of AuthorDoesNotExistException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidAuthorArnException of InvalidAuthorArnException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidPullRequestStatusException of
          InvalidPullRequestStatusException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequestIds =
      fun ?nextToken -> fun () -> { pullRequestIds; nextToken }
    let error_of_json name json =
      match name with
      | "AuthorDoesNotExistException" ->
          `AuthorDoesNotExistException
            (AuthorDoesNotExistException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidAuthorArnException" ->
          `InvalidAuthorArnException (InvalidAuthorArnException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidPullRequestStatusException" ->
          `InvalidPullRequestStatusException
            (InvalidPullRequestStatusException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthorDoesNotExistException" ->
          `AuthorDoesNotExistException
            (AuthorDoesNotExistException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidAuthorArnException" ->
          `InvalidAuthorArnException (InvalidAuthorArnException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidPullRequestStatusException" ->
          `InvalidPullRequestStatusException
            (InvalidPullRequestStatusException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthorDoesNotExistException e ->
          `Assoc
            [("error", (`String "AuthorDoesNotExistException"));
            ("details", (AuthorDoesNotExistException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidAuthorArnException e ->
          `Assoc
            [("error", (`String "InvalidAuthorArnException"));
            ("details", (InvalidAuthorArnException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidPullRequestStatusException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestStatusException"));
            ("details", (InvalidPullRequestStatusException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("pullRequestIds",
           (Option.map x.pullRequestIds ~f:PullRequestIdList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let pullRequestIds =
        (Option.map ~f:PullRequestIdList.of_xml)
          (Xml.child xml_arg0 "pullRequestIds") in
      make ?nextToken ?pullRequestIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let pullRequestIds =
        field_map json__ "pullRequestIds" PullRequestIdList.of_json in
      make ?nextToken ?pullRequestIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of pull requests for a specified repository. The return list can be refined by pull request status or pull request author ARN."]
module ListPullRequestsInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository for which you want to list pull requests."];
      authorArn: Arn.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of the user who created the pull request. If used, this filters the results to pull requests created by that user."];
      pullRequestStatus: PullRequestStatusEnum.t option
        [@ocaml.doc
          "Optional. The status of the pull request. If used, this refines the results to the pull requests that match the specified status."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."]}
    let context_ = "ListPullRequestsInput"
    let make ?authorArn =
      fun ?pullRequestStatus ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~repositoryName ->
              fun () ->
                {
                  authorArn;
                  pullRequestStatus;
                  nextToken;
                  maxResults;
                  repositoryName
                }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("authorArn", (Option.map x.authorArn ~f:Arn.to_value));
        ("pullRequestStatus",
          (Option.map x.pullRequestStatus ~f:PullRequestStatusEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let pullRequestStatus =
        (Option.map ~f:PullRequestStatusEnum.of_xml)
          (Xml.child xml_arg0 "pullRequestStatus") in
      let authorArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "authorArn") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?maxResults ?nextToken ?pullRequestStatus ?authorArn
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let pullRequestStatus =
        field_map json__ "pullRequestStatus" PullRequestStatusEnum.of_json in
      let authorArn = field_map json__ "authorArn" Arn.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?maxResults ?nextToken ?pullRequestStatus ?authorArn
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of pull requests for a specified repository. The return list can be refined by pull request status or pull request author ARN."]
module ListFileCommitHistoryResponse =
  struct
    type nonrec t =
      {
      revisionDag: RevisionDag.t option
        [@ocaml.doc
          "An array of FileVersion objects that form a directed acyclic graph (DAG) of the changes to the file made by the commits that changed the file."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used to return the next batch of results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?revisionDag =
      fun ?nextToken -> fun () -> { revisionDag; nextToken }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("revisionDag", (Option.map x.revisionDag ~f:RevisionDag.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let revisionDag =
        (Option.map ~f:RevisionDag.of_xml) (Xml.child xml_arg0 "revisionDag") in
      make ?nextToken ?revisionDag ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let revisionDag = field_map json__ "revisionDag" RevisionDag.of_json in
      make ?nextToken ?revisionDag ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of commits and changes to a specified file."]
module ListFileCommitHistoryRequest =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository that contains the file."];
      commitSpecifier: CommitName.t option
        [@ocaml.doc
          "The fully quaified reference that identifies the commit that contains the file. For example, you can specify a full commit ID, a tag, a branch name, or a reference such as refs/heads/main. If none is provided, the head commit is used."];
      filePath: Path.t
        [@ocaml.doc
          "The full path of the file whose history you want to retrieve, including the name of the file."];
      maxResults: Limit.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the results."]}
    let context_ = "ListFileCommitHistoryRequest"
    let make ?commitSpecifier =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ~repositoryName ->
            fun ~filePath ->
              fun () ->
                {
                  commitSpecifier;
                  maxResults;
                  nextToken;
                  repositoryName;
                  filePath
                }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("commitSpecifier",
          (Option.map x.commitSpecifier ~f:CommitName.to_value));
        ("filePath", (Some (Path.to_value x.filePath)));
        ("maxResults", (Option.map x.maxResults ~f:Limit.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "maxResults") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      let commitSpecifier =
        (Option.map ~f:CommitName.of_xml)
          (Xml.child xml_arg0 "commitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ?maxResults ~filePath ?commitSpecifier ~repositoryName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" Limit.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      let commitSpecifier =
        field_map json__ "commitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ?maxResults ~filePath ?commitSpecifier ~repositoryName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a list of commits and changes to a specified file."]
module ListBranchesOutput =
  struct
    type nonrec t =
      {
      branches: BranchNameList.t option
        [@ocaml.doc "The list of branch names."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that returns the batch of the results."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branches = fun ?nextToken -> fun () -> { branches; nextToken }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("branches", (Option.map x.branches ~f:BranchNameList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let branches =
        (Option.map ~f:BranchNameList.of_xml) (Xml.child xml_arg0 "branches") in
      make ?nextToken ?branches ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let branches = field_map json__ "branches" BranchNameList.of_json in
      make ?nextToken ?branches ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a list branches operation."]
module ListBranchesInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository that contains the branches."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the results."]}
    let context_ = "ListBranchesInput"
    let make ?nextToken =
      fun ~repositoryName -> fun () -> { nextToken; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a list branches operation."]
module ListAssociatedApprovalRuleTemplatesForRepositoryOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateNames: ApprovalRuleTemplateNameList.t option
        [@ocaml.doc
          "The names of all approval rule templates associated with the repository."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the next results of the operation."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplateNames =
      fun ?nextToken -> fun () -> { approvalRuleTemplateNames; nextToken }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("approvalRuleTemplateNames",
           (Option.map x.approvalRuleTemplateNames
              ~f:ApprovalRuleTemplateNameList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let approvalRuleTemplateNames =
        (Option.map ~f:ApprovalRuleTemplateNameList.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateNames") in
      make ?nextToken ?approvalRuleTemplateNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let approvalRuleTemplateNames =
        field_map json__ "approvalRuleTemplateNames"
          ApprovalRuleTemplateNameList.of_json in
      make ?nextToken ?approvalRuleTemplateNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all approval rule templates that are associated with a specified repository."]
module ListAssociatedApprovalRuleTemplatesForRepositoryInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository for which you want to list all associated approval rule templates."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."]}
    let context_ = "ListAssociatedApprovalRuleTemplatesForRepositoryInput"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~repositoryName ->
          fun () -> { nextToken; maxResults; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?maxResults ?nextToken ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?maxResults ?nextToken ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all approval rule templates that are associated with a specified repository."]
module ListApprovalRuleTemplatesOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateNames: ApprovalRuleTemplateNameList.t option
        [@ocaml.doc
          "The names of all the approval rule templates found in the Amazon Web Services Region for your Amazon Web Services account."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that allows the operation to batch the next results of the operation."]}
    type nonrec error =
      [
        `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplateNames =
      fun ?nextToken -> fun () -> { approvalRuleTemplateNames; nextToken }
    let error_of_json name json =
      match name with
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.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
        [("approvalRuleTemplateNames",
           (Option.map x.approvalRuleTemplateNames
              ~f:ApprovalRuleTemplateNameList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let approvalRuleTemplateNames =
        (Option.map ~f:ApprovalRuleTemplateNameList.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateNames") in
      make ?nextToken ?approvalRuleTemplateNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let approvalRuleTemplateNames =
        field_map json__ "approvalRuleTemplateNames"
          ApprovalRuleTemplateNameList.of_json in
      make ?nextToken ?approvalRuleTemplateNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all approval rule templates in the specified Amazon Web Services Region in your Amazon Web Services account. If an Amazon Web Services Region is not specified, the Amazon Web Services Region where you are signed in is used."]
module ListApprovalRuleTemplatesInput =
  struct
    type nonrec t =
      {
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all approval rule templates in the specified Amazon Web Services Region in your Amazon Web Services account. If an Amazon Web Services Region is not specified, the Amazon Web Services Region where you are signed in is used."]
module InvalidTagKeysListException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The list of tags is not valid."]
module InvalidReactionValueException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value of the reaction is not valid. For more information, see the CodeCommit User Guide."]
module InvalidOverrideStatusException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The override status is not valid. Valid statuses are OVERRIDE and REVOKE."]
module InvalidApprovalStateException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The state for the approval is not valid. Valid values include APPROVE and REVOKE."]
module GetRepositoryTriggersOutput =
  struct
    type nonrec t =
      {
      configurationId: RepositoryTriggersConfigurationId.t option
        [@ocaml.doc "The system-generated unique ID for the trigger."];
      triggers: RepositoryTriggersList.t option
        [@ocaml.doc
          "The JSON block of configuration information for each trigger."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?configurationId =
      fun ?triggers -> fun () -> { configurationId; triggers }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("configurationId",
           (Option.map x.configurationId
              ~f:RepositoryTriggersConfigurationId.to_value));
        ("triggers",
          (Option.map x.triggers ~f:RepositoryTriggersList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let triggers =
        (Option.map ~f:RepositoryTriggersList.of_xml)
          (Xml.child xml_arg0 "triggers") in
      let configurationId =
        (Option.map ~f:RepositoryTriggersConfigurationId.of_xml)
          (Xml.child xml_arg0 "configurationId") in
      make ?triggers ?configurationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let triggers =
        field_map json__ "triggers" RepositoryTriggersList.of_json in
      let configurationId =
        field_map json__ "configurationId"
          RepositoryTriggersConfigurationId.of_json in
      make ?triggers ?configurationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a get repository triggers operation."]
module GetRepositoryTriggersInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository for which the trigger is configured."]}
    let context_ = "GetRepositoryTriggersInput"
    let make ~repositoryName = fun () -> { repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a get repository triggers operation."]
module GetRepositoryOutput =
  struct
    type nonrec t =
      {
      repositoryMetadata: RepositoryMetadata.t option
        [@ocaml.doc "Information about the repository."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryMetadata = fun () -> { repositoryMetadata }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("repositoryMetadata",
           (Option.map x.repositoryMetadata ~f:RepositoryMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryMetadata =
        (Option.map ~f:RepositoryMetadata.of_xml)
          (Xml.child xml_arg0 "repositoryMetadata") in
      make ?repositoryMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryMetadata =
        field_map json__ "repositoryMetadata" RepositoryMetadata.of_json in
      make ?repositoryMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a get repository operation."]
module GetRepositoryInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository to get information about."]}
    let context_ = "GetRepositoryInput"
    let make ~repositoryName = fun () -> { repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a get repository operation."]
module GetPullRequestOverrideStateOutput =
  struct
    type nonrec t =
      {
      overridden: Overridden.t option
        [@ocaml.doc
          "A Boolean value that indicates whether a pull request has had its rules set aside (TRUE) or whether all approval rules still apply (FALSE)."];
      overrider: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user or identity that overrode the rules and their requirements for the pull request."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRevisionIdException of InvalidRevisionIdException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `RevisionIdRequiredException of RevisionIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?overridden =
      fun ?overrider -> fun () -> { overridden; overrider }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException
            (InvalidRevisionIdException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException (InvalidRevisionIdException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRevisionIdException e ->
          `Assoc
            [("error", (`String "InvalidRevisionIdException"));
            ("details", (InvalidRevisionIdException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `RevisionIdRequiredException e ->
          `Assoc
            [("error", (`String "RevisionIdRequiredException"));
            ("details", (RevisionIdRequiredException.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
        [("overridden", (Option.map x.overridden ~f:Overridden.to_value));
        ("overrider", (Option.map x.overrider ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let overrider =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "overrider") in
      let overridden =
        (Option.map ~f:Overridden.of_xml) (Xml.child xml_arg0 "overridden") in
      make ?overrider ?overridden ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let overrider = field_map json__ "overrider" Arn.of_json in
      let overridden = field_map json__ "overridden" Overridden.of_json in
      make ?overrider ?overridden ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about whether approval rules have been set aside (overridden) for a pull request, and if so, the Amazon Resource Name (ARN) of the user or identity that overrode the rules and their requirements for the pull request."]
module GetPullRequestOverrideStateInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The ID of the pull request for which you want to get information about whether approval rules have been set aside (overridden)."];
      revisionId: RevisionId.t
        [@ocaml.doc
          "The system-generated ID of the revision for the pull request. To retrieve the most recent revision ID, use GetPullRequest."]}
    let context_ = "GetPullRequestOverrideStateInput"
    let make ~pullRequestId =
      fun ~revisionId -> fun () -> { pullRequestId; revisionId }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~revisionId ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~revisionId ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about whether approval rules have been set aside (overridden) for a pull request, and if so, the Amazon Resource Name (ARN) of the user or identity that overrode the rules and their requirements for the pull request."]
module GetPullRequestOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc "Information about the specified pull request."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a pull request in a specified repository."]
module GetPullRequestInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."]}
    let context_ = "GetPullRequestInput"
    let make ~pullRequestId = fun () -> { pullRequestId }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about a pull request in a specified repository."]
module GetPullRequestApprovalStatesOutput =
  struct
    type nonrec t =
      {
      approvals: ApprovalList.t option
        [@ocaml.doc
          "Information about users who have approved the pull request."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRevisionIdException of InvalidRevisionIdException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `RevisionIdRequiredException of RevisionIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvals = fun () -> { approvals }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException
            (InvalidRevisionIdException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException (InvalidRevisionIdException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRevisionIdException e ->
          `Assoc
            [("error", (`String "InvalidRevisionIdException"));
            ("details", (InvalidRevisionIdException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `RevisionIdRequiredException e ->
          `Assoc
            [("error", (`String "RevisionIdRequiredException"));
            ("details", (RevisionIdRequiredException.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
        [("approvals", (Option.map x.approvals ~f:ApprovalList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvals =
        (Option.map ~f:ApprovalList.of_xml) (Xml.child xml_arg0 "approvals") in
      make ?approvals ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvals = field_map json__ "approvals" ApprovalList.of_json in
      make ?approvals ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the approval states for a specified pull request. Approval states only apply to pull requests that have one or more approval rules applied to them."]
module GetPullRequestApprovalStatesInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc "The system-generated ID for the pull request."];
      revisionId: RevisionId.t
        [@ocaml.doc "The system-generated ID for the pull request revision."]}
    let context_ = "GetPullRequestApprovalStatesInput"
    let make ~pullRequestId =
      fun ~revisionId -> fun () -> { pullRequestId; revisionId }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~revisionId ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~revisionId ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Gets information about the approval states for a specified pull request. Approval states only apply to pull requests that have one or more approval rules applied to them."]
module GetMergeOptionsOutput =
  struct
    type nonrec t =
      {
      mergeOptions: MergeOptions.t option
        [@ocaml.doc "The merge option or strategy used to merge the code."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the source commit specifier that was used in the merge evaluation."];
      destinationCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the destination commit specifier that was used in the merge evaluation."];
      baseCommitId: ObjectId.t option
        [@ocaml.doc "The commit ID of the merge base."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mergeOptions =
      fun ?sourceCommitId ->
        fun ?destinationCommitId ->
          fun ?baseCommitId ->
            fun () ->
              {
                mergeOptions;
                sourceCommitId;
                destinationCommitId;
                baseCommitId
              }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("mergeOptions",
           (Option.map x.mergeOptions ~f:MergeOptions.to_value));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:ObjectId.to_value));
        ("baseCommitId", (Option.map x.baseCommitId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baseCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "baseCommitId") in
      let destinationCommitId =
        (Option.map ~f:ObjectId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let mergeOptions =
        (Option.map ~f:MergeOptions.of_xml)
          (Xml.child xml_arg0 "mergeOptions") in
      make ?baseCommitId ?destinationCommitId ?sourceCommitId ?mergeOptions
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baseCommitId = field_map json__ "baseCommitId" ObjectId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" ObjectId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let mergeOptions = field_map json__ "mergeOptions" MergeOptions.of_json in
      make ?baseCommitId ?destinationCommitId ?sourceCommitId ?mergeOptions
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the merge options available for merging two specified branches. For details about why a merge option is not available, use GetMergeConflicts or DescribeMergeConflicts."]
module GetMergeOptionsInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the commits about which you want to get merge options."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."]}
    let context_ = "GetMergeOptionsInput"
    let make ?conflictDetailLevel =
      fun ?conflictResolutionStrategy ->
        fun ~repositoryName ->
          fun ~sourceCommitSpecifier ->
            fun ~destinationCommitSpecifier ->
              fun () ->
                {
                  conflictDetailLevel;
                  conflictResolutionStrategy;
                  repositoryName;
                  sourceCommitSpecifier;
                  destinationCommitSpecifier
                }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?conflictResolutionStrategy ?conflictDetailLevel
        ~destinationCommitSpecifier ~sourceCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?conflictResolutionStrategy ?conflictDetailLevel
        ~destinationCommitSpecifier ~sourceCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the merge options available for merging two specified branches. For details about why a merge option is not available, use GetMergeConflicts or DescribeMergeConflicts."]
module GetMergeConflictsOutput =
  struct
    type nonrec t =
      {
      mergeable: IsMergeable.t option
        [@ocaml.doc
          "A Boolean value that indicates whether the code is mergeable by the specified merge option."];
      destinationCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the destination commit specifier that was used in the merge evaluation."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the source commit specifier that was used in the merge evaluation."];
      baseCommitId: ObjectId.t option
        [@ocaml.doc "The commit ID of the merge base."];
      conflictMetadataList: ConflictMetadataList.t option
        [@ocaml.doc
          "A list of metadata for any conflicting files. If the specified merge strategy is FAST_FORWARD_MERGE, this list is always empty."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidDestinationCommitSpecifierException of
          InvalidDestinationCommitSpecifierException.t 
      | `InvalidMaxConflictFilesException of
          InvalidMaxConflictFilesException.t 
      | `InvalidMergeOptionException of InvalidMergeOptionException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidSourceCommitSpecifierException of
          InvalidSourceCommitSpecifierException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MergeOptionRequiredException of MergeOptionRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?mergeable =
      fun ?destinationCommitId ->
        fun ?sourceCommitId ->
          fun ?baseCommitId ->
            fun ?conflictMetadataList ->
              fun ?nextToken ->
                fun () ->
                  {
                    mergeable;
                    destinationCommitId;
                    sourceCommitId;
                    baseCommitId;
                    conflictMetadataList;
                    nextToken
                  }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidDestinationCommitSpecifierException" ->
          `InvalidDestinationCommitSpecifierException
            (InvalidDestinationCommitSpecifierException.of_json json)
      | "InvalidMaxConflictFilesException" ->
          `InvalidMaxConflictFilesException
            (InvalidMaxConflictFilesException.of_json json)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidSourceCommitSpecifierException" ->
          `InvalidSourceCommitSpecifierException
            (InvalidSourceCommitSpecifierException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidDestinationCommitSpecifierException" ->
          `InvalidDestinationCommitSpecifierException
            (InvalidDestinationCommitSpecifierException.of_xml xml)
      | "InvalidMaxConflictFilesException" ->
          `InvalidMaxConflictFilesException
            (InvalidMaxConflictFilesException.of_xml xml)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidSourceCommitSpecifierException" ->
          `InvalidSourceCommitSpecifierException
            (InvalidSourceCommitSpecifierException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidDestinationCommitSpecifierException e ->
          `Assoc
            [("error",
               (`String "InvalidDestinationCommitSpecifierException"));
            ("details",
              (InvalidDestinationCommitSpecifierException.to_json e))]
      | `InvalidMaxConflictFilesException e ->
          `Assoc
            [("error", (`String "InvalidMaxConflictFilesException"));
            ("details", (InvalidMaxConflictFilesException.to_json e))]
      | `InvalidMergeOptionException e ->
          `Assoc
            [("error", (`String "InvalidMergeOptionException"));
            ("details", (InvalidMergeOptionException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidSourceCommitSpecifierException e ->
          `Assoc
            [("error", (`String "InvalidSourceCommitSpecifierException"));
            ("details", (InvalidSourceCommitSpecifierException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MergeOptionRequiredException e ->
          `Assoc
            [("error", (`String "MergeOptionRequiredException"));
            ("details", (MergeOptionRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("mergeable", (Option.map x.mergeable ~f:IsMergeable.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:ObjectId.to_value));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("baseCommitId", (Option.map x.baseCommitId ~f:ObjectId.to_value));
        ("conflictMetadataList",
          (Option.map x.conflictMetadataList ~f:ConflictMetadataList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let conflictMetadataList =
        (Option.map ~f:ConflictMetadataList.of_xml)
          (Xml.child xml_arg0 "conflictMetadataList") in
      let baseCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "baseCommitId") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let destinationCommitId =
        (Option.map ~f:ObjectId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let mergeable =
        (Option.map ~f:IsMergeable.of_xml) (Xml.child xml_arg0 "mergeable") in
      make ?nextToken ?conflictMetadataList ?baseCommitId ?sourceCommitId
        ?destinationCommitId ?mergeable ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let conflictMetadataList =
        field_map json__ "conflictMetadataList" ConflictMetadataList.of_json in
      let baseCommitId = field_map json__ "baseCommitId" ObjectId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" ObjectId.of_json in
      let mergeable = field_map json__ "mergeable" IsMergeable.of_json in
      make ?nextToken ?conflictMetadataList ?baseCommitId ?sourceCommitId
        ?destinationCommitId ?mergeable ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about merge conflicts between the before and after commit IDs for a pull request in a repository."]
module GetMergeConflictsInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where the pull request was created."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      mergeOption: MergeOptionTypeEnum.t
        [@ocaml.doc
          "The merge option or strategy you want to use to merge the code."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      maxConflictFiles: MaxResults.t option
        [@ocaml.doc "The maximum number of files to include in the output."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."]}
    let context_ = "GetMergeConflictsInput"
    let make ?conflictDetailLevel =
      fun ?maxConflictFiles ->
        fun ?conflictResolutionStrategy ->
          fun ?nextToken ->
            fun ~repositoryName ->
              fun ~destinationCommitSpecifier ->
                fun ~sourceCommitSpecifier ->
                  fun ~mergeOption ->
                    fun () ->
                      {
                        conflictDetailLevel;
                        maxConflictFiles;
                        conflictResolutionStrategy;
                        nextToken;
                        repositoryName;
                        destinationCommitSpecifier;
                        sourceCommitSpecifier;
                        mergeOption
                      }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("mergeOption", (Some (MergeOptionTypeEnum.to_value x.mergeOption)));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("maxConflictFiles",
          (Option.map x.maxConflictFiles ~f:MaxResults.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let maxConflictFiles =
        (Option.map ~f:MaxResults.of_xml)
          (Xml.child xml_arg0 "maxConflictFiles") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let mergeOption =
        MergeOptionTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mergeOption") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ?conflictResolutionStrategy ?maxConflictFiles
        ?conflictDetailLevel ~mergeOption ~sourceCommitSpecifier
        ~destinationCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let maxConflictFiles =
        field_map json__ "maxConflictFiles" MaxResults.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let mergeOption =
        field_map_exn json__ "mergeOption" MergeOptionTypeEnum.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ?conflictResolutionStrategy ?maxConflictFiles
        ?conflictDetailLevel ~mergeOption ~sourceCommitSpecifier
        ~destinationCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about merge conflicts between the before and after commit IDs for a pull request in a repository."]
module GetMergeCommitOutput =
  struct
    type nonrec t =
      {
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the source commit specifier that was used in the merge evaluation."];
      destinationCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the destination commit specifier that was used in the merge evaluation."];
      baseCommitId: ObjectId.t option
        [@ocaml.doc "The commit ID of the merge base."];
      mergedCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID for the merge commit created when the source branch was merged into the destination branch. If the fast-forward merge strategy was used, there is no merge commit."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sourceCommitId =
      fun ?destinationCommitId ->
        fun ?baseCommitId ->
          fun ?mergedCommitId ->
            fun () ->
              {
                sourceCommitId;
                destinationCommitId;
                baseCommitId;
                mergedCommitId
              }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("sourceCommitId",
           (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:ObjectId.to_value));
        ("baseCommitId", (Option.map x.baseCommitId ~f:ObjectId.to_value));
        ("mergedCommitId",
          (Option.map x.mergedCommitId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mergedCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "mergedCommitId") in
      let baseCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "baseCommitId") in
      let destinationCommitId =
        (Option.map ~f:ObjectId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      make ?mergedCommitId ?baseCommitId ?destinationCommitId ?sourceCommitId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mergedCommitId = field_map json__ "mergedCommitId" ObjectId.of_json in
      let baseCommitId = field_map json__ "baseCommitId" ObjectId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" ObjectId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      make ?mergedCommitId ?baseCommitId ?destinationCommitId ?sourceCommitId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specified merge commit."]
module GetMergeCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the merge commit about which you want to get information."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."]}
    let context_ = "GetMergeCommitInput"
    let make ?conflictDetailLevel =
      fun ?conflictResolutionStrategy ->
        fun ~repositoryName ->
          fun ~sourceCommitSpecifier ->
            fun ~destinationCommitSpecifier ->
              fun () ->
                {
                  conflictDetailLevel;
                  conflictResolutionStrategy;
                  repositoryName;
                  sourceCommitSpecifier;
                  destinationCommitSpecifier
                }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?conflictResolutionStrategy ?conflictDetailLevel
        ~destinationCommitSpecifier ~sourceCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?conflictResolutionStrategy ?conflictDetailLevel
        ~destinationCommitSpecifier ~sourceCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information about a specified merge commit."]
module GetFolderOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID used as a reference for the returned version of the folder content."];
      folderPath: Path.t option
        [@ocaml.doc
          "The fully qualified path of the folder whose contents are returned."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains the folder."];
      subFolders: FolderList.t option
        [@ocaml.doc
          "The list of folders that exist under the specified folder, if any."];
      files: FileList.t option
        [@ocaml.doc "The list of files in the specified folder, if any."];
      symbolicLinks: SymbolicLinkList.t option
        [@ocaml.doc
          "The list of symbolic links to other files and folders in the specified folder, if any."];
      subModules: SubModuleList.t option
        [@ocaml.doc
          "The list of submodules in the specified folder, if any."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FolderDoesNotExistException of FolderDoesNotExistException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId =
      fun ?folderPath ->
        fun ?treeId ->
          fun ?subFolders ->
            fun ?files ->
              fun ?symbolicLinks ->
                fun ?subModules ->
                  fun () ->
                    {
                      commitId;
                      folderPath;
                      treeId;
                      subFolders;
                      files;
                      symbolicLinks;
                      subModules
                    }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FolderDoesNotExistException" ->
          `FolderDoesNotExistException
            (FolderDoesNotExistException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FolderDoesNotExistException" ->
          `FolderDoesNotExistException
            (FolderDoesNotExistException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FolderDoesNotExistException e ->
          `Assoc
            [("error", (`String "FolderDoesNotExistException"));
            ("details", (FolderDoesNotExistException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("folderPath", (Option.map x.folderPath ~f:Path.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value));
        ("subFolders", (Option.map x.subFolders ~f:FolderList.to_value));
        ("files", (Option.map x.files ~f:FileList.to_value));
        ("symbolicLinks",
          (Option.map x.symbolicLinks ~f:SymbolicLinkList.to_value));
        ("subModules", (Option.map x.subModules ~f:SubModuleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subModules =
        (Option.map ~f:SubModuleList.of_xml)
          (Xml.child xml_arg0 "subModules") in
      let symbolicLinks =
        (Option.map ~f:SymbolicLinkList.of_xml)
          (Xml.child xml_arg0 "symbolicLinks") in
      let files =
        (Option.map ~f:FileList.of_xml) (Xml.child xml_arg0 "files") in
      let subFolders =
        (Option.map ~f:FolderList.of_xml) (Xml.child xml_arg0 "subFolders") in
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let folderPath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "folderPath") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?subModules ?symbolicLinks ?files ?subFolders ?treeId ?folderPath
        ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subModules = field_map json__ "subModules" SubModuleList.of_json in
      let symbolicLinks =
        field_map json__ "symbolicLinks" SymbolicLinkList.of_json in
      let files = field_map json__ "files" FileList.of_json in
      let subFolders = field_map json__ "subFolders" FolderList.of_json in
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let folderPath = field_map json__ "folderPath" Path.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?subModules ?symbolicLinks ?files ?subFolders ?treeId ?folderPath
        ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the contents of a specified folder in a repository."]
module GetFolderInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository."];
      commitSpecifier: CommitName.t option
        [@ocaml.doc
          "A fully qualified reference used to identify a commit that contains the version of the folder's content to return. A fully qualified reference can be a commit ID, branch name, tag, or reference such as HEAD. If no specifier is provided, the folder content is returned as it exists in the HEAD commit."];
      folderPath: Path.t
        [@ocaml.doc
          "The fully qualified path to the folder whose contents are returned, including the folder name. For example, /examples is a fully-qualified path to a folder named examples that was created off of the root directory (/) of a repository."]}
    let context_ = "GetFolderInput"
    let make ?commitSpecifier =
      fun ~repositoryName ->
        fun ~folderPath ->
          fun () -> { commitSpecifier; repositoryName; folderPath }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("commitSpecifier",
          (Option.map x.commitSpecifier ~f:CommitName.to_value));
        ("folderPath", (Some (Path.to_value x.folderPath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let folderPath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "folderPath") in
      let commitSpecifier =
        (Option.map ~f:CommitName.of_xml)
          (Xml.child xml_arg0 "commitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~folderPath ?commitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let folderPath = field_map_exn json__ "folderPath" Path.of_json in
      let commitSpecifier =
        field_map json__ "commitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~folderPath ?commitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the contents of a specified folder in a repository."]
module GetFileOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the commit that contains the content returned by GetFile."];
      blobId: ObjectId.t option
        [@ocaml.doc
          "The blob ID of the object that represents the file content."];
      filePath: Path.t option
        [@ocaml.doc
          "The fully qualified path to the specified file. Returns the name and extension of the file."];
      fileMode: FileModeTypeEnum.t option
        [@ocaml.doc
          "The extrapolated file mode permissions of the blob. Valid values include strings such as EXECUTABLE and not numeric values. The file mode permissions returned by this API are not the standard file mode permission values, such as 100644, but rather extrapolated values. See the supported return values."];
      fileSize: ObjectSize.t option
        [@ocaml.doc "The size of the contents of the file, in bytes."];
      fileContent: FileContent.t option
        [@ocaml.doc
          "The base-64 encoded binary data object that represents the content of the file."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileDoesNotExistException of FileDoesNotExistException.t 
      | `FileTooLargeException of FileTooLargeException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId =
      fun ?blobId ->
        fun ?filePath ->
          fun ?fileMode ->
            fun ?fileSize ->
              fun ?fileContent ->
                fun () ->
                  {
                    commitId;
                    blobId;
                    filePath;
                    fileMode;
                    fileSize;
                    fileContent
                  }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_json json)
      | "FileTooLargeException" ->
          `FileTooLargeException (FileTooLargeException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_xml xml)
      | "FileTooLargeException" ->
          `FileTooLargeException (FileTooLargeException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileDoesNotExistException e ->
          `Assoc
            [("error", (`String "FileDoesNotExistException"));
            ("details", (FileDoesNotExistException.to_json e))]
      | `FileTooLargeException e ->
          `Assoc
            [("error", (`String "FileTooLargeException"));
            ("details", (FileTooLargeException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("filePath", (Option.map x.filePath ~f:Path.to_value));
        ("fileMode", (Option.map x.fileMode ~f:FileModeTypeEnum.to_value));
        ("fileSize", (Option.map x.fileSize ~f:ObjectSize.to_value));
        ("fileContent", (Option.map x.fileContent ~f:FileContent.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileContent =
        (Option.map ~f:FileContent.of_xml) (Xml.child xml_arg0 "fileContent") in
      let fileSize =
        (Option.map ~f:ObjectSize.of_xml) (Xml.child xml_arg0 "fileSize") in
      let fileMode =
        (Option.map ~f:FileModeTypeEnum.of_xml)
          (Xml.child xml_arg0 "fileMode") in
      let filePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "filePath") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?fileContent ?fileSize ?fileMode ?filePath ?blobId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileContent = field_map json__ "fileContent" FileContent.of_json in
      let fileSize = field_map json__ "fileSize" ObjectSize.of_json in
      let fileMode = field_map json__ "fileMode" FileModeTypeEnum.of_json in
      let filePath = field_map json__ "filePath" Path.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?fileContent ?fileSize ?fileMode ?filePath ?blobId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the base-64 encoded contents of a specified file and its metadata."]
module GetFileInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository that contains the file."];
      commitSpecifier: CommitName.t option
        [@ocaml.doc
          "The fully quaified reference that identifies the commit that contains the file. For example, you can specify a full commit ID, a tag, a branch name, or a reference such as refs/heads/main. If none is provided, the head commit is used."];
      filePath: Path.t
        [@ocaml.doc
          "The fully qualified path to the file, including the full name and extension of the file. For example, /examples/file.md is the fully qualified path to a file named file.md in a folder named examples."]}
    let context_ = "GetFileInput"
    let make ?commitSpecifier =
      fun ~repositoryName ->
        fun ~filePath ->
          fun () -> { commitSpecifier; repositoryName; filePath }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("commitSpecifier",
          (Option.map x.commitSpecifier ~f:CommitName.to_value));
        ("filePath", (Some (Path.to_value x.filePath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      let commitSpecifier =
        (Option.map ~f:CommitName.of_xml)
          (Xml.child xml_arg0 "commitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~filePath ?commitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      let commitSpecifier =
        field_map json__ "commitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~filePath ?commitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the base-64 encoded contents of a specified file and its metadata."]
module GetDifferencesOutput =
  struct
    type nonrec t =
      {
      differences: DifferenceList.t option
        [@ocaml.doc
          "A data type object that contains information about the differences, including whether the difference is added, modified, or deleted (A, D, M)."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PathDoesNotExistException of PathDoesNotExistException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?differences =
      fun ?nextToken -> fun () -> { differences; nextToken }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PathDoesNotExistException" ->
          `PathDoesNotExistException (PathDoesNotExistException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PathDoesNotExistException e ->
          `Assoc
            [("error", (`String "PathDoesNotExistException"));
            ("details", (PathDoesNotExistException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("differences",
           (Option.map x.differences ~f:DifferenceList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let differences =
        (Option.map ~f:DifferenceList.of_xml)
          (Xml.child xml_arg0 "differences") in
      make ?nextToken ?differences ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let differences = field_map json__ "differences" DifferenceList.of_json in
      make ?nextToken ?differences ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the differences in a valid commit specifier (such as a branch, tag, HEAD, commit ID, or other fully qualified reference). Results can be limited to a specified path."]
module GetDifferencesInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to get differences."];
      beforeCommitSpecifier: CommitName.t option
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, the full commit ID). Optional. If not specified, all changes before the afterCommitSpecifier value are shown. If you do not use beforeCommitSpecifier in your request, consider limiting the results with maxResults."];
      afterCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit."];
      beforePath: Path.t option
        [@ocaml.doc
          "The file path in which to check for differences. Limits the results to this path. Can also be used to specify the previous name of a directory or folder. If beforePath and afterPath are not specified, differences are shown for all paths."];
      afterPath: Path.t option
        [@ocaml.doc
          "The file path in which to check differences. Limits the results to this path. Can also be used to specify the changed name of a directory or folder, if it has changed. If not specified, differences are shown for all paths."];
      maxResults: Limit.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."]}
    let context_ = "GetDifferencesInput"
    let make ?beforeCommitSpecifier =
      fun ?beforePath ->
        fun ?afterPath ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ~repositoryName ->
                fun ~afterCommitSpecifier ->
                  fun () ->
                    {
                      beforeCommitSpecifier;
                      beforePath;
                      afterPath;
                      maxResults;
                      nextToken;
                      repositoryName;
                      afterCommitSpecifier
                    }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("beforeCommitSpecifier",
          (Option.map x.beforeCommitSpecifier ~f:CommitName.to_value));
        ("afterCommitSpecifier",
          (Some (CommitName.to_value x.afterCommitSpecifier)));
        ("beforePath", (Option.map x.beforePath ~f:Path.to_value));
        ("afterPath", (Option.map x.afterPath ~f:Path.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Limit.to_value));
        ("NextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "NextToken") in
      let maxResults =
        (Option.map ~f:Limit.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let afterPath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "afterPath") in
      let beforePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "beforePath") in
      let afterCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "afterCommitSpecifier") in
      let beforeCommitSpecifier =
        (Option.map ~f:CommitName.of_xml)
          (Xml.child xml_arg0 "beforeCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ?maxResults ?afterPath ?beforePath
        ~afterCommitSpecifier ?beforeCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" NextToken.of_json in
      let maxResults = field_map json__ "MaxResults" Limit.of_json in
      let afterPath = field_map json__ "afterPath" Path.of_json in
      let beforePath = field_map json__ "beforePath" Path.of_json in
      let afterCommitSpecifier =
        field_map_exn json__ "afterCommitSpecifier" CommitName.of_json in
      let beforeCommitSpecifier =
        field_map json__ "beforeCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ?maxResults ?afterPath ?beforePath
        ~afterCommitSpecifier ?beforeCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the differences in a valid commit specifier (such as a branch, tag, HEAD, commit ID, or other fully qualified reference). Results can be limited to a specified path."]
module GetCommitOutput =
  struct
    type nonrec t =
      {
      commit: Commit.t option
        [@ocaml.doc
          "A commit data type object that contains information about the specified commit."]}
    type nonrec error =
      [ `CommitIdDoesNotExistException of CommitIdDoesNotExistException.t 
      | `CommitIdRequiredException of CommitIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commit = fun () -> { commit }
    let error_of_json name json =
      match name with
      | "CommitIdDoesNotExistException" ->
          `CommitIdDoesNotExistException
            (CommitIdDoesNotExistException.of_json json)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitIdDoesNotExistException" ->
          `CommitIdDoesNotExistException
            (CommitIdDoesNotExistException.of_xml xml)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitIdDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitIdDoesNotExistException"));
            ("details", (CommitIdDoesNotExistException.to_json e))]
      | `CommitIdRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdRequiredException"));
            ("details", (CommitIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commit", (Option.map x.commit ~f:Commit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commit =
        (Option.map ~f:Commit.of_xml) (Xml.child xml_arg0 "commit") in
      make ?commit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commit = field_map json__ "commit" Commit.of_json in
      make ?commit ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a get commit operation."]
module GetCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository to which the commit was made."];
      commitId: ObjectId.t
        [@ocaml.doc
          "The commit ID. Commit IDs are the full SHA ID of the commit."]}
    let context_ = "GetCommitInput"
    let make ~repositoryName =
      fun ~commitId -> fun () -> { repositoryName; commitId }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("commitId", (Some (ObjectId.to_value x.commitId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commitId =
        ObjectId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "commitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~commitId ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commitId = field_map_exn json__ "commitId" ObjectId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~commitId ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a get commit operation."]
module GetCommentsForPullRequestOutput =
  struct
    type nonrec t =
      {
      commentsForPullRequestData: CommentsForPullRequestData.t option
        [@ocaml.doc "An array of comment objects on the pull request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitIdRequiredException of CommitIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RepositoryNotAssociatedWithPullRequestException of
          RepositoryNotAssociatedWithPullRequestException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commentsForPullRequestData =
      fun ?nextToken -> fun () -> { commentsForPullRequestData; nextToken }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RepositoryNotAssociatedWithPullRequestException" ->
          `RepositoryNotAssociatedWithPullRequestException
            (RepositoryNotAssociatedWithPullRequestException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitIdRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdRequiredException"));
            ("details", (CommitIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RepositoryNotAssociatedWithPullRequestException e ->
          `Assoc
            [("error",
               (`String "RepositoryNotAssociatedWithPullRequestException"));
            ("details",
              (RepositoryNotAssociatedWithPullRequestException.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
        [("commentsForPullRequestData",
           (Option.map x.commentsForPullRequestData
              ~f:CommentsForPullRequestData.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let commentsForPullRequestData =
        (Option.map ~f:CommentsForPullRequestData.of_xml)
          (Xml.child xml_arg0 "commentsForPullRequestData") in
      make ?nextToken ?commentsForPullRequestData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let commentsForPullRequestData =
        field_map json__ "commentsForPullRequestData"
          CommentsForPullRequestData.of_json in
      make ?nextToken ?commentsForPullRequestData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns comments made on a pull request. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetCommentsForPullRequestInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that contains the pull request. Requirement is conditional: repositoryName must be specified when beforeCommitId and afterCommitId are included."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created. Requirement is conditional: beforeCommitId must be specified when repositoryName is included."];
      afterCommitId: CommitId.t option
        [@ocaml.doc
          "The full commit ID of the commit in the source branch that was the tip of the branch at the time the comment was made. Requirement is conditional: afterCommitId must be specified when repositoryName is included."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results. The default is 100 comments. You can return up to 500 comments with a single request."]}
    let context_ = "GetCommentsForPullRequestInput"
    let make ?repositoryName =
      fun ?beforeCommitId ->
        fun ?afterCommitId ->
          fun ?nextToken ->
            fun ?maxResults ->
              fun ~pullRequestId ->
                fun () ->
                  {
                    repositoryName;
                    beforeCommitId;
                    afterCommitId;
                    nextToken;
                    maxResults;
                    pullRequestId
                  }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("repositoryName",
          (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Option.map x.afterCommitId ~f:CommitId.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let afterCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        (Option.map ~f:RepositoryName.of_xml)
          (Xml.child xml_arg0 "repositoryName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?maxResults ?nextToken ?afterCommitId ?beforeCommitId
        ?repositoryName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let afterCommitId = field_map json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?maxResults ?nextToken ?afterCommitId ?beforeCommitId
        ?repositoryName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns comments made on a pull request. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetCommentsForComparedCommitOutput =
  struct
    type nonrec t =
      {
      commentsForComparedCommitData: CommentsForComparedCommitData.t option
        [@ocaml.doc "A list of comment objects on the compared commit."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitIdRequiredException of CommitIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitIdException of InvalidCommitIdException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commentsForComparedCommitData =
      fun ?nextToken ->
        fun () -> { commentsForComparedCommitData; nextToken }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitIdRequiredException" ->
          `CommitIdRequiredException (CommitIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitIdException" ->
          `InvalidCommitIdException (InvalidCommitIdException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitIdRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdRequiredException"));
            ("details", (CommitIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidCommitIdException"));
            ("details", (InvalidCommitIdException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commentsForComparedCommitData",
           (Option.map x.commentsForComparedCommitData
              ~f:CommentsForComparedCommitData.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let commentsForComparedCommitData =
        (Option.map ~f:CommentsForComparedCommitData.of_xml)
          (Xml.child xml_arg0 "commentsForComparedCommitData") in
      make ?nextToken ?commentsForComparedCommitData ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let commentsForComparedCommitData =
        field_map json__ "commentsForComparedCommitData"
          CommentsForComparedCommitData.of_json in
      make ?nextToken ?commentsForComparedCommitData ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about comments made on the comparison between two commits. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetCommentsForComparedCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to compare commits."];
      beforeCommitId: CommitId.t option
        [@ocaml.doc
          "To establish the directionality of the comparison, the full commit ID of the before commit."];
      afterCommitId: CommitId.t
        [@ocaml.doc
          "To establish the directionality of the comparison, the full commit ID of the after commit."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results. The default is 100 comments, but you can configure up to 500."]}
    let context_ = "GetCommentsForComparedCommitInput"
    let make ?beforeCommitId =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~repositoryName ->
            fun ~afterCommitId ->
              fun () ->
                {
                  beforeCommitId;
                  nextToken;
                  maxResults;
                  repositoryName;
                  afterCommitId
                }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("beforeCommitId",
          (Option.map x.beforeCommitId ~f:CommitId.to_value));
        ("afterCommitId", (Some (CommitId.to_value x.afterCommitId)));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let afterCommitId =
        CommitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "afterCommitId") in
      let beforeCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "beforeCommitId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?maxResults ?nextToken ~afterCommitId ?beforeCommitId
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let afterCommitId =
        field_map_exn json__ "afterCommitId" CommitId.of_json in
      let beforeCommitId = field_map json__ "beforeCommitId" CommitId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?maxResults ?nextToken ~afterCommitId ?beforeCommitId
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about comments made on the comparison between two commits. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetCommentReactionsOutput =
  struct
    type nonrec t =
      {
      reactionsForComment: ReactionsForCommentList.t option
        [@ocaml.doc "An array of reactions to the specified comment."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `CommentDeletedException of CommentDeletedException.t 
      | `CommentDoesNotExistException of CommentDoesNotExistException.t 
      | `CommentIdRequiredException of CommentIdRequiredException.t 
      | `InvalidCommentIdException of InvalidCommentIdException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidReactionUserArnException of InvalidReactionUserArnException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?reactionsForComment =
      fun ?nextToken -> fun () -> { reactionsForComment; nextToken }
    let error_of_json name json =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_json json)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_json json)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException
            (CommentIdRequiredException.of_json json)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidReactionUserArnException" ->
          `InvalidReactionUserArnException
            (InvalidReactionUserArnException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_xml xml)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_xml xml)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException (CommentIdRequiredException.of_xml xml)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidReactionUserArnException" ->
          `InvalidReactionUserArnException
            (InvalidReactionUserArnException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommentDeletedException e ->
          `Assoc
            [("error", (`String "CommentDeletedException"));
            ("details", (CommentDeletedException.to_json e))]
      | `CommentDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommentDoesNotExistException"));
            ("details", (CommentDoesNotExistException.to_json e))]
      | `CommentIdRequiredException e ->
          `Assoc
            [("error", (`String "CommentIdRequiredException"));
            ("details", (CommentIdRequiredException.to_json e))]
      | `InvalidCommentIdException e ->
          `Assoc
            [("error", (`String "InvalidCommentIdException"));
            ("details", (InvalidCommentIdException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidReactionUserArnException e ->
          `Assoc
            [("error", (`String "InvalidReactionUserArnException"));
            ("details", (InvalidReactionUserArnException.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
        [("reactionsForComment",
           (Option.map x.reactionsForComment
              ~f:ReactionsForCommentList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let reactionsForComment =
        (Option.map ~f:ReactionsForCommentList.of_xml)
          (Xml.child xml_arg0 "reactionsForComment") in
      make ?nextToken ?reactionsForComment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let reactionsForComment =
        field_map json__ "reactionsForComment"
          ReactionsForCommentList.of_json in
      make ?nextToken ?reactionsForComment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about reactions to a specified comment ID. Reactions from users who have been deleted will not be included in the count."]
module GetCommentReactionsInput =
  struct
    type nonrec t =
      {
      commentId: CommentId.t
        [@ocaml.doc
          "The ID of the comment for which you want to get reactions information."];
      reactionUserArn: Arn.t option
        [@ocaml.doc
          "Optional. The Amazon Resource Name (ARN) of the user or identity for which you want to get reaction information."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results. The default is the same as the allowed maximum, 1,000."]}
    let context_ = "GetCommentReactionsInput"
    let make ?reactionUserArn =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ~commentId ->
            fun () -> { reactionUserArn; nextToken; maxResults; commentId }
    let to_value x =
      structure_to_value
        [("commentId", (Some (CommentId.to_value x.commentId)));
        ("reactionUserArn", (Option.map x.reactionUserArn ~f:Arn.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let reactionUserArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "reactionUserArn") in
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      make ?maxResults ?nextToken ?reactionUserArn ~commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let reactionUserArn = field_map json__ "reactionUserArn" Arn.of_json in
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      make ?maxResults ?nextToken ?reactionUserArn ~commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about reactions to a specified comment ID. Reactions from users who have been deleted will not be included in the count."]
module GetCommentOutput =
  struct
    type nonrec t =
      {
      comment: Comment.t option [@ocaml.doc "The contents of the comment."]}
    type nonrec error =
      [ `CommentDeletedException of CommentDeletedException.t 
      | `CommentDoesNotExistException of CommentDoesNotExistException.t 
      | `CommentIdRequiredException of CommentIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommentIdException of InvalidCommentIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comment = fun () -> { comment }
    let error_of_json name json =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_json json)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_json json)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException
            (CommentIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_xml xml)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_xml xml)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException (CommentIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommentDeletedException e ->
          `Assoc
            [("error", (`String "CommentDeletedException"));
            ("details", (CommentDeletedException.to_json e))]
      | `CommentDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommentDoesNotExistException"));
            ("details", (CommentDoesNotExistException.to_json e))]
      | `CommentIdRequiredException e ->
          `Assoc
            [("error", (`String "CommentIdRequiredException"));
            ("details", (CommentIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommentIdException e ->
          `Assoc
            [("error", (`String "InvalidCommentIdException"));
            ("details", (InvalidCommentIdException.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
        [("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      make ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      make ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the content of a comment made on a change, file, or commit in a repository. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetCommentInput =
  struct
    type nonrec t =
      {
      commentId: CommentId.t
        [@ocaml.doc
          "The unique, system-generated ID of the comment. To get this ID, use GetCommentsForComparedCommit or GetCommentsForPullRequest."]}
    let context_ = "GetCommentInput"
    let make ~commentId = fun () -> { commentId }
    let to_value x =
      structure_to_value
        [("commentId", (Some (CommentId.to_value x.commentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      make ~commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      make ~commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the content of a comment made on a change, file, or commit in a repository. Reaction counts might include numbers from user identities who were deleted after the reaction was made. For a count of reactions from active identities, use GetCommentReactions."]
module GetBranchOutput =
  struct
    type nonrec t =
      {
      branch: BranchInfo.t option [@ocaml.doc "The name of the branch."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?branch = fun () -> { branch }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("branch", (Option.map x.branch ~f:BranchInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branch =
        (Option.map ~f:BranchInfo.of_xml) (Xml.child xml_arg0 "branch") in
      make ?branch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let branch = field_map json__ "branch" BranchInfo.of_json in
      make ?branch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a get branch operation."]
module GetBranchInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t option
        [@ocaml.doc
          "The name of the repository that contains the branch for which you want to retrieve information."];
      branchName: BranchName.t option
        [@ocaml.doc
          "The name of the branch for which you want to retrieve information."]}
    let make ?repositoryName =
      fun ?branchName -> fun () -> { repositoryName; branchName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Option.map x.repositoryName ~f:RepositoryName.to_value));
        ("branchName", (Option.map x.branchName ~f:BranchName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        (Option.map ~f:BranchName.of_xml) (Xml.child xml_arg0 "branchName") in
      let repositoryName =
        (Option.map ~f:RepositoryName.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" BranchName.of_json in
      let repositoryName =
        field_map json__ "repositoryName" RepositoryName.of_json in
      make ?branchName ?repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a get branch operation."]
module GetBlobOutput =
  struct
    type nonrec t =
      {
      content: Blob.t option
        [@ocaml.doc "The content of the blob, usually a file."]}
    type nonrec error =
      [ `BlobIdDoesNotExistException of BlobIdDoesNotExistException.t 
      | `BlobIdRequiredException of BlobIdRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileTooLargeException of FileTooLargeException.t 
      | `InvalidBlobIdException of InvalidBlobIdException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?content = fun () -> { content }
    let error_of_json name json =
      match name with
      | "BlobIdDoesNotExistException" ->
          `BlobIdDoesNotExistException
            (BlobIdDoesNotExistException.of_json json)
      | "BlobIdRequiredException" ->
          `BlobIdRequiredException (BlobIdRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileTooLargeException" ->
          `FileTooLargeException (FileTooLargeException.of_json json)
      | "InvalidBlobIdException" ->
          `InvalidBlobIdException (InvalidBlobIdException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BlobIdDoesNotExistException" ->
          `BlobIdDoesNotExistException
            (BlobIdDoesNotExistException.of_xml xml)
      | "BlobIdRequiredException" ->
          `BlobIdRequiredException (BlobIdRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileTooLargeException" ->
          `FileTooLargeException (FileTooLargeException.of_xml xml)
      | "InvalidBlobIdException" ->
          `InvalidBlobIdException (InvalidBlobIdException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BlobIdDoesNotExistException e ->
          `Assoc
            [("error", (`String "BlobIdDoesNotExistException"));
            ("details", (BlobIdDoesNotExistException.to_json e))]
      | `BlobIdRequiredException e ->
          `Assoc
            [("error", (`String "BlobIdRequiredException"));
            ("details", (BlobIdRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileTooLargeException e ->
          `Assoc
            [("error", (`String "FileTooLargeException"));
            ("details", (FileTooLargeException.to_json e))]
      | `InvalidBlobIdException e ->
          `Assoc
            [("error", (`String "InvalidBlobIdException"));
            ("details", (InvalidBlobIdException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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 ?content:(Some pipe) ())[@warning "-27"])
    let to_value x =
      structure_to_value
        [("content", (Option.map x.content ~f:Blob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let content =
        (Option.map ~f:Blob.of_xml) (Xml.child xml_arg0 "content") in
      make ?content ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let content = field_map json__ "content" Blob.of_json in
      make ?content ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a get blob operation."]
module GetBlobInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository that contains the blob."];
      blobId: ObjectId.t
        [@ocaml.doc "The ID of the blob, which is its SHA-1 pointer."]}
    let context_ = "GetBlobInput"
    let make ~repositoryName =
      fun ~blobId -> fun () -> { repositoryName; blobId }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("blobId", (Some (ObjectId.to_value x.blobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let blobId =
        ObjectId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "blobId") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~blobId ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let blobId = field_map_exn json__ "blobId" ObjectId.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~blobId ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a get blob operation."]
module GetApprovalRuleTemplateOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplate: ApprovalRuleTemplate.t option
        [@ocaml.doc
          "The content and structure of the approval rule template."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplate = fun () -> { approvalRuleTemplate }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.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
        [("approvalRuleTemplate",
           (Option.map x.approvalRuleTemplate
              ~f:ApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplate =
        (Option.map ~f:ApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplate") in
      make ?approvalRuleTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplate =
        field_map json__ "approvalRuleTemplate" ApprovalRuleTemplate.of_json in
      make ?approvalRuleTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified approval rule template."]
module GetApprovalRuleTemplateInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the approval rule template for which you want to get information."]}
    let context_ = "GetApprovalRuleTemplateInput"
    let make ~approvalRuleTemplateName =
      fun () -> { approvalRuleTemplateName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specified approval rule template."]
module EvaluatePullRequestApprovalRulesOutput =
  struct
    type nonrec t =
      {
      evaluation: Evaluation.t option
        [@ocaml.doc
          "The result of the evaluation, including the names of the rules whose conditions have been met (if any), the names of the rules whose conditions have not been met (if any), whether the pull request is in the approved state, and whether the pull request approval rule has been set aside by an override."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `InvalidRevisionIdException of InvalidRevisionIdException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `RevisionIdRequiredException of RevisionIdRequiredException.t 
      | `RevisionNotCurrentException of RevisionNotCurrentException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?evaluation = fun () -> { evaluation }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException
            (InvalidRevisionIdException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_json json)
      | "RevisionNotCurrentException" ->
          `RevisionNotCurrentException
            (RevisionNotCurrentException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "InvalidRevisionIdException" ->
          `InvalidRevisionIdException (InvalidRevisionIdException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | "RevisionIdRequiredException" ->
          `RevisionIdRequiredException
            (RevisionIdRequiredException.of_xml xml)
      | "RevisionNotCurrentException" ->
          `RevisionNotCurrentException
            (RevisionNotCurrentException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `InvalidRevisionIdException e ->
          `Assoc
            [("error", (`String "InvalidRevisionIdException"));
            ("details", (InvalidRevisionIdException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.to_json e))]
      | `RevisionIdRequiredException e ->
          `Assoc
            [("error", (`String "RevisionIdRequiredException"));
            ("details", (RevisionIdRequiredException.to_json e))]
      | `RevisionNotCurrentException e ->
          `Assoc
            [("error", (`String "RevisionNotCurrentException"));
            ("details", (RevisionNotCurrentException.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
        [("evaluation", (Option.map x.evaluation ~f:Evaluation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let evaluation =
        (Option.map ~f:Evaluation.of_xml) (Xml.child xml_arg0 "evaluation") in
      make ?evaluation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let evaluation = field_map json__ "evaluation" Evaluation.of_json in
      make ?evaluation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluates whether a pull request has met all the conditions specified in its associated approval rules."]
module EvaluatePullRequestApprovalRulesInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request you want to evaluate."];
      revisionId: RevisionId.t
        [@ocaml.doc
          "The system-generated ID for the pull request revision. To retrieve the most recent revision ID for a pull request, use GetPullRequest."]}
    let context_ = "EvaluatePullRequestApprovalRulesInput"
    let make ~pullRequestId =
      fun ~revisionId -> fun () -> { pullRequestId; revisionId }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("revisionId", (Some (RevisionId.to_value x.revisionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        RevisionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~revisionId ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map_exn json__ "revisionId" RevisionId.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~revisionId ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Evaluates whether a pull request has met all the conditions specified in its associated approval rules."]
module DisassociateApprovalRuleTemplateFromRepositoryInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the approval rule template to disassociate from a specified repository."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository you want to disassociate from the template."]}
    let context_ = "DisassociateApprovalRuleTemplateFromRepositoryInput"
    let make ~approvalRuleTemplateName =
      fun ~repositoryName ->
        fun () -> { approvalRuleTemplateName; repositoryName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~repositoryName ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~repositoryName ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between a template and a repository so that approval rules based on the template are not automatically created when pull requests are created in the specified repository. This does not delete any approval rules previously created for pull requests through the template association."]
module DescribePullRequestEventsOutput =
  struct
    type nonrec t =
      {
      pullRequestEvents: PullRequestEventList.t option
        [@ocaml.doc "Information about the pull request events."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."]}
    type nonrec error =
      [ `ActorDoesNotExistException of ActorDoesNotExistException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidActorArnException of InvalidActorArnException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxResultsException of InvalidMaxResultsException.t 
      | `InvalidPullRequestEventTypeException of
          InvalidPullRequestEventTypeException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequestEvents =
      fun ?nextToken -> fun () -> { pullRequestEvents; nextToken }
    let error_of_json name json =
      match name with
      | "ActorDoesNotExistException" ->
          `ActorDoesNotExistException
            (ActorDoesNotExistException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidActorArnException" ->
          `InvalidActorArnException (InvalidActorArnException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException
            (InvalidMaxResultsException.of_json json)
      | "InvalidPullRequestEventTypeException" ->
          `InvalidPullRequestEventTypeException
            (InvalidPullRequestEventTypeException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ActorDoesNotExistException" ->
          `ActorDoesNotExistException (ActorDoesNotExistException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidActorArnException" ->
          `InvalidActorArnException (InvalidActorArnException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxResultsException" ->
          `InvalidMaxResultsException (InvalidMaxResultsException.of_xml xml)
      | "InvalidPullRequestEventTypeException" ->
          `InvalidPullRequestEventTypeException
            (InvalidPullRequestEventTypeException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ActorDoesNotExistException e ->
          `Assoc
            [("error", (`String "ActorDoesNotExistException"));
            ("details", (ActorDoesNotExistException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidActorArnException e ->
          `Assoc
            [("error", (`String "InvalidActorArnException"));
            ("details", (InvalidActorArnException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxResultsException e ->
          `Assoc
            [("error", (`String "InvalidMaxResultsException"));
            ("details", (InvalidMaxResultsException.to_json e))]
      | `InvalidPullRequestEventTypeException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestEventTypeException"));
            ("details", (InvalidPullRequestEventTypeException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("pullRequestEvents",
           (Option.map x.pullRequestEvents ~f:PullRequestEventList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let pullRequestEvents =
        (Option.map ~f:PullRequestEventList.of_xml)
          (Xml.child xml_arg0 "pullRequestEvents") in
      make ?nextToken ?pullRequestEvents ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let pullRequestEvents =
        field_map json__ "pullRequestEvents" PullRequestEventList.of_json in
      make ?nextToken ?pullRequestEvents ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more pull request events."]
module DescribePullRequestEventsInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request. To get this ID, use ListPullRequests."];
      pullRequestEventType: PullRequestEventType.t option
        [@ocaml.doc
          "Optional. The pull request event type about which you want to return information."];
      actorArn: Arn.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with more commits or changing the status of a pull request."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "A non-zero, non-negative integer used to limit the number of returned results. The default is 100 events, which is also the maximum number of events that can be returned in a result."]}
    let context_ = "DescribePullRequestEventsInput"
    let make ?pullRequestEventType =
      fun ?actorArn ->
        fun ?nextToken ->
          fun ?maxResults ->
            fun ~pullRequestId ->
              fun () ->
                {
                  pullRequestEventType;
                  actorArn;
                  nextToken;
                  maxResults;
                  pullRequestId
                }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("pullRequestEventType",
          (Option.map x.pullRequestEventType ~f:PullRequestEventType.to_value));
        ("actorArn", (Option.map x.actorArn ~f:Arn.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let actorArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "actorArn") in
      let pullRequestEventType =
        (Option.map ~f:PullRequestEventType.of_xml)
          (Xml.child xml_arg0 "pullRequestEventType") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ?maxResults ?nextToken ?actorArn ?pullRequestEventType
        ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let actorArn = field_map json__ "actorArn" Arn.of_json in
      let pullRequestEventType =
        field_map json__ "pullRequestEventType" PullRequestEventType.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ?maxResults ?nextToken ?actorArn ?pullRequestEventType
        ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more pull request events."]
module DescribeMergeConflictsOutput =
  struct
    type nonrec t =
      {
      conflictMetadata: ConflictMetadata.t option
        [@ocaml.doc
          "Contains metadata about the conflicts found in the merge."];
      mergeHunks: MergeHunks.t option
        [@ocaml.doc
          "A list of merge hunks of the differences between the files or lines."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."];
      destinationCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the destination commit specifier that was used in the merge evaluation."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the source commit specifier that was used in the merge evaluation."];
      baseCommitId: ObjectId.t option
        [@ocaml.doc "The commit ID of the merge base."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileDoesNotExistException of FileDoesNotExistException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxMergeHunksException of InvalidMaxMergeHunksException.t 
      | `InvalidMergeOptionException of InvalidMergeOptionException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MergeOptionRequiredException of MergeOptionRequiredException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?conflictMetadata =
      fun ?mergeHunks ->
        fun ?nextToken ->
          fun ?destinationCommitId ->
            fun ?sourceCommitId ->
              fun ?baseCommitId ->
                fun () ->
                  {
                    conflictMetadata;
                    mergeHunks;
                    nextToken;
                    destinationCommitId;
                    sourceCommitId;
                    baseCommitId
                  }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxMergeHunksException" ->
          `InvalidMaxMergeHunksException
            (InvalidMaxMergeHunksException.of_json json)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxMergeHunksException" ->
          `InvalidMaxMergeHunksException
            (InvalidMaxMergeHunksException.of_xml xml)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileDoesNotExistException e ->
          `Assoc
            [("error", (`String "FileDoesNotExistException"));
            ("details", (FileDoesNotExistException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxMergeHunksException e ->
          `Assoc
            [("error", (`String "InvalidMaxMergeHunksException"));
            ("details", (InvalidMaxMergeHunksException.to_json e))]
      | `InvalidMergeOptionException e ->
          `Assoc
            [("error", (`String "InvalidMergeOptionException"));
            ("details", (InvalidMergeOptionException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MergeOptionRequiredException e ->
          `Assoc
            [("error", (`String "MergeOptionRequiredException"));
            ("details", (MergeOptionRequiredException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("conflictMetadata",
           (Option.map x.conflictMetadata ~f:ConflictMetadata.to_value));
        ("mergeHunks", (Option.map x.mergeHunks ~f:MergeHunks.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:ObjectId.to_value));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("baseCommitId", (Option.map x.baseCommitId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baseCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "baseCommitId") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let destinationCommitId =
        (Option.map ~f:ObjectId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let mergeHunks =
        (Option.map ~f:MergeHunks.of_xml) (Xml.child xml_arg0 "mergeHunks") in
      let conflictMetadata =
        (Option.map ~f:ConflictMetadata.of_xml)
          (Xml.child xml_arg0 "conflictMetadata") in
      make ?baseCommitId ?sourceCommitId ?destinationCommitId ?nextToken
        ?mergeHunks ?conflictMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baseCommitId = field_map json__ "baseCommitId" ObjectId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" ObjectId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let mergeHunks = field_map json__ "mergeHunks" MergeHunks.of_json in
      let conflictMetadata =
        field_map json__ "conflictMetadata" ConflictMetadata.of_json in
      make ?baseCommitId ?sourceCommitId ?destinationCommitId ?nextToken
        ?mergeHunks ?conflictMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more merge conflicts in the attempted merge of two commit specifiers using the squash or three-way merge strategy. If the merge option for the attempted merge is specified as FAST_FORWARD_MERGE, an exception is thrown."]
module DescribeMergeConflictsInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to get information about a merge conflict."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      mergeOption: MergeOptionTypeEnum.t
        [@ocaml.doc
          "The merge option or strategy you want to use to merge the code."];
      maxMergeHunks: MaxResults.t option
        [@ocaml.doc
          "The maximum number of merge hunks to include in the output."];
      filePath: Path.t
        [@ocaml.doc
          "The path of the target files used to describe the conflicts."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."]}
    let context_ = "DescribeMergeConflictsInput"
    let make ?maxMergeHunks =
      fun ?conflictDetailLevel ->
        fun ?conflictResolutionStrategy ->
          fun ?nextToken ->
            fun ~repositoryName ->
              fun ~destinationCommitSpecifier ->
                fun ~sourceCommitSpecifier ->
                  fun ~mergeOption ->
                    fun ~filePath ->
                      fun () ->
                        {
                          maxMergeHunks;
                          conflictDetailLevel;
                          conflictResolutionStrategy;
                          nextToken;
                          repositoryName;
                          destinationCommitSpecifier;
                          sourceCommitSpecifier;
                          mergeOption;
                          filePath
                        }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("mergeOption", (Some (MergeOptionTypeEnum.to_value x.mergeOption)));
        ("maxMergeHunks",
          (Option.map x.maxMergeHunks ~f:MaxResults.to_value));
        ("filePath", (Some (Path.to_value x.filePath)));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      let maxMergeHunks =
        (Option.map ~f:MaxResults.of_xml)
          (Xml.child xml_arg0 "maxMergeHunks") in
      let mergeOption =
        MergeOptionTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mergeOption") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ?conflictResolutionStrategy ?conflictDetailLevel
        ~filePath ?maxMergeHunks ~mergeOption ~sourceCommitSpecifier
        ~destinationCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      let maxMergeHunks = field_map json__ "maxMergeHunks" MaxResults.of_json in
      let mergeOption =
        field_map_exn json__ "mergeOption" MergeOptionTypeEnum.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ?conflictResolutionStrategy ?conflictDetailLevel
        ~filePath ?maxMergeHunks ~mergeOption ~sourceCommitSpecifier
        ~destinationCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more merge conflicts in the attempted merge of two commit specifiers using the squash or three-way merge strategy. If the merge option for the attempted merge is specified as FAST_FORWARD_MERGE, an exception is thrown."]
module DeleteRepositoryOutput =
  struct
    type nonrec t =
      {
      repositoryId: RepositoryId.t option
        [@ocaml.doc "The ID of the repository that was deleted."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryId = fun () -> { repositoryId }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("repositoryId",
           (Option.map x.repositoryId ~f:RepositoryId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryId =
        (Option.map ~f:RepositoryId.of_xml)
          (Xml.child xml_arg0 "repositoryId") in
      make ?repositoryId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryId = field_map json__ "repositoryId" RepositoryId.of_json in
      make ?repositoryId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a delete repository operation."]
module DeleteRepositoryInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository to delete."]}
    let context_ = "DeleteRepositoryInput"
    let make ~repositoryName = fun () -> { repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a delete repository operation."]
module DeletePullRequestApprovalRuleOutput =
  struct
    type nonrec t =
      {
      approvalRuleId: ApprovalRuleId.t option
        [@ocaml.doc
          "The ID of the deleted approval rule. If the approval rule was deleted in an earlier API call, the response is 200 OK without content."]}
    type nonrec error =
      [
        `ApprovalRuleNameRequiredException of
          ApprovalRuleNameRequiredException.t 
      | `CannotDeleteApprovalRuleFromTemplateException of
          CannotDeleteApprovalRuleFromTemplateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleNameException of
          InvalidApprovalRuleNameException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleId = fun () -> { approvalRuleId }
    let error_of_json name json =
      match name with
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_json json)
      | "CannotDeleteApprovalRuleFromTemplateException" ->
          `CannotDeleteApprovalRuleFromTemplateException
            (CannotDeleteApprovalRuleFromTemplateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_xml xml)
      | "CannotDeleteApprovalRuleFromTemplateException" ->
          `CannotDeleteApprovalRuleFromTemplateException
            (CannotDeleteApprovalRuleFromTemplateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleNameRequiredException"));
            ("details", (ApprovalRuleNameRequiredException.to_json e))]
      | `CannotDeleteApprovalRuleFromTemplateException e ->
          `Assoc
            [("error",
               (`String "CannotDeleteApprovalRuleFromTemplateException"));
            ("details",
              (CannotDeleteApprovalRuleFromTemplateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleNameException"));
            ("details", (InvalidApprovalRuleNameException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("approvalRuleId",
           (Option.map x.approvalRuleId ~f:ApprovalRuleId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleId =
        (Option.map ~f:ApprovalRuleId.of_xml)
          (Xml.child xml_arg0 "approvalRuleId") in
      make ?approvalRuleId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleId =
        field_map json__ "approvalRuleId" ApprovalRuleId.of_json in
      make ?approvalRuleId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an approval rule from a specified pull request. Approval rules can be deleted from a pull request only if the pull request is open, and if the approval rule was created specifically for a pull request and not generated from an approval rule template associated with the repository where the pull request was created. You cannot delete an approval rule from a merged or closed pull request."]
module DeletePullRequestApprovalRuleInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request that contains the approval rule you want to delete."];
      approvalRuleName: ApprovalRuleName.t
        [@ocaml.doc "The name of the approval rule you want to delete."]}
    let context_ = "DeletePullRequestApprovalRuleInput"
    let make ~pullRequestId =
      fun ~approvalRuleName -> fun () -> { pullRequestId; approvalRuleName }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("approvalRuleName",
          (Some (ApprovalRuleName.to_value x.approvalRuleName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleName =
        ApprovalRuleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "approvalRuleName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~approvalRuleName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleName =
        field_map_exn json__ "approvalRuleName" ApprovalRuleName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~approvalRuleName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an approval rule from a specified pull request. Approval rules can be deleted from a pull request only if the pull request is open, and if the approval rule was created specifically for a pull request and not generated from an approval rule template associated with the repository where the pull request was created. You cannot delete an approval rule from a merged or closed pull request."]
module DeleteFileOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the commit that contains the change that deletes the file."];
      blobId: ObjectId.t option
        [@ocaml.doc
          "The blob ID removed from the tree as part of deleting the file."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains the delete file change."];
      filePath: Path.t option
        [@ocaml.doc
          "The fully qualified path to the file to be deleted, including the full name and extension of that file."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileDoesNotExistException of FileDoesNotExistException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidParentCommitIdException of InvalidParentCommitIdException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `ParentCommitDoesNotExistException of
          ParentCommitDoesNotExistException.t 
      | `ParentCommitIdOutdatedException of ParentCommitIdOutdatedException.t 
      | `ParentCommitIdRequiredException of ParentCommitIdRequiredException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId =
      fun ?blobId ->
        fun ?treeId ->
          fun ?filePath -> fun () -> { commitId; blobId; treeId; filePath }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_json json)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_json json)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_xml xml)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_xml xml)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileDoesNotExistException e ->
          `Assoc
            [("error", (`String "FileDoesNotExistException"));
            ("details", (FileDoesNotExistException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidParentCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidParentCommitIdException"));
            ("details", (InvalidParentCommitIdException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `ParentCommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "ParentCommitDoesNotExistException"));
            ("details", (ParentCommitDoesNotExistException.to_json e))]
      | `ParentCommitIdOutdatedException e ->
          `Assoc
            [("error", (`String "ParentCommitIdOutdatedException"));
            ("details", (ParentCommitIdOutdatedException.to_json e))]
      | `ParentCommitIdRequiredException e ->
          `Assoc
            [("error", (`String "ParentCommitIdRequiredException"));
            ("details", (ParentCommitIdRequiredException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("blobId", (Option.map x.blobId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value));
        ("filePath", (Option.map x.filePath ~f:Path.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filePath =
        (Option.map ~f:Path.of_xml) (Xml.child xml_arg0 "filePath") in
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let blobId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "blobId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?filePath ?treeId ?blobId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filePath = field_map json__ "filePath" Path.of_json in
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let blobId = field_map json__ "blobId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?filePath ?treeId ?blobId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified file from a specified branch. A commit is created on the branch that contains the revision. The file still exists in the commits earlier to the commit that contains the deletion."]
module DeleteFileInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the file to delete."];
      branchName: BranchName.t
        [@ocaml.doc
          "The name of the branch where the commit that deletes the file is made."];
      filePath: Path.t
        [@ocaml.doc
          "The fully qualified path to the file that to be deleted, including the full name and extension of that file. For example, /examples/file.md is a fully qualified path to a file named file.md in a folder named examples."];
      parentCommitId: CommitId.t
        [@ocaml.doc
          "The ID of the commit that is the tip of the branch where you want to create the commit that deletes the file. This must be the HEAD commit for the branch. The commit that deletes the file is created from this commit ID."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If a file is the only object in the folder or directory, specifies whether to delete the folder or directory that contains the file. By default, empty folders are deleted. This includes empty folders that are part of the directory structure. For example, if the path to a file is dir1/dir2/dir3/dir4, and dir2 and dir3 are empty, deleting the last file in dir4 also deletes the empty folders dir4, dir3, and dir2."];
      commitMessage: Message.t option
        [@ocaml.doc
          "The commit message you want to include as part of deleting the file. Commit messages are limited to 256 KB. If no message is specified, a default message is used."];
      name: Name.t option
        [@ocaml.doc
          "The name of the author of the commit that deletes the file. If no name is specified, the user's ARN is used as the author name and committer name."];
      email: Email.t option
        [@ocaml.doc
          "The email address for the commit that deletes the file. If no email address is specified, the email address is left blank."]}
    let context_ = "DeleteFileInput"
    let make ?keepEmptyFolders =
      fun ?commitMessage ->
        fun ?name ->
          fun ?email ->
            fun ~repositoryName ->
              fun ~branchName ->
                fun ~filePath ->
                  fun ~parentCommitId ->
                    fun () ->
                      {
                        keepEmptyFolders;
                        commitMessage;
                        name;
                        email;
                        repositoryName;
                        branchName;
                        filePath;
                        parentCommitId
                      }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("filePath", (Some (Path.to_value x.filePath)));
        ("parentCommitId", (Some (CommitId.to_value x.parentCommitId)));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("name", (Option.map x.name ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let name = (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "name") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let parentCommitId =
        CommitId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "parentCommitId") in
      let filePath =
        Path.of_xml (Xml.child_exn ~context:context_ xml_arg0 "filePath") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?email ?name ?commitMessage ?keepEmptyFolders ~parentCommitId
        ~filePath ~branchName ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map json__ "email" Email.of_json in
      let name = field_map json__ "name" Name.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let parentCommitId =
        field_map_exn json__ "parentCommitId" CommitId.of_json in
      let filePath = field_map_exn json__ "filePath" Path.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?email ?name ?commitMessage ?keepEmptyFolders ~parentCommitId
        ~filePath ~branchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified file from a specified branch. A commit is created on the branch that contains the revision. The file still exists in the commits earlier to the commit that contains the deletion."]
module DeleteCommentContentOutput =
  struct
    type nonrec t =
      {
      comment: Comment.t option
        [@ocaml.doc "Information about the comment you just deleted."]}
    type nonrec error =
      [ `CommentDeletedException of CommentDeletedException.t 
      | `CommentDoesNotExistException of CommentDoesNotExistException.t 
      | `CommentIdRequiredException of CommentIdRequiredException.t 
      | `InvalidCommentIdException of InvalidCommentIdException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comment = fun () -> { comment }
    let error_of_json name json =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_json json)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_json json)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException
            (CommentIdRequiredException.of_json json)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommentDeletedException" ->
          `CommentDeletedException (CommentDeletedException.of_xml xml)
      | "CommentDoesNotExistException" ->
          `CommentDoesNotExistException
            (CommentDoesNotExistException.of_xml xml)
      | "CommentIdRequiredException" ->
          `CommentIdRequiredException (CommentIdRequiredException.of_xml xml)
      | "InvalidCommentIdException" ->
          `InvalidCommentIdException (InvalidCommentIdException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommentDeletedException e ->
          `Assoc
            [("error", (`String "CommentDeletedException"));
            ("details", (CommentDeletedException.to_json e))]
      | `CommentDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommentDoesNotExistException"));
            ("details", (CommentDoesNotExistException.to_json e))]
      | `CommentIdRequiredException e ->
          `Assoc
            [("error", (`String "CommentIdRequiredException"));
            ("details", (CommentIdRequiredException.to_json e))]
      | `InvalidCommentIdException e ->
          `Assoc
            [("error", (`String "InvalidCommentIdException"));
            ("details", (InvalidCommentIdException.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
        [("comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "comment") in
      make ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "comment" Comment.of_json in
      make ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the content of a comment made on a change, file, or commit in a repository."]
module DeleteCommentContentInput =
  struct
    type nonrec t =
      {
      commentId: CommentId.t
        [@ocaml.doc
          "The unique, system-generated ID of the comment. To get this ID, use GetCommentsForComparedCommit or GetCommentsForPullRequest."]}
    let context_ = "DeleteCommentContentInput"
    let make ~commentId = fun () -> { commentId }
    let to_value x =
      structure_to_value
        [("commentId", (Some (CommentId.to_value x.commentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentId =
        CommentId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commentId") in
      make ~commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentId = field_map_exn json__ "commentId" CommentId.of_json in
      make ~commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the content of a comment made on a change, file, or commit in a repository."]
module DeleteBranchOutput =
  struct
    type nonrec t =
      {
      deletedBranch: BranchInfo.t option
        [@ocaml.doc
          "Information about the branch deleted by the operation, including the branch name and the commit ID that was the tip of the branch."]}
    type nonrec error =
      [ `BranchNameRequiredException of BranchNameRequiredException.t 
      | `DefaultBranchCannotBeDeletedException of
          DefaultBranchCannotBeDeletedException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deletedBranch = fun () -> { deletedBranch }
    let error_of_json name json =
      match name with
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "DefaultBranchCannotBeDeletedException" ->
          `DefaultBranchCannotBeDeletedException
            (DefaultBranchCannotBeDeletedException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "DefaultBranchCannotBeDeletedException" ->
          `DefaultBranchCannotBeDeletedException
            (DefaultBranchCannotBeDeletedException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `DefaultBranchCannotBeDeletedException e ->
          `Assoc
            [("error", (`String "DefaultBranchCannotBeDeletedException"));
            ("details", (DefaultBranchCannotBeDeletedException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("deletedBranch",
           (Option.map x.deletedBranch ~f:BranchInfo.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletedBranch =
        (Option.map ~f:BranchInfo.of_xml)
          (Xml.child xml_arg0 "deletedBranch") in
      make ?deletedBranch ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletedBranch = field_map json__ "deletedBranch" BranchInfo.of_json in
      make ?deletedBranch ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a delete branch operation."]
module DeleteBranchInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the branch to be deleted."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch to delete."]}
    let context_ = "DeleteBranchInput"
    let make ~repositoryName =
      fun ~branchName -> fun () -> { repositoryName; branchName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("branchName", (Some (BranchName.to_value x.branchName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let repositoryName =
        RepositoryName.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_exn json__ "branchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~branchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a delete branch operation."]
module DeleteApprovalRuleTemplateOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateId: ApprovalRuleTemplateId.t option
        [@ocaml.doc
          "The system-generated ID of the deleted approval rule template. If the template has been previously deleted, the only response is a 200 OK."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateInUseException of
          ApprovalRuleTemplateInUseException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplateId = fun () -> { approvalRuleTemplateId }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateInUseException" ->
          `ApprovalRuleTemplateInUseException
            (ApprovalRuleTemplateInUseException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateInUseException" ->
          `ApprovalRuleTemplateInUseException
            (ApprovalRuleTemplateInUseException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateInUseException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateInUseException"));
            ("details", (ApprovalRuleTemplateInUseException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.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
        [("approvalRuleTemplateId",
           (Option.map x.approvalRuleTemplateId
              ~f:ApprovalRuleTemplateId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateId =
        (Option.map ~f:ApprovalRuleTemplateId.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateId") in
      make ?approvalRuleTemplateId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateId =
        field_map json__ "approvalRuleTemplateId"
          ApprovalRuleTemplateId.of_json in
      make ?approvalRuleTemplateId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified approval rule template. Deleting a template does not remove approval rules on pull requests already created with the template."]
module DeleteApprovalRuleTemplateInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc "The name of the approval rule template to delete."]}
    let context_ = "DeleteApprovalRuleTemplateInput"
    let make ~approvalRuleTemplateName =
      fun () -> { approvalRuleTemplateName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a specified approval rule template. Deleting a template does not remove approval rules on pull requests already created with the template."]
module CreateUnreferencedMergeCommitOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the commit that contains your merge results."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains the merge results."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `ConcurrentReferenceUpdateException of
          ConcurrentReferenceUpdateException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FileModeRequiredException of FileModeRequiredException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionException of
          InvalidConflictResolutionException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidMergeOptionException of InvalidMergeOptionException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidReplacementContentException of
          InvalidReplacementContentException.t 
      | `InvalidReplacementTypeException of InvalidReplacementTypeException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `ManualMergeRequiredException of ManualMergeRequiredException.t 
      | `MaximumConflictResolutionEntriesExceededException of
          MaximumConflictResolutionEntriesExceededException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MergeOptionRequiredException of MergeOptionRequiredException.t 
      | `MultipleConflictResolutionEntriesException of
          MultipleConflictResolutionEntriesException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `ReplacementContentRequiredException of
          ReplacementContentRequiredException.t 
      | `ReplacementTypeRequiredException of
          ReplacementTypeRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId = fun ?treeId -> fun () -> { commitId; treeId }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_json json)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_json json)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_json json)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_json json)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "ConcurrentReferenceUpdateException" ->
          `ConcurrentReferenceUpdateException
            (ConcurrentReferenceUpdateException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionException" ->
          `InvalidConflictResolutionException
            (InvalidConflictResolutionException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidReplacementContentException" ->
          `InvalidReplacementContentException
            (InvalidReplacementContentException.of_xml xml)
      | "InvalidReplacementTypeException" ->
          `InvalidReplacementTypeException
            (InvalidReplacementTypeException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "ManualMergeRequiredException" ->
          `ManualMergeRequiredException
            (ManualMergeRequiredException.of_xml xml)
      | "MaximumConflictResolutionEntriesExceededException" ->
          `MaximumConflictResolutionEntriesExceededException
            (MaximumConflictResolutionEntriesExceededException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_xml xml)
      | "MultipleConflictResolutionEntriesException" ->
          `MultipleConflictResolutionEntriesException
            (MultipleConflictResolutionEntriesException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "ReplacementContentRequiredException" ->
          `ReplacementContentRequiredException
            (ReplacementContentRequiredException.of_xml xml)
      | "ReplacementTypeRequiredException" ->
          `ReplacementTypeRequiredException
            (ReplacementTypeRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `ConcurrentReferenceUpdateException e ->
          `Assoc
            [("error", (`String "ConcurrentReferenceUpdateException"));
            ("details", (ConcurrentReferenceUpdateException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FileModeRequiredException e ->
          `Assoc
            [("error", (`String "FileModeRequiredException"));
            ("details", (FileModeRequiredException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionException e ->
          `Assoc
            [("error", (`String "InvalidConflictResolutionException"));
            ("details", (InvalidConflictResolutionException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidMergeOptionException e ->
          `Assoc
            [("error", (`String "InvalidMergeOptionException"));
            ("details", (InvalidMergeOptionException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidReplacementContentException e ->
          `Assoc
            [("error", (`String "InvalidReplacementContentException"));
            ("details", (InvalidReplacementContentException.to_json e))]
      | `InvalidReplacementTypeException e ->
          `Assoc
            [("error", (`String "InvalidReplacementTypeException"));
            ("details", (InvalidReplacementTypeException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `ManualMergeRequiredException e ->
          `Assoc
            [("error", (`String "ManualMergeRequiredException"));
            ("details", (ManualMergeRequiredException.to_json e))]
      | `MaximumConflictResolutionEntriesExceededException e ->
          `Assoc
            [("error",
               (`String "MaximumConflictResolutionEntriesExceededException"));
            ("details",
              (MaximumConflictResolutionEntriesExceededException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MergeOptionRequiredException e ->
          `Assoc
            [("error", (`String "MergeOptionRequiredException"));
            ("details", (MergeOptionRequiredException.to_json e))]
      | `MultipleConflictResolutionEntriesException e ->
          `Assoc
            [("error",
               (`String "MultipleConflictResolutionEntriesException"));
            ("details",
              (MultipleConflictResolutionEntriesException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `ReplacementContentRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementContentRequiredException"));
            ("details", (ReplacementContentRequiredException.to_json e))]
      | `ReplacementTypeRequiredException e ->
          `Assoc
            [("error", (`String "ReplacementTypeRequiredException"));
            ("details", (ReplacementTypeRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?treeId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?treeId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an unreferenced commit that represents the result of merging two branches using a specified merge strategy. This can help you determine the outcome of a potential merge. This API cannot be used with the fast-forward merge strategy because that strategy does not create a merge commit. This unreferenced merge commit can only be accessed using the GetCommit API or through git commands such as git fetch. To retrieve this commit, you must specify its commit ID or otherwise reference it."]
module CreateUnreferencedMergeCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you want to create the unreferenced merge commit."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      mergeOption: MergeOptionTypeEnum.t
        [@ocaml.doc
          "The merge option or strategy you want to use to merge the code."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the unreferenced commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address for the person who created the unreferenced commit."];
      commitMessage: Message.t option
        [@ocaml.doc "The commit message for the unreferenced commit."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If this is specified as true, a .gitkeep file is created for empty folders. The default is false."];
      conflictResolution: ConflictResolution.t option
        [@ocaml.doc
          "If AUTOMERGE is the conflict resolution strategy, a list of inputs to use when resolving conflicts during a merge."]}
    let context_ = "CreateUnreferencedMergeCommitInput"
    let make ?conflictDetailLevel =
      fun ?conflictResolutionStrategy ->
        fun ?authorName ->
          fun ?email ->
            fun ?commitMessage ->
              fun ?keepEmptyFolders ->
                fun ?conflictResolution ->
                  fun ~repositoryName ->
                    fun ~sourceCommitSpecifier ->
                      fun ~destinationCommitSpecifier ->
                        fun ~mergeOption ->
                          fun () ->
                            {
                              conflictDetailLevel;
                              conflictResolutionStrategy;
                              authorName;
                              email;
                              commitMessage;
                              keepEmptyFolders;
                              conflictResolution;
                              repositoryName;
                              sourceCommitSpecifier;
                              destinationCommitSpecifier;
                              mergeOption
                            }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("mergeOption", (Some (MergeOptionTypeEnum.to_value x.mergeOption)));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("conflictResolution",
          (Option.map x.conflictResolution ~f:ConflictResolution.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let conflictResolution =
        (Option.map ~f:ConflictResolution.of_xml)
          (Xml.child xml_arg0 "conflictResolution") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let mergeOption =
        MergeOptionTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mergeOption") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ~mergeOption ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let conflictResolution =
        field_map json__ "conflictResolution" ConflictResolution.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let mergeOption =
        field_map_exn json__ "mergeOption" MergeOptionTypeEnum.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?conflictResolution ?keepEmptyFolders ?commitMessage ?email
        ?authorName ?conflictResolutionStrategy ?conflictDetailLevel
        ~mergeOption ~destinationCommitSpecifier ~sourceCommitSpecifier
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an unreferenced commit that represents the result of merging two branches using a specified merge strategy. This can help you determine the outcome of a potential merge. This API cannot be used with the fast-forward merge strategy because that strategy does not create a merge commit. This unreferenced merge commit can only be accessed using the GetCommit API or through git commands such as git fetch. To retrieve this commit, you must specify its commit ID or otherwise reference it."]
module CreateRepositoryOutput =
  struct
    type nonrec t =
      {
      repositoryMetadata: RepositoryMetadata.t option
        [@ocaml.doc "Information about the newly created repository."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyInvalidIdException of EncryptionKeyInvalidIdException.t 
      | `EncryptionKeyInvalidUsageException of
          EncryptionKeyInvalidUsageException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryDescriptionException of
          InvalidRepositoryDescriptionException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidSystemTagUsageException of InvalidSystemTagUsageException.t 
      | `InvalidTagsMapException of InvalidTagsMapException.t 
      | `OperationNotAllowedException of OperationNotAllowedException.t 
      | `RepositoryLimitExceededException of
          RepositoryLimitExceededException.t 
      | `RepositoryNameExistsException of RepositoryNameExistsException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TagPolicyException of TagPolicyException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositoryMetadata = fun () -> { repositoryMetadata }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyInvalidIdException" ->
          `EncryptionKeyInvalidIdException
            (EncryptionKeyInvalidIdException.of_json json)
      | "EncryptionKeyInvalidUsageException" ->
          `EncryptionKeyInvalidUsageException
            (EncryptionKeyInvalidUsageException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryDescriptionException" ->
          `InvalidRepositoryDescriptionException
            (InvalidRepositoryDescriptionException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidSystemTagUsageException" ->
          `InvalidSystemTagUsageException
            (InvalidSystemTagUsageException.of_json json)
      | "InvalidTagsMapException" ->
          `InvalidTagsMapException (InvalidTagsMapException.of_json json)
      | "OperationNotAllowedException" ->
          `OperationNotAllowedException
            (OperationNotAllowedException.of_json json)
      | "RepositoryLimitExceededException" ->
          `RepositoryLimitExceededException
            (RepositoryLimitExceededException.of_json json)
      | "RepositoryNameExistsException" ->
          `RepositoryNameExistsException
            (RepositoryNameExistsException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyInvalidIdException" ->
          `EncryptionKeyInvalidIdException
            (EncryptionKeyInvalidIdException.of_xml xml)
      | "EncryptionKeyInvalidUsageException" ->
          `EncryptionKeyInvalidUsageException
            (EncryptionKeyInvalidUsageException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryDescriptionException" ->
          `InvalidRepositoryDescriptionException
            (InvalidRepositoryDescriptionException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidSystemTagUsageException" ->
          `InvalidSystemTagUsageException
            (InvalidSystemTagUsageException.of_xml xml)
      | "InvalidTagsMapException" ->
          `InvalidTagsMapException (InvalidTagsMapException.of_xml xml)
      | "OperationNotAllowedException" ->
          `OperationNotAllowedException
            (OperationNotAllowedException.of_xml xml)
      | "RepositoryLimitExceededException" ->
          `RepositoryLimitExceededException
            (RepositoryLimitExceededException.of_xml xml)
      | "RepositoryNameExistsException" ->
          `RepositoryNameExistsException
            (RepositoryNameExistsException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TagPolicyException" ->
          `TagPolicyException (TagPolicyException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyInvalidIdException e ->
          `Assoc
            [("error", (`String "EncryptionKeyInvalidIdException"));
            ("details", (EncryptionKeyInvalidIdException.to_json e))]
      | `EncryptionKeyInvalidUsageException e ->
          `Assoc
            [("error", (`String "EncryptionKeyInvalidUsageException"));
            ("details", (EncryptionKeyInvalidUsageException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryDescriptionException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryDescriptionException"));
            ("details", (InvalidRepositoryDescriptionException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidSystemTagUsageException e ->
          `Assoc
            [("error", (`String "InvalidSystemTagUsageException"));
            ("details", (InvalidSystemTagUsageException.to_json e))]
      | `InvalidTagsMapException e ->
          `Assoc
            [("error", (`String "InvalidTagsMapException"));
            ("details", (InvalidTagsMapException.to_json e))]
      | `OperationNotAllowedException e ->
          `Assoc
            [("error", (`String "OperationNotAllowedException"));
            ("details", (OperationNotAllowedException.to_json e))]
      | `RepositoryLimitExceededException e ->
          `Assoc
            [("error", (`String "RepositoryLimitExceededException"));
            ("details", (RepositoryLimitExceededException.to_json e))]
      | `RepositoryNameExistsException e ->
          `Assoc
            [("error", (`String "RepositoryNameExistsException"));
            ("details", (RepositoryNameExistsException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TagPolicyException e ->
          `Assoc
            [("error", (`String "TagPolicyException"));
            ("details", (TagPolicyException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.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
        [("repositoryMetadata",
           (Option.map x.repositoryMetadata ~f:RepositoryMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryMetadata =
        (Option.map ~f:RepositoryMetadata.of_xml)
          (Xml.child xml_arg0 "repositoryMetadata") in
      make ?repositoryMetadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryMetadata =
        field_map json__ "repositoryMetadata" RepositoryMetadata.of_json in
      make ?repositoryMetadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the output of a create repository operation."]
module CreateRepositoryInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the new repository to be created. The repository name must be unique across the calling Amazon Web Services account. Repository names are limited to 100 alphanumeric, dash, and underscore characters, and cannot include certain characters. For more information about the limits on repository names, see Quotas in the CodeCommit User Guide. The suffix .git is prohibited."];
      repositoryDescription: RepositoryDescription.t option
        [@ocaml.doc
          "A comment or description about the new repository. The description field for a repository accepts all HTML characters and all valid Unicode characters. Applications that do not HTML-encode the description and display it in a webpage can expose users to potentially malicious code. Make sure that you HTML-encode the description field in any application that uses this API to display the repository description on a webpage."];
      tags: TagsMap.t option
        [@ocaml.doc
          "One or more tag key-value pairs to use when tagging this repository."];
      kmsKeyId: KmsKeyId.t option
        [@ocaml.doc
          "The ID of the encryption key. You can view the ID of an encryption key in the KMS console, or use the KMS APIs to programmatically retrieve a key ID. For more information about acceptable values for kmsKeyID, see KeyId in the Decrypt API description in the Key Management Service API Reference. If no key is specified, the default aws/codecommit Amazon Web Services managed key is used."]}
    let context_ = "CreateRepositoryInput"
    let make ?repositoryDescription =
      fun ?tags ->
        fun ?kmsKeyId ->
          fun ~repositoryName ->
            fun () ->
              { repositoryDescription; tags; kmsKeyId; repositoryName }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("repositoryDescription",
          (Option.map x.repositoryDescription
             ~f:RepositoryDescription.to_value));
        ("tags", (Option.map x.tags ~f:TagsMap.to_value));
        ("kmsKeyId", (Option.map x.kmsKeyId ~f:KmsKeyId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let kmsKeyId =
        (Option.map ~f:KmsKeyId.of_xml) (Xml.child xml_arg0 "kmsKeyId") in
      let tags = (Option.map ~f:TagsMap.of_xml) (Xml.child xml_arg0 "tags") in
      let repositoryDescription =
        (Option.map ~f:RepositoryDescription.of_xml)
          (Xml.child xml_arg0 "repositoryDescription") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?kmsKeyId ?tags ?repositoryDescription ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let kmsKeyId = field_map json__ "kmsKeyId" KmsKeyId.of_json in
      let tags = field_map json__ "tags" TagsMap.of_json in
      let repositoryDescription =
        field_map json__ "repositoryDescription"
          RepositoryDescription.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?kmsKeyId ?tags ?repositoryDescription ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a create repository operation."]
module CreatePullRequestOutput =
  struct
    type nonrec t =
      {
      pullRequest: PullRequest.t option
        [@ocaml.doc "Information about the newly created pull request."]}
    type nonrec error =
      [
        `ClientRequestTokenRequiredException of
          ClientRequestTokenRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `IdempotencyParameterMismatchException of
          IdempotencyParameterMismatchException.t 
      | `InvalidClientRequestTokenException of
          InvalidClientRequestTokenException.t 
      | `InvalidDescriptionException of InvalidDescriptionException.t 
      | `InvalidReferenceNameException of InvalidReferenceNameException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `InvalidTargetException of InvalidTargetException.t 
      | `InvalidTargetsException of InvalidTargetsException.t 
      | `InvalidTitleException of InvalidTitleException.t 
      | `MaximumOpenPullRequestsExceededException of
          MaximumOpenPullRequestsExceededException.t 
      | `MultipleRepositoriesInPullRequestException of
          MultipleRepositoriesInPullRequestException.t 
      | `ReferenceDoesNotExistException of ReferenceDoesNotExistException.t 
      | `ReferenceNameRequiredException of ReferenceNameRequiredException.t 
      | `ReferenceTypeNotSupportedException of
          ReferenceTypeNotSupportedException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `SourceAndDestinationAreSameException of
          SourceAndDestinationAreSameException.t 
      | `TargetRequiredException of TargetRequiredException.t 
      | `TargetsRequiredException of TargetsRequiredException.t 
      | `TitleRequiredException of TitleRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?pullRequest = fun () -> { pullRequest }
    let error_of_json name json =
      match name with
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_json json)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_json json)
      | "InvalidDescriptionException" ->
          `InvalidDescriptionException
            (InvalidDescriptionException.of_json json)
      | "InvalidReferenceNameException" ->
          `InvalidReferenceNameException
            (InvalidReferenceNameException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_json json)
      | "InvalidTargetsException" ->
          `InvalidTargetsException (InvalidTargetsException.of_json json)
      | "InvalidTitleException" ->
          `InvalidTitleException (InvalidTitleException.of_json json)
      | "MaximumOpenPullRequestsExceededException" ->
          `MaximumOpenPullRequestsExceededException
            (MaximumOpenPullRequestsExceededException.of_json json)
      | "MultipleRepositoriesInPullRequestException" ->
          `MultipleRepositoriesInPullRequestException
            (MultipleRepositoriesInPullRequestException.of_json json)
      | "ReferenceDoesNotExistException" ->
          `ReferenceDoesNotExistException
            (ReferenceDoesNotExistException.of_json json)
      | "ReferenceNameRequiredException" ->
          `ReferenceNameRequiredException
            (ReferenceNameRequiredException.of_json json)
      | "ReferenceTypeNotSupportedException" ->
          `ReferenceTypeNotSupportedException
            (ReferenceTypeNotSupportedException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "SourceAndDestinationAreSameException" ->
          `SourceAndDestinationAreSameException
            (SourceAndDestinationAreSameException.of_json json)
      | "TargetRequiredException" ->
          `TargetRequiredException (TargetRequiredException.of_json json)
      | "TargetsRequiredException" ->
          `TargetsRequiredException (TargetsRequiredException.of_json json)
      | "TitleRequiredException" ->
          `TitleRequiredException (TitleRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ClientRequestTokenRequiredException" ->
          `ClientRequestTokenRequiredException
            (ClientRequestTokenRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "IdempotencyParameterMismatchException" ->
          `IdempotencyParameterMismatchException
            (IdempotencyParameterMismatchException.of_xml xml)
      | "InvalidClientRequestTokenException" ->
          `InvalidClientRequestTokenException
            (InvalidClientRequestTokenException.of_xml xml)
      | "InvalidDescriptionException" ->
          `InvalidDescriptionException
            (InvalidDescriptionException.of_xml xml)
      | "InvalidReferenceNameException" ->
          `InvalidReferenceNameException
            (InvalidReferenceNameException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "InvalidTargetException" ->
          `InvalidTargetException (InvalidTargetException.of_xml xml)
      | "InvalidTargetsException" ->
          `InvalidTargetsException (InvalidTargetsException.of_xml xml)
      | "InvalidTitleException" ->
          `InvalidTitleException (InvalidTitleException.of_xml xml)
      | "MaximumOpenPullRequestsExceededException" ->
          `MaximumOpenPullRequestsExceededException
            (MaximumOpenPullRequestsExceededException.of_xml xml)
      | "MultipleRepositoriesInPullRequestException" ->
          `MultipleRepositoriesInPullRequestException
            (MultipleRepositoriesInPullRequestException.of_xml xml)
      | "ReferenceDoesNotExistException" ->
          `ReferenceDoesNotExistException
            (ReferenceDoesNotExistException.of_xml xml)
      | "ReferenceNameRequiredException" ->
          `ReferenceNameRequiredException
            (ReferenceNameRequiredException.of_xml xml)
      | "ReferenceTypeNotSupportedException" ->
          `ReferenceTypeNotSupportedException
            (ReferenceTypeNotSupportedException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "SourceAndDestinationAreSameException" ->
          `SourceAndDestinationAreSameException
            (SourceAndDestinationAreSameException.of_xml xml)
      | "TargetRequiredException" ->
          `TargetRequiredException (TargetRequiredException.of_xml xml)
      | "TargetsRequiredException" ->
          `TargetsRequiredException (TargetsRequiredException.of_xml xml)
      | "TitleRequiredException" ->
          `TitleRequiredException (TitleRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ClientRequestTokenRequiredException e ->
          `Assoc
            [("error", (`String "ClientRequestTokenRequiredException"));
            ("details", (ClientRequestTokenRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `IdempotencyParameterMismatchException e ->
          `Assoc
            [("error", (`String "IdempotencyParameterMismatchException"));
            ("details", (IdempotencyParameterMismatchException.to_json e))]
      | `InvalidClientRequestTokenException e ->
          `Assoc
            [("error", (`String "InvalidClientRequestTokenException"));
            ("details", (InvalidClientRequestTokenException.to_json e))]
      | `InvalidDescriptionException e ->
          `Assoc
            [("error", (`String "InvalidDescriptionException"));
            ("details", (InvalidDescriptionException.to_json e))]
      | `InvalidReferenceNameException e ->
          `Assoc
            [("error", (`String "InvalidReferenceNameException"));
            ("details", (InvalidReferenceNameException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `InvalidTargetException e ->
          `Assoc
            [("error", (`String "InvalidTargetException"));
            ("details", (InvalidTargetException.to_json e))]
      | `InvalidTargetsException e ->
          `Assoc
            [("error", (`String "InvalidTargetsException"));
            ("details", (InvalidTargetsException.to_json e))]
      | `InvalidTitleException e ->
          `Assoc
            [("error", (`String "InvalidTitleException"));
            ("details", (InvalidTitleException.to_json e))]
      | `MaximumOpenPullRequestsExceededException e ->
          `Assoc
            [("error", (`String "MaximumOpenPullRequestsExceededException"));
            ("details", (MaximumOpenPullRequestsExceededException.to_json e))]
      | `MultipleRepositoriesInPullRequestException e ->
          `Assoc
            [("error",
               (`String "MultipleRepositoriesInPullRequestException"));
            ("details",
              (MultipleRepositoriesInPullRequestException.to_json e))]
      | `ReferenceDoesNotExistException e ->
          `Assoc
            [("error", (`String "ReferenceDoesNotExistException"));
            ("details", (ReferenceDoesNotExistException.to_json e))]
      | `ReferenceNameRequiredException e ->
          `Assoc
            [("error", (`String "ReferenceNameRequiredException"));
            ("details", (ReferenceNameRequiredException.to_json e))]
      | `ReferenceTypeNotSupportedException e ->
          `Assoc
            [("error", (`String "ReferenceTypeNotSupportedException"));
            ("details", (ReferenceTypeNotSupportedException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `SourceAndDestinationAreSameException e ->
          `Assoc
            [("error", (`String "SourceAndDestinationAreSameException"));
            ("details", (SourceAndDestinationAreSameException.to_json e))]
      | `TargetRequiredException e ->
          `Assoc
            [("error", (`String "TargetRequiredException"));
            ("details", (TargetRequiredException.to_json e))]
      | `TargetsRequiredException e ->
          `Assoc
            [("error", (`String "TargetsRequiredException"));
            ("details", (TargetsRequiredException.to_json e))]
      | `TitleRequiredException e ->
          `Assoc
            [("error", (`String "TitleRequiredException"));
            ("details", (TitleRequiredException.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
        [("pullRequest", (Option.map x.pullRequest ~f:PullRequest.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let pullRequest =
        (Option.map ~f:PullRequest.of_xml) (Xml.child xml_arg0 "pullRequest") in
      make ?pullRequest ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let pullRequest = field_map json__ "pullRequest" PullRequest.of_json in
      make ?pullRequest ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a pull request in the specified repository."]
module CreatePullRequestInput =
  struct
    type nonrec t =
      {
      title: Title.t
        [@ocaml.doc
          "The title of the pull request. This title is used to identify the pull request to other users in the repository."];
      description: Description.t option
        [@ocaml.doc "A description of the pull request."];
      targets: TargetList.t
        [@ocaml.doc
          "The targets for the pull request, including the source of the code to be reviewed (the source branch) and the destination where the creator of the pull request intends the code to be merged after the pull request is closed (the destination branch)."];
      clientRequestToken: ClientRequestToken.t option
        [@ocaml.doc
          "A unique, client-generated idempotency token that, when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request returns information about the initial request that used that token. The Amazon Web ServicesSDKs prepopulate client request tokens. If you are using an Amazon Web ServicesSDK, an idempotency token is created for you."]}
    let context_ = "CreatePullRequestInput"
    let make ?description =
      fun ?clientRequestToken ->
        fun ~title ->
          fun ~targets ->
            fun () -> { description; clientRequestToken; title; targets }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("targets", (Some (TargetList.to_value x.targets)));
        ("clientRequestToken",
          (Option.map x.clientRequestToken ~f:ClientRequestToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientRequestToken =
        (Option.map ~f:ClientRequestToken.of_xml)
          (Xml.child xml_arg0 "clientRequestToken") in
      let targets =
        TargetList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "targets") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?clientRequestToken ~targets ?description ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientRequestToken =
        field_map json__ "clientRequestToken" ClientRequestToken.of_json in
      let targets = field_map_exn json__ "targets" TargetList.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?clientRequestToken ~targets ?description ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a pull request in the specified repository."]
module CreatePullRequestApprovalRuleOutput =
  struct
    type nonrec t =
      {
      approvalRule: ApprovalRule.t option
        [@ocaml.doc "Information about the created approval rule."]}
    type nonrec error =
      [
        `ApprovalRuleContentRequiredException of
          ApprovalRuleContentRequiredException.t 
      | `ApprovalRuleNameAlreadyExistsException of
          ApprovalRuleNameAlreadyExistsException.t 
      | `ApprovalRuleNameRequiredException of
          ApprovalRuleNameRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleContentException of
          InvalidApprovalRuleContentException.t 
      | `InvalidApprovalRuleNameException of
          InvalidApprovalRuleNameException.t 
      | `InvalidPullRequestIdException of InvalidPullRequestIdException.t 
      | `NumberOfRulesExceededException of NumberOfRulesExceededException.t 
      | `PullRequestAlreadyClosedException of
          PullRequestAlreadyClosedException.t 
      | `PullRequestDoesNotExistException of
          PullRequestDoesNotExistException.t 
      | `PullRequestIdRequiredException of PullRequestIdRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRule = fun () -> { approvalRule }
    let error_of_json name json =
      match name with
      | "ApprovalRuleContentRequiredException" ->
          `ApprovalRuleContentRequiredException
            (ApprovalRuleContentRequiredException.of_json json)
      | "ApprovalRuleNameAlreadyExistsException" ->
          `ApprovalRuleNameAlreadyExistsException
            (ApprovalRuleNameAlreadyExistsException.of_json json)
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleContentException" ->
          `InvalidApprovalRuleContentException
            (InvalidApprovalRuleContentException.of_json json)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_json json)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_json json)
      | "NumberOfRulesExceededException" ->
          `NumberOfRulesExceededException
            (NumberOfRulesExceededException.of_json json)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_json json)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_json json)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleContentRequiredException" ->
          `ApprovalRuleContentRequiredException
            (ApprovalRuleContentRequiredException.of_xml xml)
      | "ApprovalRuleNameAlreadyExistsException" ->
          `ApprovalRuleNameAlreadyExistsException
            (ApprovalRuleNameAlreadyExistsException.of_xml xml)
      | "ApprovalRuleNameRequiredException" ->
          `ApprovalRuleNameRequiredException
            (ApprovalRuleNameRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleContentException" ->
          `InvalidApprovalRuleContentException
            (InvalidApprovalRuleContentException.of_xml xml)
      | "InvalidApprovalRuleNameException" ->
          `InvalidApprovalRuleNameException
            (InvalidApprovalRuleNameException.of_xml xml)
      | "InvalidPullRequestIdException" ->
          `InvalidPullRequestIdException
            (InvalidPullRequestIdException.of_xml xml)
      | "NumberOfRulesExceededException" ->
          `NumberOfRulesExceededException
            (NumberOfRulesExceededException.of_xml xml)
      | "PullRequestAlreadyClosedException" ->
          `PullRequestAlreadyClosedException
            (PullRequestAlreadyClosedException.of_xml xml)
      | "PullRequestDoesNotExistException" ->
          `PullRequestDoesNotExistException
            (PullRequestDoesNotExistException.of_xml xml)
      | "PullRequestIdRequiredException" ->
          `PullRequestIdRequiredException
            (PullRequestIdRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleContentRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleContentRequiredException"));
            ("details", (ApprovalRuleContentRequiredException.to_json e))]
      | `ApprovalRuleNameAlreadyExistsException e ->
          `Assoc
            [("error", (`String "ApprovalRuleNameAlreadyExistsException"));
            ("details", (ApprovalRuleNameAlreadyExistsException.to_json e))]
      | `ApprovalRuleNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleNameRequiredException"));
            ("details", (ApprovalRuleNameRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleContentException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleContentException"));
            ("details", (InvalidApprovalRuleContentException.to_json e))]
      | `InvalidApprovalRuleNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleNameException"));
            ("details", (InvalidApprovalRuleNameException.to_json e))]
      | `InvalidPullRequestIdException e ->
          `Assoc
            [("error", (`String "InvalidPullRequestIdException"));
            ("details", (InvalidPullRequestIdException.to_json e))]
      | `NumberOfRulesExceededException e ->
          `Assoc
            [("error", (`String "NumberOfRulesExceededException"));
            ("details", (NumberOfRulesExceededException.to_json e))]
      | `PullRequestAlreadyClosedException e ->
          `Assoc
            [("error", (`String "PullRequestAlreadyClosedException"));
            ("details", (PullRequestAlreadyClosedException.to_json e))]
      | `PullRequestDoesNotExistException e ->
          `Assoc
            [("error", (`String "PullRequestDoesNotExistException"));
            ("details", (PullRequestDoesNotExistException.to_json e))]
      | `PullRequestIdRequiredException e ->
          `Assoc
            [("error", (`String "PullRequestIdRequiredException"));
            ("details", (PullRequestIdRequiredException.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
        [("approvalRule",
           (Option.map x.approvalRule ~f:ApprovalRule.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRule =
        (Option.map ~f:ApprovalRule.of_xml)
          (Xml.child xml_arg0 "approvalRule") in
      make ?approvalRule ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRule = field_map json__ "approvalRule" ApprovalRule.of_json in
      make ?approvalRule ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an approval rule for a pull request."]
module CreatePullRequestApprovalRuleInput =
  struct
    type nonrec t =
      {
      pullRequestId: PullRequestId.t
        [@ocaml.doc
          "The system-generated ID of the pull request for which you want to create the approval rule."];
      approvalRuleName: ApprovalRuleName.t
        [@ocaml.doc "The name for the approval rule."];
      approvalRuleContent: ApprovalRuleContent.t
        [@ocaml.doc
          "The content of the approval rule, including the number of approvals needed and the structure of an approval pool defined for approvals, if any. For more information about approval pools, see the CodeCommit User Guide. When you create the content of the approval rule, you can specify approvers in an approval pool in one of two ways: CodeCommitApprovers: This option only requires an Amazon Web Services account and a resource. It can be used for both IAM users and federated access users whose name matches the provided resource name. This is a very powerful option that offers a great deal of flexibility. For example, if you specify the Amazon Web Services account 123456789012 and Mary_Major, all of the following would be counted as approvals coming from that user: An IAM user in the account (arn:aws:iam::123456789012:user/Mary_Major) A federated user identified in IAM as Mary_Major (arn:aws:sts::123456789012:federated-user/Mary_Major) This option does not recognize an active session of someone assuming the role of CodeCommitReview with a role session name of Mary_Major (arn:aws:sts::123456789012:assumed-role/CodeCommitReview/Mary_Major) unless you include a wildcard (*Mary_Major). Fully qualified ARN: This option allows you to specify the fully qualified Amazon Resource Name (ARN) of the IAM user or role. For more information about IAM ARNs, wildcards, and formats, see IAM Identifiers in the IAM User Guide."]}
    let context_ = "CreatePullRequestApprovalRuleInput"
    let make ~pullRequestId =
      fun ~approvalRuleName ->
        fun ~approvalRuleContent ->
          fun () -> { pullRequestId; approvalRuleName; approvalRuleContent }
    let to_value x =
      structure_to_value
        [("pullRequestId", (Some (PullRequestId.to_value x.pullRequestId)));
        ("approvalRuleName",
          (Some (ApprovalRuleName.to_value x.approvalRuleName)));
        ("approvalRuleContent",
          (Some (ApprovalRuleContent.to_value x.approvalRuleContent)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleContent =
        ApprovalRuleContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "approvalRuleContent") in
      let approvalRuleName =
        ApprovalRuleName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "approvalRuleName") in
      let pullRequestId =
        PullRequestId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "pullRequestId") in
      make ~approvalRuleContent ~approvalRuleName ~pullRequestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleContent =
        field_map_exn json__ "approvalRuleContent"
          ApprovalRuleContent.of_json in
      let approvalRuleName =
        field_map_exn json__ "approvalRuleName" ApprovalRuleName.of_json in
      let pullRequestId =
        field_map_exn json__ "pullRequestId" PullRequestId.of_json in
      make ~approvalRuleContent ~approvalRuleName ~pullRequestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates an approval rule for a pull request."]
module CreateCommitOutput =
  struct
    type nonrec t =
      {
      commitId: ObjectId.t option
        [@ocaml.doc
          "The full commit ID of the commit that contains your committed file changes."];
      treeId: ObjectId.t option
        [@ocaml.doc
          "The full SHA-1 pointer of the tree information for the commit that contains the commited file changes."];
      filesAdded: FilesMetadata.t option
        [@ocaml.doc "The files added as part of the committed file changes."];
      filesUpdated: FilesMetadata.t option
        [@ocaml.doc
          "The files updated as part of the commited file changes."];
      filesDeleted: FilesMetadata.t option
        [@ocaml.doc
          "The files deleted as part of the committed file changes."]}
    type nonrec error =
      [ `BranchDoesNotExistException of BranchDoesNotExistException.t 
      | `BranchNameIsTagNameException of BranchNameIsTagNameException.t 
      | `BranchNameRequiredException of BranchNameRequiredException.t 
      | `CommitMessageLengthExceededException of
          CommitMessageLengthExceededException.t 
      | `DirectoryNameConflictsWithFileNameException of
          DirectoryNameConflictsWithFileNameException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `FileContentAndSourceFileSpecifiedException of
          FileContentAndSourceFileSpecifiedException.t 
      | `FileContentSizeLimitExceededException of
          FileContentSizeLimitExceededException.t 
      | `FileDoesNotExistException of FileDoesNotExistException.t 
      | `FileEntryRequiredException of FileEntryRequiredException.t 
      | `FileModeRequiredException of FileModeRequiredException.t 
      | `FileNameConflictsWithDirectoryNameException of
          FileNameConflictsWithDirectoryNameException.t 
      | `FilePathConflictsWithSubmodulePathException of
          FilePathConflictsWithSubmodulePathException.t 
      | `FolderContentSizeLimitExceededException of
          FolderContentSizeLimitExceededException.t 
      | `InvalidBranchNameException of InvalidBranchNameException.t 
      | `InvalidDeletionParameterException of
          InvalidDeletionParameterException.t 
      | `InvalidEmailException of InvalidEmailException.t 
      | `InvalidFileModeException of InvalidFileModeException.t 
      | `InvalidParentCommitIdException of InvalidParentCommitIdException.t 
      | `InvalidPathException of InvalidPathException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `MaximumFileEntriesExceededException of
          MaximumFileEntriesExceededException.t 
      | `NameLengthExceededException of NameLengthExceededException.t 
      | `NoChangeException of NoChangeException.t 
      | `ParentCommitDoesNotExistException of
          ParentCommitDoesNotExistException.t 
      | `ParentCommitIdOutdatedException of ParentCommitIdOutdatedException.t 
      | `ParentCommitIdRequiredException of ParentCommitIdRequiredException.t 
      | `PathRequiredException of PathRequiredException.t 
      | `PutFileEntryConflictException of PutFileEntryConflictException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `RestrictedSourceFileException of RestrictedSourceFileException.t 
      | `SamePathRequestException of SamePathRequestException.t 
      | `SourceFileOrContentRequiredException of
          SourceFileOrContentRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commitId =
      fun ?treeId ->
        fun ?filesAdded ->
          fun ?filesUpdated ->
            fun ?filesDeleted ->
              fun () ->
                { commitId; treeId; filesAdded; filesUpdated; filesDeleted }
    let error_of_json name json =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_json json)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_json json)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_json json)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_json json)
      | "DirectoryNameConflictsWithFileNameException" ->
          `DirectoryNameConflictsWithFileNameException
            (DirectoryNameConflictsWithFileNameException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "FileContentAndSourceFileSpecifiedException" ->
          `FileContentAndSourceFileSpecifiedException
            (FileContentAndSourceFileSpecifiedException.of_json json)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_json json)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_json json)
      | "FileEntryRequiredException" ->
          `FileEntryRequiredException
            (FileEntryRequiredException.of_json json)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_json json)
      | "FileNameConflictsWithDirectoryNameException" ->
          `FileNameConflictsWithDirectoryNameException
            (FileNameConflictsWithDirectoryNameException.of_json json)
      | "FilePathConflictsWithSubmodulePathException" ->
          `FilePathConflictsWithSubmodulePathException
            (FilePathConflictsWithSubmodulePathException.of_json json)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_json json)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException
            (InvalidBranchNameException.of_json json)
      | "InvalidDeletionParameterException" ->
          `InvalidDeletionParameterException
            (InvalidDeletionParameterException.of_json json)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_json json)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_json json)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_json json)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "MaximumFileEntriesExceededException" ->
          `MaximumFileEntriesExceededException
            (MaximumFileEntriesExceededException.of_json json)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_json json)
      | "NoChangeException" ->
          `NoChangeException (NoChangeException.of_json json)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_json json)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_json json)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_json json)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_json json)
      | "PutFileEntryConflictException" ->
          `PutFileEntryConflictException
            (PutFileEntryConflictException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "RestrictedSourceFileException" ->
          `RestrictedSourceFileException
            (RestrictedSourceFileException.of_json json)
      | "SamePathRequestException" ->
          `SamePathRequestException (SamePathRequestException.of_json json)
      | "SourceFileOrContentRequiredException" ->
          `SourceFileOrContentRequiredException
            (SourceFileOrContentRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BranchDoesNotExistException" ->
          `BranchDoesNotExistException
            (BranchDoesNotExistException.of_xml xml)
      | "BranchNameIsTagNameException" ->
          `BranchNameIsTagNameException
            (BranchNameIsTagNameException.of_xml xml)
      | "BranchNameRequiredException" ->
          `BranchNameRequiredException
            (BranchNameRequiredException.of_xml xml)
      | "CommitMessageLengthExceededException" ->
          `CommitMessageLengthExceededException
            (CommitMessageLengthExceededException.of_xml xml)
      | "DirectoryNameConflictsWithFileNameException" ->
          `DirectoryNameConflictsWithFileNameException
            (DirectoryNameConflictsWithFileNameException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "FileContentAndSourceFileSpecifiedException" ->
          `FileContentAndSourceFileSpecifiedException
            (FileContentAndSourceFileSpecifiedException.of_xml xml)
      | "FileContentSizeLimitExceededException" ->
          `FileContentSizeLimitExceededException
            (FileContentSizeLimitExceededException.of_xml xml)
      | "FileDoesNotExistException" ->
          `FileDoesNotExistException (FileDoesNotExistException.of_xml xml)
      | "FileEntryRequiredException" ->
          `FileEntryRequiredException (FileEntryRequiredException.of_xml xml)
      | "FileModeRequiredException" ->
          `FileModeRequiredException (FileModeRequiredException.of_xml xml)
      | "FileNameConflictsWithDirectoryNameException" ->
          `FileNameConflictsWithDirectoryNameException
            (FileNameConflictsWithDirectoryNameException.of_xml xml)
      | "FilePathConflictsWithSubmodulePathException" ->
          `FilePathConflictsWithSubmodulePathException
            (FilePathConflictsWithSubmodulePathException.of_xml xml)
      | "FolderContentSizeLimitExceededException" ->
          `FolderContentSizeLimitExceededException
            (FolderContentSizeLimitExceededException.of_xml xml)
      | "InvalidBranchNameException" ->
          `InvalidBranchNameException (InvalidBranchNameException.of_xml xml)
      | "InvalidDeletionParameterException" ->
          `InvalidDeletionParameterException
            (InvalidDeletionParameterException.of_xml xml)
      | "InvalidEmailException" ->
          `InvalidEmailException (InvalidEmailException.of_xml xml)
      | "InvalidFileModeException" ->
          `InvalidFileModeException (InvalidFileModeException.of_xml xml)
      | "InvalidParentCommitIdException" ->
          `InvalidParentCommitIdException
            (InvalidParentCommitIdException.of_xml xml)
      | "InvalidPathException" ->
          `InvalidPathException (InvalidPathException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "MaximumFileEntriesExceededException" ->
          `MaximumFileEntriesExceededException
            (MaximumFileEntriesExceededException.of_xml xml)
      | "NameLengthExceededException" ->
          `NameLengthExceededException
            (NameLengthExceededException.of_xml xml)
      | "NoChangeException" ->
          `NoChangeException (NoChangeException.of_xml xml)
      | "ParentCommitDoesNotExistException" ->
          `ParentCommitDoesNotExistException
            (ParentCommitDoesNotExistException.of_xml xml)
      | "ParentCommitIdOutdatedException" ->
          `ParentCommitIdOutdatedException
            (ParentCommitIdOutdatedException.of_xml xml)
      | "ParentCommitIdRequiredException" ->
          `ParentCommitIdRequiredException
            (ParentCommitIdRequiredException.of_xml xml)
      | "PathRequiredException" ->
          `PathRequiredException (PathRequiredException.of_xml xml)
      | "PutFileEntryConflictException" ->
          `PutFileEntryConflictException
            (PutFileEntryConflictException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "RestrictedSourceFileException" ->
          `RestrictedSourceFileException
            (RestrictedSourceFileException.of_xml xml)
      | "SamePathRequestException" ->
          `SamePathRequestException (SamePathRequestException.of_xml xml)
      | "SourceFileOrContentRequiredException" ->
          `SourceFileOrContentRequiredException
            (SourceFileOrContentRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BranchDoesNotExistException e ->
          `Assoc
            [("error", (`String "BranchDoesNotExistException"));
            ("details", (BranchDoesNotExistException.to_json e))]
      | `BranchNameIsTagNameException e ->
          `Assoc
            [("error", (`String "BranchNameIsTagNameException"));
            ("details", (BranchNameIsTagNameException.to_json e))]
      | `BranchNameRequiredException e ->
          `Assoc
            [("error", (`String "BranchNameRequiredException"));
            ("details", (BranchNameRequiredException.to_json e))]
      | `CommitMessageLengthExceededException e ->
          `Assoc
            [("error", (`String "CommitMessageLengthExceededException"));
            ("details", (CommitMessageLengthExceededException.to_json e))]
      | `DirectoryNameConflictsWithFileNameException e ->
          `Assoc
            [("error",
               (`String "DirectoryNameConflictsWithFileNameException"));
            ("details",
              (DirectoryNameConflictsWithFileNameException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `FileContentAndSourceFileSpecifiedException e ->
          `Assoc
            [("error",
               (`String "FileContentAndSourceFileSpecifiedException"));
            ("details",
              (FileContentAndSourceFileSpecifiedException.to_json e))]
      | `FileContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FileContentSizeLimitExceededException"));
            ("details", (FileContentSizeLimitExceededException.to_json e))]
      | `FileDoesNotExistException e ->
          `Assoc
            [("error", (`String "FileDoesNotExistException"));
            ("details", (FileDoesNotExistException.to_json e))]
      | `FileEntryRequiredException e ->
          `Assoc
            [("error", (`String "FileEntryRequiredException"));
            ("details", (FileEntryRequiredException.to_json e))]
      | `FileModeRequiredException e ->
          `Assoc
            [("error", (`String "FileModeRequiredException"));
            ("details", (FileModeRequiredException.to_json e))]
      | `FileNameConflictsWithDirectoryNameException e ->
          `Assoc
            [("error",
               (`String "FileNameConflictsWithDirectoryNameException"));
            ("details",
              (FileNameConflictsWithDirectoryNameException.to_json e))]
      | `FilePathConflictsWithSubmodulePathException e ->
          `Assoc
            [("error",
               (`String "FilePathConflictsWithSubmodulePathException"));
            ("details",
              (FilePathConflictsWithSubmodulePathException.to_json e))]
      | `FolderContentSizeLimitExceededException e ->
          `Assoc
            [("error", (`String "FolderContentSizeLimitExceededException"));
            ("details", (FolderContentSizeLimitExceededException.to_json e))]
      | `InvalidBranchNameException e ->
          `Assoc
            [("error", (`String "InvalidBranchNameException"));
            ("details", (InvalidBranchNameException.to_json e))]
      | `InvalidDeletionParameterException e ->
          `Assoc
            [("error", (`String "InvalidDeletionParameterException"));
            ("details", (InvalidDeletionParameterException.to_json e))]
      | `InvalidEmailException e ->
          `Assoc
            [("error", (`String "InvalidEmailException"));
            ("details", (InvalidEmailException.to_json e))]
      | `InvalidFileModeException e ->
          `Assoc
            [("error", (`String "InvalidFileModeException"));
            ("details", (InvalidFileModeException.to_json e))]
      | `InvalidParentCommitIdException e ->
          `Assoc
            [("error", (`String "InvalidParentCommitIdException"));
            ("details", (InvalidParentCommitIdException.to_json e))]
      | `InvalidPathException e ->
          `Assoc
            [("error", (`String "InvalidPathException"));
            ("details", (InvalidPathException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `MaximumFileEntriesExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileEntriesExceededException"));
            ("details", (MaximumFileEntriesExceededException.to_json e))]
      | `NameLengthExceededException e ->
          `Assoc
            [("error", (`String "NameLengthExceededException"));
            ("details", (NameLengthExceededException.to_json e))]
      | `NoChangeException e ->
          `Assoc
            [("error", (`String "NoChangeException"));
            ("details", (NoChangeException.to_json e))]
      | `ParentCommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "ParentCommitDoesNotExistException"));
            ("details", (ParentCommitDoesNotExistException.to_json e))]
      | `ParentCommitIdOutdatedException e ->
          `Assoc
            [("error", (`String "ParentCommitIdOutdatedException"));
            ("details", (ParentCommitIdOutdatedException.to_json e))]
      | `ParentCommitIdRequiredException e ->
          `Assoc
            [("error", (`String "ParentCommitIdRequiredException"));
            ("details", (ParentCommitIdRequiredException.to_json e))]
      | `PathRequiredException e ->
          `Assoc
            [("error", (`String "PathRequiredException"));
            ("details", (PathRequiredException.to_json e))]
      | `PutFileEntryConflictException e ->
          `Assoc
            [("error", (`String "PutFileEntryConflictException"));
            ("details", (PutFileEntryConflictException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `RestrictedSourceFileException e ->
          `Assoc
            [("error", (`String "RestrictedSourceFileException"));
            ("details", (RestrictedSourceFileException.to_json e))]
      | `SamePathRequestException e ->
          `Assoc
            [("error", (`String "SamePathRequestException"));
            ("details", (SamePathRequestException.to_json e))]
      | `SourceFileOrContentRequiredException e ->
          `Assoc
            [("error", (`String "SourceFileOrContentRequiredException"));
            ("details", (SourceFileOrContentRequiredException.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
        [("commitId", (Option.map x.commitId ~f:ObjectId.to_value));
        ("treeId", (Option.map x.treeId ~f:ObjectId.to_value));
        ("filesAdded", (Option.map x.filesAdded ~f:FilesMetadata.to_value));
        ("filesUpdated",
          (Option.map x.filesUpdated ~f:FilesMetadata.to_value));
        ("filesDeleted",
          (Option.map x.filesDeleted ~f:FilesMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let filesDeleted =
        (Option.map ~f:FilesMetadata.of_xml)
          (Xml.child xml_arg0 "filesDeleted") in
      let filesUpdated =
        (Option.map ~f:FilesMetadata.of_xml)
          (Xml.child xml_arg0 "filesUpdated") in
      let filesAdded =
        (Option.map ~f:FilesMetadata.of_xml)
          (Xml.child xml_arg0 "filesAdded") in
      let treeId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "treeId") in
      let commitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "commitId") in
      make ?filesDeleted ?filesUpdated ?filesAdded ?treeId ?commitId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let filesDeleted =
        field_map json__ "filesDeleted" FilesMetadata.of_json in
      let filesUpdated =
        field_map json__ "filesUpdated" FilesMetadata.of_json in
      let filesAdded = field_map json__ "filesAdded" FilesMetadata.of_json in
      let treeId = field_map json__ "treeId" ObjectId.of_json in
      let commitId = field_map json__ "commitId" ObjectId.of_json in
      make ?filesDeleted ?filesUpdated ?filesAdded ?treeId ?commitId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a commit for a repository on the tip of a specified branch."]
module CreateCommitInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository where you create the commit."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the branch where you create the commit."];
      parentCommitId: CommitId.t option
        [@ocaml.doc
          "The ID of the commit that is the parent of the commit you create. Not required if this is an empty repository."];
      authorName: Name.t option
        [@ocaml.doc
          "The name of the author who created the commit. This information is used as both the author and committer for the commit."];
      email: Email.t option
        [@ocaml.doc
          "The email address of the person who created the commit."];
      commitMessage: Message.t option
        [@ocaml.doc
          "The commit message you want to include in the commit. Commit messages are limited to 256 KB. If no message is specified, a default message is used."];
      keepEmptyFolders: KeepEmptyFolders.t option
        [@ocaml.doc
          "If the commit contains deletions, whether to keep a folder or folder structure if the changes leave the folders empty. If true, a ..gitkeep file is created for empty folders. The default is false."];
      putFiles: PutFileEntries.t option
        [@ocaml.doc "The files to add or update in this commit."];
      deleteFiles: DeleteFileEntries.t option
        [@ocaml.doc
          "The files to delete in this commit. These files still exist in earlier commits."];
      setFileModes: SetFileModeEntries.t option
        [@ocaml.doc "The file modes to update for files in this commit."]}
    let context_ = "CreateCommitInput"
    let make ?parentCommitId =
      fun ?authorName ->
        fun ?email ->
          fun ?commitMessage ->
            fun ?keepEmptyFolders ->
              fun ?putFiles ->
                fun ?deleteFiles ->
                  fun ?setFileModes ->
                    fun ~repositoryName ->
                      fun ~branchName ->
                        fun () ->
                          {
                            parentCommitId;
                            authorName;
                            email;
                            commitMessage;
                            keepEmptyFolders;
                            putFiles;
                            deleteFiles;
                            setFileModes;
                            repositoryName;
                            branchName
                          }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("parentCommitId",
          (Option.map x.parentCommitId ~f:CommitId.to_value));
        ("authorName", (Option.map x.authorName ~f:Name.to_value));
        ("email", (Option.map x.email ~f:Email.to_value));
        ("commitMessage", (Option.map x.commitMessage ~f:Message.to_value));
        ("keepEmptyFolders",
          (Option.map x.keepEmptyFolders ~f:KeepEmptyFolders.to_value));
        ("putFiles", (Option.map x.putFiles ~f:PutFileEntries.to_value));
        ("deleteFiles",
          (Option.map x.deleteFiles ~f:DeleteFileEntries.to_value));
        ("setFileModes",
          (Option.map x.setFileModes ~f:SetFileModeEntries.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let setFileModes =
        (Option.map ~f:SetFileModeEntries.of_xml)
          (Xml.child xml_arg0 "setFileModes") in
      let deleteFiles =
        (Option.map ~f:DeleteFileEntries.of_xml)
          (Xml.child xml_arg0 "deleteFiles") in
      let putFiles =
        (Option.map ~f:PutFileEntries.of_xml) (Xml.child xml_arg0 "putFiles") in
      let keepEmptyFolders =
        (Option.map ~f:KeepEmptyFolders.of_xml)
          (Xml.child xml_arg0 "keepEmptyFolders") in
      let commitMessage =
        (Option.map ~f:Message.of_xml) (Xml.child xml_arg0 "commitMessage") in
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let authorName =
        (Option.map ~f:Name.of_xml) (Xml.child xml_arg0 "authorName") in
      let parentCommitId =
        (Option.map ~f:CommitId.of_xml) (Xml.child xml_arg0 "parentCommitId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?setFileModes ?deleteFiles ?putFiles ?keepEmptyFolders
        ?commitMessage ?email ?authorName ?parentCommitId ~branchName
        ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let setFileModes =
        field_map json__ "setFileModes" SetFileModeEntries.of_json in
      let deleteFiles =
        field_map json__ "deleteFiles" DeleteFileEntries.of_json in
      let putFiles = field_map json__ "putFiles" PutFileEntries.of_json in
      let keepEmptyFolders =
        field_map json__ "keepEmptyFolders" KeepEmptyFolders.of_json in
      let commitMessage = field_map json__ "commitMessage" Message.of_json in
      let email = field_map json__ "email" Email.of_json in
      let authorName = field_map json__ "authorName" Name.of_json in
      let parentCommitId = field_map json__ "parentCommitId" CommitId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?setFileModes ?deleteFiles ?putFiles ?keepEmptyFolders
        ?commitMessage ?email ?authorName ?parentCommitId ~branchName
        ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a commit for a repository on the tip of a specified branch."]
module CreateBranchInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository in which you want to create the new branch."];
      branchName: BranchName.t
        [@ocaml.doc "The name of the new branch to create."];
      commitId: CommitId.t
        [@ocaml.doc "The ID of the commit to point the new branch to."]}
    let context_ = "CreateBranchInput"
    let make ~repositoryName =
      fun ~branchName ->
        fun ~commitId -> fun () -> { repositoryName; branchName; commitId }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("branchName", (Some (BranchName.to_value x.branchName)));
        ("commitId", (Some (CommitId.to_value x.commitId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commitId =
        CommitId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "commitId") in
      let branchName =
        BranchName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "branchName") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ~commitId ~branchName ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commitId = field_map_exn json__ "commitId" CommitId.of_json in
      let branchName = field_map_exn json__ "branchName" BranchName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ~commitId ~branchName ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents the input of a create branch operation."]
module CreateApprovalRuleTemplateOutput =
  struct
    type nonrec t =
      {
      approvalRuleTemplate: ApprovalRuleTemplate.t option
        [@ocaml.doc
          "The content and structure of the created approval rule template."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateContentRequiredException of
          ApprovalRuleTemplateContentRequiredException.t 
      | `ApprovalRuleTemplateNameAlreadyExistsException of
          ApprovalRuleTemplateNameAlreadyExistsException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `InvalidApprovalRuleTemplateContentException of
          InvalidApprovalRuleTemplateContentException.t 
      | `InvalidApprovalRuleTemplateDescriptionException of
          InvalidApprovalRuleTemplateDescriptionException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `NumberOfRuleTemplatesExceededException of
          NumberOfRuleTemplatesExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?approvalRuleTemplate = fun () -> { approvalRuleTemplate }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateContentRequiredException" ->
          `ApprovalRuleTemplateContentRequiredException
            (ApprovalRuleTemplateContentRequiredException.of_json json)
      | "ApprovalRuleTemplateNameAlreadyExistsException" ->
          `ApprovalRuleTemplateNameAlreadyExistsException
            (ApprovalRuleTemplateNameAlreadyExistsException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "InvalidApprovalRuleTemplateContentException" ->
          `InvalidApprovalRuleTemplateContentException
            (InvalidApprovalRuleTemplateContentException.of_json json)
      | "InvalidApprovalRuleTemplateDescriptionException" ->
          `InvalidApprovalRuleTemplateDescriptionException
            (InvalidApprovalRuleTemplateDescriptionException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | "NumberOfRuleTemplatesExceededException" ->
          `NumberOfRuleTemplatesExceededException
            (NumberOfRuleTemplatesExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateContentRequiredException" ->
          `ApprovalRuleTemplateContentRequiredException
            (ApprovalRuleTemplateContentRequiredException.of_xml xml)
      | "ApprovalRuleTemplateNameAlreadyExistsException" ->
          `ApprovalRuleTemplateNameAlreadyExistsException
            (ApprovalRuleTemplateNameAlreadyExistsException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "InvalidApprovalRuleTemplateContentException" ->
          `InvalidApprovalRuleTemplateContentException
            (InvalidApprovalRuleTemplateContentException.of_xml xml)
      | "InvalidApprovalRuleTemplateDescriptionException" ->
          `InvalidApprovalRuleTemplateDescriptionException
            (InvalidApprovalRuleTemplateDescriptionException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | "NumberOfRuleTemplatesExceededException" ->
          `NumberOfRuleTemplatesExceededException
            (NumberOfRuleTemplatesExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateContentRequiredException e ->
          `Assoc
            [("error",
               (`String "ApprovalRuleTemplateContentRequiredException"));
            ("details",
              (ApprovalRuleTemplateContentRequiredException.to_json e))]
      | `ApprovalRuleTemplateNameAlreadyExistsException e ->
          `Assoc
            [("error",
               (`String "ApprovalRuleTemplateNameAlreadyExistsException"));
            ("details",
              (ApprovalRuleTemplateNameAlreadyExistsException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `InvalidApprovalRuleTemplateContentException e ->
          `Assoc
            [("error",
               (`String "InvalidApprovalRuleTemplateContentException"));
            ("details",
              (InvalidApprovalRuleTemplateContentException.to_json e))]
      | `InvalidApprovalRuleTemplateDescriptionException e ->
          `Assoc
            [("error",
               (`String "InvalidApprovalRuleTemplateDescriptionException"));
            ("details",
              (InvalidApprovalRuleTemplateDescriptionException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.to_json e))]
      | `NumberOfRuleTemplatesExceededException e ->
          `Assoc
            [("error", (`String "NumberOfRuleTemplatesExceededException"));
            ("details", (NumberOfRuleTemplatesExceededException.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
        [("approvalRuleTemplate",
           (Option.map x.approvalRuleTemplate
              ~f:ApprovalRuleTemplate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplate =
        (Option.map ~f:ApprovalRuleTemplate.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplate") in
      make ?approvalRuleTemplate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplate =
        field_map json__ "approvalRuleTemplate" ApprovalRuleTemplate.of_json in
      make ?approvalRuleTemplate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template for approval rules that can then be associated with one or more repositories in your Amazon Web Services account. When you associate a template with a repository, CodeCommit creates an approval rule that matches the conditions of the template for all pull requests that meet the conditions of the template. For more information, see AssociateApprovalRuleTemplateWithRepository."]
module CreateApprovalRuleTemplateInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the approval rule template. Provide descriptive names, because this name is applied to the approval rules created automatically in associated repositories."];
      approvalRuleTemplateContent: ApprovalRuleTemplateContent.t
        [@ocaml.doc
          "The content of the approval rule that is created on pull requests in associated repositories. If you specify one or more destination references (branches), approval rules are created in an associated repository only if their destination references (branches) match those specified in the template. When you create the content of the approval rule template, you can specify approvers in an approval pool in one of two ways: CodeCommitApprovers: This option only requires an Amazon Web Services account and a resource. It can be used for both IAM users and federated access users whose name matches the provided resource name. This is a very powerful option that offers a great deal of flexibility. For example, if you specify the Amazon Web Services account 123456789012 and Mary_Major, all of the following are counted as approvals coming from that user: An IAM user in the account (arn:aws:iam::123456789012:user/Mary_Major) A federated user identified in IAM as Mary_Major (arn:aws:sts::123456789012:federated-user/Mary_Major) This option does not recognize an active session of someone assuming the role of CodeCommitReview with a role session name of Mary_Major (arn:aws:sts::123456789012:assumed-role/CodeCommitReview/Mary_Major) unless you include a wildcard (*Mary_Major). Fully qualified ARN: This option allows you to specify the fully qualified Amazon Resource Name (ARN) of the IAM user or role. For more information about IAM ARNs, wildcards, and formats, see IAM Identifiers in the IAM User Guide."];
      approvalRuleTemplateDescription:
        ApprovalRuleTemplateDescription.t option
        [@ocaml.doc
          "The description of the approval rule template. Consider providing a description that explains what this template does and when it might be appropriate to associate it with repositories."]}
    let context_ = "CreateApprovalRuleTemplateInput"
    let make ?approvalRuleTemplateDescription =
      fun ~approvalRuleTemplateName ->
        fun ~approvalRuleTemplateContent ->
          fun () ->
            {
              approvalRuleTemplateDescription;
              approvalRuleTemplateName;
              approvalRuleTemplateContent
            }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("approvalRuleTemplateContent",
          (Some
             (ApprovalRuleTemplateContent.to_value
                x.approvalRuleTemplateContent)));
        ("approvalRuleTemplateDescription",
          (Option.map x.approvalRuleTemplateDescription
             ~f:ApprovalRuleTemplateDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let approvalRuleTemplateDescription =
        (Option.map ~f:ApprovalRuleTemplateDescription.of_xml)
          (Xml.child xml_arg0 "approvalRuleTemplateDescription") in
      let approvalRuleTemplateContent =
        ApprovalRuleTemplateContent.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateContent") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ?approvalRuleTemplateDescription ~approvalRuleTemplateContent
        ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let approvalRuleTemplateDescription =
        field_map json__ "approvalRuleTemplateDescription"
          ApprovalRuleTemplateDescription.of_json in
      let approvalRuleTemplateContent =
        field_map_exn json__ "approvalRuleTemplateContent"
          ApprovalRuleTemplateContent.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ?approvalRuleTemplateDescription ~approvalRuleTemplateContent
        ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a template for approval rules that can then be associated with one or more repositories in your Amazon Web Services account. When you associate a template with a repository, CodeCommit creates an approval rule that matches the conditions of the template for all pull requests that meet the conditions of the template. For more information, see AssociateApprovalRuleTemplateWithRepository."]
module BranchNameExistsException =
  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
       "Cannot create the branch with the specified name because the commit conflicts with an existing branch with the same name. Branch names must be unique."]
module BatchGetRepositoriesOutput =
  struct
    type nonrec t =
      {
      repositories: RepositoryMetadataList.t option
        [@ocaml.doc
          "A list of repositories returned by the batch get repositories operation."];
      repositoriesNotFound: RepositoryNotFoundList.t option
        [@ocaml.doc
          "Returns a list of repository names for which information could not be found."];
      errors: BatchGetRepositoriesErrorsList.t option
        [@ocaml.doc
          "Returns information about any errors returned when attempting to retrieve information about the repositories."]}
    type nonrec error =
      [
        `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `MaximumRepositoryNamesExceededException of
          MaximumRepositoryNamesExceededException.t 
      | `RepositoryNamesRequiredException of
          RepositoryNamesRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?repositories =
      fun ?repositoriesNotFound ->
        fun ?errors ->
          fun () -> { repositories; repositoriesNotFound; errors }
    let error_of_json name json =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_json json)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_xml xml)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `MaximumRepositoryNamesExceededException e ->
          `Assoc
            [("error", (`String "MaximumRepositoryNamesExceededException"));
            ("details", (MaximumRepositoryNamesExceededException.to_json e))]
      | `RepositoryNamesRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNamesRequiredException"));
            ("details", (RepositoryNamesRequiredException.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
        [("repositories",
           (Option.map x.repositories ~f:RepositoryMetadataList.to_value));
        ("repositoriesNotFound",
          (Option.map x.repositoriesNotFound
             ~f:RepositoryNotFoundList.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchGetRepositoriesErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchGetRepositoriesErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let repositoriesNotFound =
        (Option.map ~f:RepositoryNotFoundList.of_xml)
          (Xml.child xml_arg0 "repositoriesNotFound") in
      let repositories =
        (Option.map ~f:RepositoryMetadataList.of_xml)
          (Xml.child xml_arg0 "repositories") in
      make ?errors ?repositoriesNotFound ?repositories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchGetRepositoriesErrorsList.of_json in
      let repositoriesNotFound =
        field_map json__ "repositoriesNotFound"
          RepositoryNotFoundList.of_json in
      let repositories =
        field_map json__ "repositories" RepositoryMetadataList.of_json in
      make ?errors ?repositoriesNotFound ?repositories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the output of a batch get repositories operation."]
module BatchGetRepositoriesInput =
  struct
    type nonrec t =
      {
      repositoryNames: RepositoryNameList.t
        [@ocaml.doc
          "The names of the repositories to get information about. The length constraint limit is for each string in the array. The array itself can be empty."]}
    let context_ = "BatchGetRepositoriesInput"
    let make ~repositoryNames = fun () -> { repositoryNames }
    let to_value x =
      structure_to_value
        [("repositoryNames",
           (Some (RepositoryNameList.to_value x.repositoryNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryNames =
        RepositoryNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryNames") in
      make ~repositoryNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryNames =
        field_map_exn json__ "repositoryNames" RepositoryNameList.of_json in
      make ~repositoryNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents the input of a batch get repositories operation."]
module BatchGetCommitsOutput =
  struct
    type nonrec t =
      {
      commits: CommitObjectsList.t option
        [@ocaml.doc
          "An array of commit data type objects, each of which contains information about a specified commit."];
      errors: BatchGetCommitsErrorsList.t option
        [@ocaml.doc
          "Returns any commit IDs for which information could not be found. For example, if one of the commit IDs was a shortened SHA ID or that commit was not found in the specified repository, the ID returns an error object with more information."]}
    type nonrec error =
      [
        `CommitIdsLimitExceededException of CommitIdsLimitExceededException.t 
      | `CommitIdsListRequiredException of CommitIdsListRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?commits = fun ?errors -> fun () -> { commits; errors }
    let error_of_json name json =
      match name with
      | "CommitIdsLimitExceededException" ->
          `CommitIdsLimitExceededException
            (CommitIdsLimitExceededException.of_json json)
      | "CommitIdsListRequiredException" ->
          `CommitIdsListRequiredException
            (CommitIdsListRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitIdsLimitExceededException" ->
          `CommitIdsLimitExceededException
            (CommitIdsLimitExceededException.of_xml xml)
      | "CommitIdsListRequiredException" ->
          `CommitIdsListRequiredException
            (CommitIdsListRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitIdsLimitExceededException e ->
          `Assoc
            [("error", (`String "CommitIdsLimitExceededException"));
            ("details", (CommitIdsLimitExceededException.to_json e))]
      | `CommitIdsListRequiredException e ->
          `Assoc
            [("error", (`String "CommitIdsListRequiredException"));
            ("details", (CommitIdsListRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.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
        [("commits", (Option.map x.commits ~f:CommitObjectsList.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchGetCommitsErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map ~f:BatchGetCommitsErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let commits =
        (Option.map ~f:CommitObjectsList.of_xml)
          (Xml.child xml_arg0 "commits") in
      make ?errors ?commits ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors" BatchGetCommitsErrorsList.of_json in
      let commits = field_map json__ "commits" CommitObjectsList.of_json in
      make ?errors ?commits ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the contents of one or more commits in a repository."]
module BatchGetCommitsInput =
  struct
    type nonrec t =
      {
      commitIds: CommitIdsInputList.t
        [@ocaml.doc
          "The full commit IDs of the commits to get information about. You must supply the full SHA IDs of each commit. You cannot use shortened SHA IDs."];
      repositoryName: RepositoryName.t
        [@ocaml.doc "The name of the repository that contains the commits."]}
    let context_ = "BatchGetCommitsInput"
    let make ~commitIds =
      fun ~repositoryName -> fun () -> { commitIds; repositoryName }
    let to_value x =
      structure_to_value
        [("commitIds", (Some (CommitIdsInputList.to_value x.commitIds)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let commitIds =
        CommitIdsInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "commitIds") in
      make ~repositoryName ~commitIds ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let commitIds =
        field_map_exn json__ "commitIds" CommitIdsInputList.of_json in
      make ~repositoryName ~commitIds ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about the contents of one or more commits in a repository."]
module BatchDisassociateApprovalRuleTemplateFromRepositoriesOutput =
  struct
    type nonrec t =
      {
      disassociatedRepositoryNames: RepositoryNameList.t option
        [@ocaml.doc
          "A list of repository names that have had their association with the template removed."];
      errors:
        BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList.t
          option
        [@ocaml.doc
          "A list of any errors that might have occurred while attempting to remove the association between the template and the repositories."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `MaximumRepositoryNamesExceededException of
          MaximumRepositoryNamesExceededException.t 
      | `RepositoryNamesRequiredException of
          RepositoryNamesRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?disassociatedRepositoryNames =
      fun ?errors -> fun () -> { disassociatedRepositoryNames; errors }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_json json)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_xml xml)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.to_json e))]
      | `MaximumRepositoryNamesExceededException e ->
          `Assoc
            [("error", (`String "MaximumRepositoryNamesExceededException"));
            ("details", (MaximumRepositoryNamesExceededException.to_json e))]
      | `RepositoryNamesRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNamesRequiredException"));
            ("details", (RepositoryNamesRequiredException.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
        [("disassociatedRepositoryNames",
           (Option.map x.disassociatedRepositoryNames
              ~f:RepositoryNameList.to_value));
        ("errors",
          (Option.map x.errors
             ~f:BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map
           ~f:BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let disassociatedRepositoryNames =
        (Option.map ~f:RepositoryNameList.of_xml)
          (Xml.child xml_arg0 "disassociatedRepositoryNames") in
      make ?errors ?disassociatedRepositoryNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchDisassociateApprovalRuleTemplateFromRepositoriesErrorsList.of_json in
      let disassociatedRepositoryNames =
        field_map json__ "disassociatedRepositoryNames"
          RepositoryNameList.of_json in
      make ?errors ?disassociatedRepositoryNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between an approval rule template and one or more specified repositories."]
module BatchDisassociateApprovalRuleTemplateFromRepositoriesInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the template that you want to disassociate from one or more repositories."];
      repositoryNames: RepositoryNameList.t
        [@ocaml.doc
          "The repository names that you want to disassociate from the approval rule template. The length constraint limit is for each string in the array. The array itself can be empty."]}
    let context_ =
      "BatchDisassociateApprovalRuleTemplateFromRepositoriesInput"
    let make ~approvalRuleTemplateName =
      fun ~repositoryNames ->
        fun () -> { approvalRuleTemplateName; repositoryNames }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("repositoryNames",
          (Some (RepositoryNameList.to_value x.repositoryNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryNames =
        RepositoryNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryNames") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~repositoryNames ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryNames =
        field_map_exn json__ "repositoryNames" RepositoryNameList.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~repositoryNames ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the association between an approval rule template and one or more specified repositories."]
module BatchDescribeMergeConflictsOutput =
  struct
    type nonrec t =
      {
      conflicts: Conflicts.t option
        [@ocaml.doc
          "A list of conflicts for each file, including the conflict metadata and the hunks of the differences between the files."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that can be used in a request to return the next batch of the results."];
      errors: BatchDescribeMergeConflictsErrors.t option
        [@ocaml.doc
          "A list of any errors returned while describing the merge conflicts for each file."];
      destinationCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the destination commit specifier that was used in the merge evaluation."];
      sourceCommitId: ObjectId.t option
        [@ocaml.doc
          "The commit ID of the source commit specifier that was used in the merge evaluation."];
      baseCommitId: ObjectId.t option
        [@ocaml.doc "The commit ID of the merge base."]}
    type nonrec error =
      [ `CommitDoesNotExistException of CommitDoesNotExistException.t 
      | `CommitRequiredException of CommitRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidCommitException of InvalidCommitException.t 
      | `InvalidConflictDetailLevelException of
          InvalidConflictDetailLevelException.t 
      | `InvalidConflictResolutionStrategyException of
          InvalidConflictResolutionStrategyException.t 
      | `InvalidContinuationTokenException of
          InvalidContinuationTokenException.t 
      | `InvalidMaxConflictFilesException of
          InvalidMaxConflictFilesException.t 
      | `InvalidMaxMergeHunksException of InvalidMaxMergeHunksException.t 
      | `InvalidMergeOptionException of InvalidMergeOptionException.t 
      | `InvalidRepositoryNameException of InvalidRepositoryNameException.t 
      | `MaximumFileContentToLoadExceededException of
          MaximumFileContentToLoadExceededException.t 
      | `MaximumItemsToCompareExceededException of
          MaximumItemsToCompareExceededException.t 
      | `MergeOptionRequiredException of MergeOptionRequiredException.t 
      | `RepositoryDoesNotExistException of RepositoryDoesNotExistException.t 
      | `RepositoryNameRequiredException of RepositoryNameRequiredException.t 
      | `TipsDivergenceExceededException of TipsDivergenceExceededException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?conflicts =
      fun ?nextToken ->
        fun ?errors ->
          fun ?destinationCommitId ->
            fun ?sourceCommitId ->
              fun ?baseCommitId ->
                fun () ->
                  {
                    conflicts;
                    nextToken;
                    errors;
                    destinationCommitId;
                    sourceCommitId;
                    baseCommitId
                  }
    let error_of_json name json =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_json json)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_json json)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_json json)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_json json)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_json json)
      | "InvalidMaxConflictFilesException" ->
          `InvalidMaxConflictFilesException
            (InvalidMaxConflictFilesException.of_json json)
      | "InvalidMaxMergeHunksException" ->
          `InvalidMaxMergeHunksException
            (InvalidMaxMergeHunksException.of_json json)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_json json)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_json json)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_json json)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_json json)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_json json)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_json json)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_json json)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CommitDoesNotExistException" ->
          `CommitDoesNotExistException
            (CommitDoesNotExistException.of_xml xml)
      | "CommitRequiredException" ->
          `CommitRequiredException (CommitRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidCommitException" ->
          `InvalidCommitException (InvalidCommitException.of_xml xml)
      | "InvalidConflictDetailLevelException" ->
          `InvalidConflictDetailLevelException
            (InvalidConflictDetailLevelException.of_xml xml)
      | "InvalidConflictResolutionStrategyException" ->
          `InvalidConflictResolutionStrategyException
            (InvalidConflictResolutionStrategyException.of_xml xml)
      | "InvalidContinuationTokenException" ->
          `InvalidContinuationTokenException
            (InvalidContinuationTokenException.of_xml xml)
      | "InvalidMaxConflictFilesException" ->
          `InvalidMaxConflictFilesException
            (InvalidMaxConflictFilesException.of_xml xml)
      | "InvalidMaxMergeHunksException" ->
          `InvalidMaxMergeHunksException
            (InvalidMaxMergeHunksException.of_xml xml)
      | "InvalidMergeOptionException" ->
          `InvalidMergeOptionException
            (InvalidMergeOptionException.of_xml xml)
      | "InvalidRepositoryNameException" ->
          `InvalidRepositoryNameException
            (InvalidRepositoryNameException.of_xml xml)
      | "MaximumFileContentToLoadExceededException" ->
          `MaximumFileContentToLoadExceededException
            (MaximumFileContentToLoadExceededException.of_xml xml)
      | "MaximumItemsToCompareExceededException" ->
          `MaximumItemsToCompareExceededException
            (MaximumItemsToCompareExceededException.of_xml xml)
      | "MergeOptionRequiredException" ->
          `MergeOptionRequiredException
            (MergeOptionRequiredException.of_xml xml)
      | "RepositoryDoesNotExistException" ->
          `RepositoryDoesNotExistException
            (RepositoryDoesNotExistException.of_xml xml)
      | "RepositoryNameRequiredException" ->
          `RepositoryNameRequiredException
            (RepositoryNameRequiredException.of_xml xml)
      | "TipsDivergenceExceededException" ->
          `TipsDivergenceExceededException
            (TipsDivergenceExceededException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CommitDoesNotExistException e ->
          `Assoc
            [("error", (`String "CommitDoesNotExistException"));
            ("details", (CommitDoesNotExistException.to_json e))]
      | `CommitRequiredException e ->
          `Assoc
            [("error", (`String "CommitRequiredException"));
            ("details", (CommitRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidCommitException e ->
          `Assoc
            [("error", (`String "InvalidCommitException"));
            ("details", (InvalidCommitException.to_json e))]
      | `InvalidConflictDetailLevelException e ->
          `Assoc
            [("error", (`String "InvalidConflictDetailLevelException"));
            ("details", (InvalidConflictDetailLevelException.to_json e))]
      | `InvalidConflictResolutionStrategyException e ->
          `Assoc
            [("error",
               (`String "InvalidConflictResolutionStrategyException"));
            ("details",
              (InvalidConflictResolutionStrategyException.to_json e))]
      | `InvalidContinuationTokenException e ->
          `Assoc
            [("error", (`String "InvalidContinuationTokenException"));
            ("details", (InvalidContinuationTokenException.to_json e))]
      | `InvalidMaxConflictFilesException e ->
          `Assoc
            [("error", (`String "InvalidMaxConflictFilesException"));
            ("details", (InvalidMaxConflictFilesException.to_json e))]
      | `InvalidMaxMergeHunksException e ->
          `Assoc
            [("error", (`String "InvalidMaxMergeHunksException"));
            ("details", (InvalidMaxMergeHunksException.to_json e))]
      | `InvalidMergeOptionException e ->
          `Assoc
            [("error", (`String "InvalidMergeOptionException"));
            ("details", (InvalidMergeOptionException.to_json e))]
      | `InvalidRepositoryNameException e ->
          `Assoc
            [("error", (`String "InvalidRepositoryNameException"));
            ("details", (InvalidRepositoryNameException.to_json e))]
      | `MaximumFileContentToLoadExceededException e ->
          `Assoc
            [("error", (`String "MaximumFileContentToLoadExceededException"));
            ("details",
              (MaximumFileContentToLoadExceededException.to_json e))]
      | `MaximumItemsToCompareExceededException e ->
          `Assoc
            [("error", (`String "MaximumItemsToCompareExceededException"));
            ("details", (MaximumItemsToCompareExceededException.to_json e))]
      | `MergeOptionRequiredException e ->
          `Assoc
            [("error", (`String "MergeOptionRequiredException"));
            ("details", (MergeOptionRequiredException.to_json e))]
      | `RepositoryDoesNotExistException e ->
          `Assoc
            [("error", (`String "RepositoryDoesNotExistException"));
            ("details", (RepositoryDoesNotExistException.to_json e))]
      | `RepositoryNameRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNameRequiredException"));
            ("details", (RepositoryNameRequiredException.to_json e))]
      | `TipsDivergenceExceededException e ->
          `Assoc
            [("error", (`String "TipsDivergenceExceededException"));
            ("details", (TipsDivergenceExceededException.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
        [("conflicts", (Option.map x.conflicts ~f:Conflicts.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("errors",
          (Option.map x.errors ~f:BatchDescribeMergeConflictsErrors.to_value));
        ("destinationCommitId",
          (Option.map x.destinationCommitId ~f:ObjectId.to_value));
        ("sourceCommitId",
          (Option.map x.sourceCommitId ~f:ObjectId.to_value));
        ("baseCommitId", (Option.map x.baseCommitId ~f:ObjectId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let baseCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "baseCommitId") in
      let sourceCommitId =
        (Option.map ~f:ObjectId.of_xml) (Xml.child xml_arg0 "sourceCommitId") in
      let destinationCommitId =
        (Option.map ~f:ObjectId.of_xml)
          (Xml.child xml_arg0 "destinationCommitId") in
      let errors =
        (Option.map ~f:BatchDescribeMergeConflictsErrors.of_xml)
          (Xml.child xml_arg0 "errors") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let conflicts =
        (Option.map ~f:Conflicts.of_xml) (Xml.child xml_arg0 "conflicts") in
      make ?baseCommitId ?sourceCommitId ?destinationCommitId ?errors
        ?nextToken ?conflicts ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let baseCommitId = field_map json__ "baseCommitId" ObjectId.of_json in
      let sourceCommitId = field_map json__ "sourceCommitId" ObjectId.of_json in
      let destinationCommitId =
        field_map json__ "destinationCommitId" ObjectId.of_json in
      let errors =
        field_map json__ "errors" BatchDescribeMergeConflictsErrors.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let conflicts = field_map json__ "conflicts" Conflicts.of_json in
      make ?baseCommitId ?sourceCommitId ?destinationCommitId ?errors
        ?nextToken ?conflicts ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more merge conflicts in the attempted merge of two commit specifiers using the squash or three-way merge strategy."]
module BatchDescribeMergeConflictsInput =
  struct
    type nonrec t =
      {
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that contains the merge conflicts you want to review."];
      destinationCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      sourceCommitSpecifier: CommitName.t
        [@ocaml.doc
          "The branch, tag, HEAD, or other fully qualified reference used to identify a commit (for example, a branch name or a full commit ID)."];
      mergeOption: MergeOptionTypeEnum.t
        [@ocaml.doc
          "The merge option or strategy you want to use to merge the code."];
      maxMergeHunks: MaxResults.t option
        [@ocaml.doc
          "The maximum number of merge hunks to include in the output."];
      maxConflictFiles: MaxResults.t option
        [@ocaml.doc "The maximum number of files to include in the output."];
      filePaths: FilePaths.t option
        [@ocaml.doc
          "The path of the target files used to describe the conflicts. If not specified, the default is all conflict files."];
      conflictDetailLevel: ConflictDetailLevelTypeEnum.t option
        [@ocaml.doc
          "The level of conflict detail to use. If unspecified, the default FILE_LEVEL is used, which returns a not-mergeable result if the same file has differences in both branches. If LINE_LEVEL is specified, a conflict is considered not mergeable if the same file in both branches has differences on the same line."];
      conflictResolutionStrategy: ConflictResolutionStrategyTypeEnum.t option
        [@ocaml.doc
          "Specifies which branch to use when resolving conflicts, or whether to attempt automatically merging two versions of a file. The default is NONE, which requires any conflicts to be resolved manually before the merge operation is successful."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "An enumeration token that, when provided in a request, returns the next batch of the results."]}
    let context_ = "BatchDescribeMergeConflictsInput"
    let make ?maxMergeHunks =
      fun ?maxConflictFiles ->
        fun ?filePaths ->
          fun ?conflictDetailLevel ->
            fun ?conflictResolutionStrategy ->
              fun ?nextToken ->
                fun ~repositoryName ->
                  fun ~destinationCommitSpecifier ->
                    fun ~sourceCommitSpecifier ->
                      fun ~mergeOption ->
                        fun () ->
                          {
                            maxMergeHunks;
                            maxConflictFiles;
                            filePaths;
                            conflictDetailLevel;
                            conflictResolutionStrategy;
                            nextToken;
                            repositoryName;
                            destinationCommitSpecifier;
                            sourceCommitSpecifier;
                            mergeOption
                          }
    let to_value x =
      structure_to_value
        [("repositoryName",
           (Some (RepositoryName.to_value x.repositoryName)));
        ("destinationCommitSpecifier",
          (Some (CommitName.to_value x.destinationCommitSpecifier)));
        ("sourceCommitSpecifier",
          (Some (CommitName.to_value x.sourceCommitSpecifier)));
        ("mergeOption", (Some (MergeOptionTypeEnum.to_value x.mergeOption)));
        ("maxMergeHunks",
          (Option.map x.maxMergeHunks ~f:MaxResults.to_value));
        ("maxConflictFiles",
          (Option.map x.maxConflictFiles ~f:MaxResults.to_value));
        ("filePaths", (Option.map x.filePaths ~f:FilePaths.to_value));
        ("conflictDetailLevel",
          (Option.map x.conflictDetailLevel
             ~f:ConflictDetailLevelTypeEnum.to_value));
        ("conflictResolutionStrategy",
          (Option.map x.conflictResolutionStrategy
             ~f:ConflictResolutionStrategyTypeEnum.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let conflictResolutionStrategy =
        (Option.map ~f:ConflictResolutionStrategyTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictResolutionStrategy") in
      let conflictDetailLevel =
        (Option.map ~f:ConflictDetailLevelTypeEnum.of_xml)
          (Xml.child xml_arg0 "conflictDetailLevel") in
      let filePaths =
        (Option.map ~f:FilePaths.of_xml) (Xml.child xml_arg0 "filePaths") in
      let maxConflictFiles =
        (Option.map ~f:MaxResults.of_xml)
          (Xml.child xml_arg0 "maxConflictFiles") in
      let maxMergeHunks =
        (Option.map ~f:MaxResults.of_xml)
          (Xml.child xml_arg0 "maxMergeHunks") in
      let mergeOption =
        MergeOptionTypeEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mergeOption") in
      let sourceCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceCommitSpecifier") in
      let destinationCommitSpecifier =
        CommitName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "destinationCommitSpecifier") in
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      make ?nextToken ?conflictResolutionStrategy ?conflictDetailLevel
        ?filePaths ?maxConflictFiles ?maxMergeHunks ~mergeOption
        ~sourceCommitSpecifier ~destinationCommitSpecifier ~repositoryName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let conflictResolutionStrategy =
        field_map json__ "conflictResolutionStrategy"
          ConflictResolutionStrategyTypeEnum.of_json in
      let conflictDetailLevel =
        field_map json__ "conflictDetailLevel"
          ConflictDetailLevelTypeEnum.of_json in
      let filePaths = field_map json__ "filePaths" FilePaths.of_json in
      let maxConflictFiles =
        field_map json__ "maxConflictFiles" MaxResults.of_json in
      let maxMergeHunks = field_map json__ "maxMergeHunks" MaxResults.of_json in
      let mergeOption =
        field_map_exn json__ "mergeOption" MergeOptionTypeEnum.of_json in
      let sourceCommitSpecifier =
        field_map_exn json__ "sourceCommitSpecifier" CommitName.of_json in
      let destinationCommitSpecifier =
        field_map_exn json__ "destinationCommitSpecifier" CommitName.of_json in
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      make ?nextToken ?conflictResolutionStrategy ?conflictDetailLevel
        ?filePaths ?maxConflictFiles ?maxMergeHunks ~mergeOption
        ~sourceCommitSpecifier ~destinationCommitSpecifier ~repositoryName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about one or more merge conflicts in the attempted merge of two commit specifiers using the squash or three-way merge strategy."]
module BatchAssociateApprovalRuleTemplateWithRepositoriesOutput =
  struct
    type nonrec t =
      {
      associatedRepositoryNames: RepositoryNameList.t option
        [@ocaml.doc
          "A list of names of the repositories that have been associated with the template."];
      errors:
        BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList.t option
        [@ocaml.doc
          "A list of any errors that might have occurred while attempting to create the association between the template and the repositories."]}
    type nonrec error =
      [
        `ApprovalRuleTemplateDoesNotExistException of
          ApprovalRuleTemplateDoesNotExistException.t 
      | `ApprovalRuleTemplateNameRequiredException of
          ApprovalRuleTemplateNameRequiredException.t 
      | `EncryptionIntegrityChecksFailedException of
          EncryptionIntegrityChecksFailedException.t 
      | `EncryptionKeyAccessDeniedException of
          EncryptionKeyAccessDeniedException.t 
      | `EncryptionKeyDisabledException of EncryptionKeyDisabledException.t 
      | `EncryptionKeyNotFoundException of EncryptionKeyNotFoundException.t 
      | `EncryptionKeyUnavailableException of
          EncryptionKeyUnavailableException.t 
      | `InvalidApprovalRuleTemplateNameException of
          InvalidApprovalRuleTemplateNameException.t 
      | `MaximumRepositoryNamesExceededException of
          MaximumRepositoryNamesExceededException.t 
      | `RepositoryNamesRequiredException of
          RepositoryNamesRequiredException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?associatedRepositoryNames =
      fun ?errors -> fun () -> { associatedRepositoryNames; errors }
    let error_of_json name json =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_json json)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_json json)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_json json)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_json json)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_json json)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_json json)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_json json)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_json json)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_json json)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ApprovalRuleTemplateDoesNotExistException" ->
          `ApprovalRuleTemplateDoesNotExistException
            (ApprovalRuleTemplateDoesNotExistException.of_xml xml)
      | "ApprovalRuleTemplateNameRequiredException" ->
          `ApprovalRuleTemplateNameRequiredException
            (ApprovalRuleTemplateNameRequiredException.of_xml xml)
      | "EncryptionIntegrityChecksFailedException" ->
          `EncryptionIntegrityChecksFailedException
            (EncryptionIntegrityChecksFailedException.of_xml xml)
      | "EncryptionKeyAccessDeniedException" ->
          `EncryptionKeyAccessDeniedException
            (EncryptionKeyAccessDeniedException.of_xml xml)
      | "EncryptionKeyDisabledException" ->
          `EncryptionKeyDisabledException
            (EncryptionKeyDisabledException.of_xml xml)
      | "EncryptionKeyNotFoundException" ->
          `EncryptionKeyNotFoundException
            (EncryptionKeyNotFoundException.of_xml xml)
      | "EncryptionKeyUnavailableException" ->
          `EncryptionKeyUnavailableException
            (EncryptionKeyUnavailableException.of_xml xml)
      | "InvalidApprovalRuleTemplateNameException" ->
          `InvalidApprovalRuleTemplateNameException
            (InvalidApprovalRuleTemplateNameException.of_xml xml)
      | "MaximumRepositoryNamesExceededException" ->
          `MaximumRepositoryNamesExceededException
            (MaximumRepositoryNamesExceededException.of_xml xml)
      | "RepositoryNamesRequiredException" ->
          `RepositoryNamesRequiredException
            (RepositoryNamesRequiredException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ApprovalRuleTemplateDoesNotExistException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateDoesNotExistException"));
            ("details",
              (ApprovalRuleTemplateDoesNotExistException.to_json e))]
      | `ApprovalRuleTemplateNameRequiredException e ->
          `Assoc
            [("error", (`String "ApprovalRuleTemplateNameRequiredException"));
            ("details",
              (ApprovalRuleTemplateNameRequiredException.to_json e))]
      | `EncryptionIntegrityChecksFailedException e ->
          `Assoc
            [("error", (`String "EncryptionIntegrityChecksFailedException"));
            ("details", (EncryptionIntegrityChecksFailedException.to_json e))]
      | `EncryptionKeyAccessDeniedException e ->
          `Assoc
            [("error", (`String "EncryptionKeyAccessDeniedException"));
            ("details", (EncryptionKeyAccessDeniedException.to_json e))]
      | `EncryptionKeyDisabledException e ->
          `Assoc
            [("error", (`String "EncryptionKeyDisabledException"));
            ("details", (EncryptionKeyDisabledException.to_json e))]
      | `EncryptionKeyNotFoundException e ->
          `Assoc
            [("error", (`String "EncryptionKeyNotFoundException"));
            ("details", (EncryptionKeyNotFoundException.to_json e))]
      | `EncryptionKeyUnavailableException e ->
          `Assoc
            [("error", (`String "EncryptionKeyUnavailableException"));
            ("details", (EncryptionKeyUnavailableException.to_json e))]
      | `InvalidApprovalRuleTemplateNameException e ->
          `Assoc
            [("error", (`String "InvalidApprovalRuleTemplateNameException"));
            ("details", (InvalidApprovalRuleTemplateNameException.to_json e))]
      | `MaximumRepositoryNamesExceededException e ->
          `Assoc
            [("error", (`String "MaximumRepositoryNamesExceededException"));
            ("details", (MaximumRepositoryNamesExceededException.to_json e))]
      | `RepositoryNamesRequiredException e ->
          `Assoc
            [("error", (`String "RepositoryNamesRequiredException"));
            ("details", (RepositoryNamesRequiredException.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
        [("associatedRepositoryNames",
           (Option.map x.associatedRepositoryNames
              ~f:RepositoryNameList.to_value));
        ("errors",
          (Option.map x.errors
             ~f:BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errors =
        (Option.map
           ~f:BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList.of_xml)
          (Xml.child xml_arg0 "errors") in
      let associatedRepositoryNames =
        (Option.map ~f:RepositoryNameList.of_xml)
          (Xml.child xml_arg0 "associatedRepositoryNames") in
      make ?errors ?associatedRepositoryNames ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errors =
        field_map json__ "errors"
          BatchAssociateApprovalRuleTemplateWithRepositoriesErrorsList.of_json in
      let associatedRepositoryNames =
        field_map json__ "associatedRepositoryNames"
          RepositoryNameList.of_json in
      make ?errors ?associatedRepositoryNames ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an association between an approval rule template and one or more specified repositories."]
module BatchAssociateApprovalRuleTemplateWithRepositoriesInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc
          "The name of the template you want to associate with one or more repositories."];
      repositoryNames: RepositoryNameList.t
        [@ocaml.doc
          "The names of the repositories you want to associate with the template. The length constraint limit is for each string in the array. The array itself can be empty."]}
    let context_ = "BatchAssociateApprovalRuleTemplateWithRepositoriesInput"
    let make ~approvalRuleTemplateName =
      fun ~repositoryNames ->
        fun () -> { approvalRuleTemplateName; repositoryNames }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("repositoryNames",
          (Some (RepositoryNameList.to_value x.repositoryNames)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryNames =
        RepositoryNameList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryNames") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~repositoryNames ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryNames =
        field_map_exn json__ "repositoryNames" RepositoryNameList.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~repositoryNames ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an association between an approval rule template and one or more specified repositories."]
module AssociateApprovalRuleTemplateWithRepositoryInput =
  struct
    type nonrec t =
      {
      approvalRuleTemplateName: ApprovalRuleTemplateName.t
        [@ocaml.doc "The name for the approval rule template."];
      repositoryName: RepositoryName.t
        [@ocaml.doc
          "The name of the repository that you want to associate with the template."]}
    let context_ = "AssociateApprovalRuleTemplateWithRepositoryInput"
    let make ~approvalRuleTemplateName =
      fun ~repositoryName ->
        fun () -> { approvalRuleTemplateName; repositoryName }
    let to_value x =
      structure_to_value
        [("approvalRuleTemplateName",
           (Some
              (ApprovalRuleTemplateName.to_value x.approvalRuleTemplateName)));
        ("repositoryName", (Some (RepositoryName.to_value x.repositoryName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let repositoryName =
        RepositoryName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "repositoryName") in
      let approvalRuleTemplateName =
        ApprovalRuleTemplateName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "approvalRuleTemplateName") in
      make ~repositoryName ~approvalRuleTemplateName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let repositoryName =
        field_map_exn json__ "repositoryName" RepositoryName.of_json in
      let approvalRuleTemplateName =
        field_map_exn json__ "approvalRuleTemplateName"
          ApprovalRuleTemplateName.of_json in
      make ~repositoryName ~approvalRuleTemplateName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates an association between an approval rule template and a specified repository. Then, the next time a pull request is created in the repository where the destination reference (if specified) matches the destination reference (branch) for the pull request, an approval rule that matches the template conditions is automatically created for that pull request. If no destination references are specified in the template, an approval rule that matches the template contents is created for all pull requests in that repository."]
module ApprovalStateRequiredException =
  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 "An approval state is required, but was not specified."]