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.signer
let apiVersion = "2017-08-25"
let endpointPrefix = "signer"
let serviceFullName = "AWS Signer"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "signer"
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 EncryptionAlgorithm =
  struct
    type nonrec t =
      | RSA 
      | ECDSA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | RSA -> "RSA" | ECDSA -> "ECDSA" | Non_static_id s -> s
    let of_string =
      function | "RSA" -> RSA | "ECDSA" -> ECDSA | 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 EncryptionAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"EncryptionAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module HashAlgorithm =
  struct
    type nonrec t =
      | SHA1 
      | SHA256 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SHA1 -> "SHA1" | SHA256 -> "SHA256" | Non_static_id s -> s
    let of_string =
      function | "SHA1" -> SHA1 | "SHA256" -> SHA256 | 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 HashAlgorithm" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"HashAlgorithm" j)
    let to_json = simple_to_json to_value
  end
module EncryptionAlgorithms =
  struct
    type nonrec t = EncryptionAlgorithm.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:EncryptionAlgorithm.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:EncryptionAlgorithm.of_xml)
    let of_json j =
      list_of_json ~kind:"EncryptionAlgorithms"
        ~of_json:EncryptionAlgorithm.of_json j
    let to_json v = composed_to_json to_value v
  end
module HashAlgorithms =
  struct
    type nonrec t = HashAlgorithm.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:HashAlgorithm.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:HashAlgorithm.of_xml)
    let of_json j =
      list_of_json ~kind:"HashAlgorithms" ~of_json:HashAlgorithm.of_json j
    let to_json v = composed_to_json to_value v
  end
module ImageFormat =
  struct
    type nonrec t =
      | JSON 
      | JSONEmbedded 
      | JSONDetached 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | JSON -> "JSON"
      | JSONEmbedded -> "JSONEmbedded"
      | JSONDetached -> "JSONDetached"
      | Non_static_id s -> s
    let of_string =
      function
      | "JSON" -> JSON
      | "JSONEmbedded" -> JSONEmbedded
      | "JSONDetached" -> JSONDetached
      | 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 ImageFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ImageFormat" j)
    let to_json = simple_to_json to_value
  end
module BucketName =
  struct
    type nonrec t = string
    let context_ = "BucketName"
    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:"BucketName" j
    let to_json = simple_to_json to_value
  end
module Key =
  struct
    type nonrec t = string
    let context_ = "Key"
    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:"Key" j
    let to_json = simple_to_json to_value
  end
module Version =
  struct
    type nonrec t = string
    let context_ = "Version"
    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:"Version" j
    let to_json = simple_to_json to_value
  end
module Integer =
  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 Integer" 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 ValidityType =
  struct
    type nonrec t =
      | DAYS 
      | MONTHS 
      | YEARS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DAYS -> "DAYS"
      | MONTHS -> "MONTHS"
      | YEARS -> "YEARS"
      | Non_static_id s -> s
    let of_string =
      function
      | "DAYS" -> DAYS
      | "MONTHS" -> MONTHS
      | "YEARS" -> YEARS
      | 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 ValidityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ValidityType" j)
    let to_json = simple_to_json to_value
  end
module CertificateArn =
  struct
    type nonrec t = string
    let context_ = "CertificateArn"
    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:"CertificateArn" j
    let to_json = simple_to_json to_value
  end
module SigningParameterKey =
  struct
    type nonrec t = string
    let context_ = "SigningParameterKey"
    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:"SigningParameterKey" j
    let to_json = simple_to_json to_value
  end
module SigningParameterValue =
  struct
    type nonrec t = string
    let context_ = "SigningParameterValue"
    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:"SigningParameterValue" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(?!aws:)[a-zA-Z+-=._:/]+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:256); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_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 EncryptionAlgorithmOptions =
  struct
    type nonrec t =
      {
      allowedValues: EncryptionAlgorithms.t option
        [@ocaml.doc
          "The set of accepted encryption algorithms that are allowed in a code-signing job."];
      defaultValue: EncryptionAlgorithm.t option
        [@ocaml.doc
          "The default encryption algorithm that is used by a code-signing job."]}
    let make ?allowedValues =
      fun ?defaultValue -> fun () -> { allowedValues; defaultValue }
    let to_value x =
      structure_to_value
        [("allowedValues",
           (Option.map x.allowedValues ~f:EncryptionAlgorithms.to_value));
        ("defaultValue",
          (Option.map x.defaultValue ~f:EncryptionAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultValue =
        (Option.map ~f:EncryptionAlgorithm.of_xml)
          (Xml.child xml_arg0 "defaultValue") in
      let allowedValues =
        (Option.map ~f:EncryptionAlgorithms.of_xml)
          (Xml.child xml_arg0 "allowedValues") in
      make ?defaultValue ?allowedValues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultValue =
        field_map json__ "defaultValue" EncryptionAlgorithm.of_json in
      let allowedValues =
        field_map json__ "allowedValues" EncryptionAlgorithms.of_json in
      make ?defaultValue ?allowedValues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The encryption algorithm options that are available to a code-signing job."]
module HashAlgorithmOptions =
  struct
    type nonrec t =
      {
      allowedValues: HashAlgorithms.t option
        [@ocaml.doc
          "The set of accepted hash algorithms allowed in a code-signing job."];
      defaultValue: HashAlgorithm.t option
        [@ocaml.doc
          "The default hash algorithm that is used in a code-signing job."]}
    let make ?allowedValues =
      fun ?defaultValue -> fun () -> { allowedValues; defaultValue }
    let to_value x =
      structure_to_value
        [("allowedValues",
           (Option.map x.allowedValues ~f:HashAlgorithms.to_value));
        ("defaultValue",
          (Option.map x.defaultValue ~f:HashAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultValue =
        (Option.map ~f:HashAlgorithm.of_xml)
          (Xml.child xml_arg0 "defaultValue") in
      let allowedValues =
        (Option.map ~f:HashAlgorithms.of_xml)
          (Xml.child xml_arg0 "allowedValues") in
      make ?defaultValue ?allowedValues ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultValue =
        field_map json__ "defaultValue" HashAlgorithm.of_json in
      let allowedValues =
        field_map json__ "allowedValues" HashAlgorithms.of_json in
      make ?defaultValue ?allowedValues ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The hash algorithms that are available to a code-signing job."]
module ImageFormats =
  struct
    type nonrec t = ImageFormat.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:ImageFormat.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:ImageFormat.of_xml)
    let of_json j =
      list_of_json ~kind:"ImageFormats" ~of_json:ImageFormat.of_json j
    let to_json v = composed_to_json to_value v
  end
module S3SignedObject =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t option [@ocaml.doc "Name of the S3 bucket."];
      key: Key.t option
        [@ocaml.doc
          "Key name that uniquely identifies a signed code image in your bucket."]}
    let make ?bucketName = fun ?key -> fun () -> { bucketName; key }
    let to_value x =
      structure_to_value
        [("bucketName", (Option.map x.bucketName ~f:BucketName.to_value));
        ("key", (Option.map x.key ~f:Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:Key.of_xml) (Xml.child xml_arg0 "key") in
      let bucketName =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "bucketName") in
      make ?key ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "key" Key.of_json in
      let bucketName = field_map json__ "bucketName" BucketName.of_json in
      make ?key ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Amazon S3 bucket name and key where Signer saved your signed code image."]
module S3Source =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t [@ocaml.doc "Name of the S3 bucket."];
      key: Key.t
        [@ocaml.doc
          "Key name of the bucket object that contains your unsigned code."];
      version: Version.t
        [@ocaml.doc
          "Version of your source image in your version enabled S3 bucket."]}
    let context_ = "S3Source"
    let make ~bucketName =
      fun ~key -> fun ~version -> fun () -> { bucketName; key; version }
    let to_value x =
      structure_to_value
        [("bucketName", (Some (BucketName.to_value x.bucketName)));
        ("key", (Some (Key.to_value x.key)));
        ("version", (Some (Version.to_value x.version)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let version =
        Version.of_xml (Xml.child_exn ~context:context_ xml_arg0 "version") in
      let key = Key.of_xml (Xml.child_exn ~context:context_ xml_arg0 "key") in
      let bucketName =
        BucketName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "bucketName") in
      make ~version ~key ~bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let version = field_map_exn json__ "version" Version.of_json in
      let key = field_map_exn json__ "key" Key.of_json in
      let bucketName = field_map_exn json__ "bucketName" BucketName.of_json in
      make ~version ~key ~bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Information about the Amazon S3 bucket where you saved your unsigned code."]
module Prefix =
  struct
    type nonrec t = string
    let context_ = "Prefix"
    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:"Prefix" j
    let to_json = simple_to_json to_value
  end
module Arn =
  struct
    type nonrec t = string
    let context_ = "Arn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:20));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_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 DisplayName =
  struct
    type nonrec t = string
    let context_ = "DisplayName"
    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:"DisplayName" j
    let to_json = simple_to_json to_value
  end
module PlatformId =
  struct
    type nonrec t = string
    let context_ = "PlatformId"
    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:"PlatformId" j
    let to_json = simple_to_json to_value
  end
module ProfileName =
  struct
    type nonrec t = string
    let context_ = "ProfileName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:2) >>=
             (fun () ->
                (check_string_max i ~max:64) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9_]{2,}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProfileName" j
    let to_json = simple_to_json to_value
  end
module ProfileVersion =
  struct
    type nonrec t = string
    let context_ = "ProfileVersion"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:10) >>=
                  (fun () -> check_pattern i ~pattern:"^[a-zA-Z0-9]{10}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ProfileVersion" j
    let to_json = simple_to_json to_value
  end
module SignatureValidityPeriod =
  struct
    type nonrec t =
      {
      value: Integer.t option
        [@ocaml.doc
          "The numerical value of the time unit for signature validity."];
      type_: ValidityType.t option
        [@ocaml.doc "The time unit for signature validity."]}
    let make ?value = fun ?type_ -> fun () -> { value; type_ }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Integer.to_value));
        ("type", (Option.map x.type_ ~f:ValidityType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:ValidityType.of_xml) (Xml.child xml_arg0 "type") in
      let value = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "value") in
      make ?type_ ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "type" ValidityType.of_json in
      let value = field_map json__ "value" Integer.of_json in
      make ?type_ ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The validity period for a signing job."]
module SigningMaterial =
  struct
    type nonrec t =
      {
      certificateArn: CertificateArn.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the certificates that is used to sign your code."]}
    let context_ = "SigningMaterial"
    let make ~certificateArn = fun () -> { certificateArn }
    let to_value x =
      structure_to_value
        [("certificateArn",
           (Some (CertificateArn.to_value x.certificateArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateArn =
        CertificateArn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "certificateArn") in
      make ~certificateArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateArn =
        field_map_exn json__ "certificateArn" CertificateArn.of_json in
      make ~certificateArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The ACM certificate that is used to sign your code."]
module SigningParameters =
  struct
    type nonrec t = (SigningParameterKey.t * SigningParameterValue.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 ->
                            ((SigningParameterKey.of_string chopped),
                              (SigningParameterValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (SigningParameterKey.to_value x) |>
                    (fun x ->
                       (SigningParameterValue.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:SigningParameterKey.of_string
        ~of_json:SigningParameterValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module SigningProfileStatus =
  struct
    type nonrec t =
      | Active 
      | Canceled 
      | Revoked 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Active -> "Active"
      | Canceled -> "Canceled"
      | Revoked -> "Revoked"
      | Non_static_id s -> s
    let of_string =
      function
      | "Active" -> Active
      | "Canceled" -> Canceled
      | "Revoked" -> Revoked
      | 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 SigningProfileStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SigningProfileStatus" j)
    let to_json = simple_to_json to_value
  end
module String__lc1 =
  struct
    type nonrec t = string
    let context_ = "String__lc1"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String__lc1" j
    let to_json = simple_to_json to_value
  end
module TagMap =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Category =
  struct
    type nonrec t =
      | AWSIoT 
      | Non_static_id of string 
    let make i = i
    let to_string = function | AWSIoT -> "AWSIoT" | Non_static_id s -> s
    let of_string = function | "AWSIoT" -> AWSIoT | 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 Category" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Category" j)
    let to_json = simple_to_json to_value
  end
module MaxSizeInMB =
  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 MaxSizeInMB" 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 SigningConfiguration =
  struct
    type nonrec t =
      {
      encryptionAlgorithmOptions: EncryptionAlgorithmOptions.t option
        [@ocaml.doc
          "The encryption algorithm options that are available for a code-signing job."];
      hashAlgorithmOptions: HashAlgorithmOptions.t option
        [@ocaml.doc
          "The hash algorithm options that are available for a code-signing job."]}
    let make ?encryptionAlgorithmOptions =
      fun ?hashAlgorithmOptions ->
        fun () -> { encryptionAlgorithmOptions; hashAlgorithmOptions }
    let to_value x =
      structure_to_value
        [("encryptionAlgorithmOptions",
           (Option.map x.encryptionAlgorithmOptions
              ~f:EncryptionAlgorithmOptions.to_value));
        ("hashAlgorithmOptions",
          (Option.map x.hashAlgorithmOptions ~f:HashAlgorithmOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hashAlgorithmOptions =
        (Option.map ~f:HashAlgorithmOptions.of_xml)
          (Xml.child xml_arg0 "hashAlgorithmOptions") in
      let encryptionAlgorithmOptions =
        (Option.map ~f:EncryptionAlgorithmOptions.of_xml)
          (Xml.child xml_arg0 "encryptionAlgorithmOptions") in
      make ?hashAlgorithmOptions ?encryptionAlgorithmOptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hashAlgorithmOptions =
        field_map json__ "hashAlgorithmOptions" HashAlgorithmOptions.of_json in
      let encryptionAlgorithmOptions =
        field_map json__ "encryptionAlgorithmOptions"
          EncryptionAlgorithmOptions.of_json in
      make ?hashAlgorithmOptions ?encryptionAlgorithmOptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The configuration of a signing operation."]
module SigningImageFormat =
  struct
    type nonrec t =
      {
      supportedFormats: ImageFormats.t option
        [@ocaml.doc "The supported formats of a signing image."];
      defaultFormat: ImageFormat.t option
        [@ocaml.doc "The default format of a signing image."]}
    let make ?supportedFormats =
      fun ?defaultFormat -> fun () -> { supportedFormats; defaultFormat }
    let to_value x =
      structure_to_value
        [("supportedFormats",
           (Option.map x.supportedFormats ~f:ImageFormats.to_value));
        ("defaultFormat",
          (Option.map x.defaultFormat ~f:ImageFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultFormat =
        (Option.map ~f:ImageFormat.of_xml)
          (Xml.child xml_arg0 "defaultFormat") in
      let supportedFormats =
        (Option.map ~f:ImageFormats.of_xml)
          (Xml.child xml_arg0 "supportedFormats") in
      make ?defaultFormat ?supportedFormats ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultFormat =
        field_map json__ "defaultFormat" ImageFormat.of_json in
      let supportedFormats =
        field_map json__ "supportedFormats" ImageFormats.of_json in
      make ?defaultFormat ?supportedFormats ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The image format of a AWS Signer platform or profile."]
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module Bool_ =
  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 AccountId =
  struct
    type nonrec t = string
    let context_ = "AccountId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:12) >>=
             (fun () ->
                (check_string_max i ~max:12) >>=
                  (fun () -> check_pattern i ~pattern:"^[0-9]{12}$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AccountId" j
    let to_json = simple_to_json to_value
  end
module JobId =
  struct
    type nonrec t = string
    let context_ = "JobId"
    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:"JobId" j
    let to_json = simple_to_json to_value
  end
module SignedObject =
  struct
    type nonrec t =
      {
      s3: S3SignedObject.t option [@ocaml.doc "The S3SignedObject."]}
    let make ?s3 = fun () -> { s3 }
    let to_value x =
      structure_to_value
        [("s3", (Option.map x.s3 ~f:S3SignedObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 =
        (Option.map ~f:S3SignedObject.of_xml) (Xml.child xml_arg0 "s3") in
      make ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "s3" S3SignedObject.of_json in make ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Points to an S3SignedObject object that contains information about your signed code image."]
module SigningStatus =
  struct
    type nonrec t =
      | InProgress 
      | Failed 
      | Succeeded 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | InProgress -> "InProgress"
      | Failed -> "Failed"
      | Succeeded -> "Succeeded"
      | Non_static_id s -> s
    let of_string =
      function
      | "InProgress" -> InProgress
      | "Failed" -> Failed
      | "Succeeded" -> Succeeded
      | 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 SigningStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SigningStatus" j)
    let to_json = simple_to_json to_value
  end
module Source =
  struct
    type nonrec t =
      {
      s3: S3Source.t option [@ocaml.doc "The S3Source object."]}
    let make ?s3 = fun () -> { s3 }
    let to_value x =
      structure_to_value [("s3", (Option.map x.s3 ~f:S3Source.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 = (Option.map ~f:S3Source.of_xml) (Xml.child xml_arg0 "s3") in
      make ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "s3" S3Source.of_json in make ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An S3Source object that contains information about the S3 bucket where you saved your unsigned code."]
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module 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 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 S3Destination =
  struct
    type nonrec t =
      {
      bucketName: BucketName.t option [@ocaml.doc "Name of the S3 bucket."];
      prefix: Prefix.t option
        [@ocaml.doc
          "An S3 prefix that you can use to limit responses to those that begin with the specified prefix."]}
    let make ?bucketName = fun ?prefix -> fun () -> { bucketName; prefix }
    let to_value x =
      structure_to_value
        [("bucketName", (Option.map x.bucketName ~f:BucketName.to_value));
        ("prefix", (Option.map x.prefix ~f:Prefix.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let prefix =
        (Option.map ~f:Prefix.of_xml) (Xml.child xml_arg0 "prefix") in
      let bucketName =
        (Option.map ~f:BucketName.of_xml) (Xml.child xml_arg0 "bucketName") in
      make ?prefix ?bucketName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let prefix = field_map json__ "prefix" Prefix.of_json in
      let bucketName = field_map json__ "bucketName" BucketName.of_json in
      make ?prefix ?bucketName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The name and prefix of the Amazon S3 bucket where AWS Signer saves your signed objects."]
module SigningConfigurationOverrides =
  struct
    type nonrec t =
      {
      encryptionAlgorithm: EncryptionAlgorithm.t option
        [@ocaml.doc
          "A specified override of the default encryption algorithm that is used in a code-signing job."];
      hashAlgorithm: HashAlgorithm.t option
        [@ocaml.doc
          "A specified override of the default hash algorithm that is used in a code-signing job."]}
    let make ?encryptionAlgorithm =
      fun ?hashAlgorithm -> fun () -> { encryptionAlgorithm; hashAlgorithm }
    let to_value x =
      structure_to_value
        [("encryptionAlgorithm",
           (Option.map x.encryptionAlgorithm ~f:EncryptionAlgorithm.to_value));
        ("hashAlgorithm",
          (Option.map x.hashAlgorithm ~f:HashAlgorithm.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hashAlgorithm =
        (Option.map ~f:HashAlgorithm.of_xml)
          (Xml.child xml_arg0 "hashAlgorithm") in
      let encryptionAlgorithm =
        (Option.map ~f:EncryptionAlgorithm.of_xml)
          (Xml.child xml_arg0 "encryptionAlgorithm") in
      make ?hashAlgorithm ?encryptionAlgorithm ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hashAlgorithm =
        field_map json__ "hashAlgorithm" HashAlgorithm.of_json in
      let encryptionAlgorithm =
        field_map json__ "encryptionAlgorithm" EncryptionAlgorithm.of_json in
      make ?hashAlgorithm ?encryptionAlgorithm ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A signing configuration that overrides the default encryption or hash algorithm of a signing job."]
module SigningProfile =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t option
        [@ocaml.doc "The name of the signing profile."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc "The version of a signing profile."];
      profileVersionArn: Arn.t option
        [@ocaml.doc
          "The ARN of a signing profile, including the profile version."];
      signingMaterial: SigningMaterial.t option
        [@ocaml.doc
          "The ACM certificate that is available for use by a signing profile."];
      signatureValidityPeriod: SignatureValidityPeriod.t option
        [@ocaml.doc
          "The validity period for a signing job created using this signing profile."];
      platformId: PlatformId.t option
        [@ocaml.doc
          "The ID of a platform that is available for use by a signing profile."];
      platformDisplayName: DisplayName.t option
        [@ocaml.doc "The name of the signing platform."];
      signingParameters: SigningParameters.t option
        [@ocaml.doc
          "The parameters that are available for use by a Signer user."];
      status: SigningProfileStatus.t option
        [@ocaml.doc "The status of a signing profile."];
      arn: String__lc1.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the signing profile."];
      tags: TagMap.t option
        [@ocaml.doc "A list of tags associated with the signing profile."]}
    let make ?profileName =
      fun ?profileVersion ->
        fun ?profileVersionArn ->
          fun ?signingMaterial ->
            fun ?signatureValidityPeriod ->
              fun ?platformId ->
                fun ?platformDisplayName ->
                  fun ?signingParameters ->
                    fun ?status ->
                      fun ?arn ->
                        fun ?tags ->
                          fun () ->
                            {
                              profileName;
                              profileVersion;
                              profileVersionArn;
                              signingMaterial;
                              signatureValidityPeriod;
                              platformId;
                              platformDisplayName;
                              signingParameters;
                              status;
                              arn;
                              tags
                            }
    let to_value x =
      structure_to_value
        [("profileName", (Option.map x.profileName ~f:ProfileName.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("profileVersionArn",
          (Option.map x.profileVersionArn ~f:Arn.to_value));
        ("signingMaterial",
          (Option.map x.signingMaterial ~f:SigningMaterial.to_value));
        ("signatureValidityPeriod",
          (Option.map x.signatureValidityPeriod
             ~f:SignatureValidityPeriod.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("platformDisplayName",
          (Option.map x.platformDisplayName ~f:DisplayName.to_value));
        ("signingParameters",
          (Option.map x.signingParameters ~f:SigningParameters.to_value));
        ("status", (Option.map x.status ~f:SigningProfileStatus.to_value));
        ("arn", (Option.map x.arn ~f:String__lc1.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let arn = (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "arn") in
      let status =
        (Option.map ~f:SigningProfileStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let signingParameters =
        (Option.map ~f:SigningParameters.of_xml)
          (Xml.child xml_arg0 "signingParameters") in
      let platformDisplayName =
        (Option.map ~f:DisplayName.of_xml)
          (Xml.child xml_arg0 "platformDisplayName") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let signatureValidityPeriod =
        (Option.map ~f:SignatureValidityPeriod.of_xml)
          (Xml.child xml_arg0 "signatureValidityPeriod") in
      let signingMaterial =
        (Option.map ~f:SigningMaterial.of_xml)
          (Xml.child xml_arg0 "signingMaterial") in
      let profileVersionArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "profileVersionArn") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let profileName =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "profileName") in
      make ?tags ?arn ?status ?signingParameters ?platformDisplayName
        ?platformId ?signatureValidityPeriod ?signingMaterial
        ?profileVersionArn ?profileVersion ?profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let arn = field_map json__ "arn" String__lc1.of_json in
      let status = field_map json__ "status" SigningProfileStatus.of_json in
      let signingParameters =
        field_map json__ "signingParameters" SigningParameters.of_json in
      let platformDisplayName =
        field_map json__ "platformDisplayName" DisplayName.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let signatureValidityPeriod =
        field_map json__ "signatureValidityPeriod"
          SignatureValidityPeriod.of_json in
      let signingMaterial =
        field_map json__ "signingMaterial" SigningMaterial.of_json in
      let profileVersionArn =
        field_map json__ "profileVersionArn" Arn.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let profileName = field_map json__ "profileName" ProfileName.of_json in
      make ?tags ?arn ?status ?signingParameters ?platformDisplayName
        ?platformId ?signatureValidityPeriod ?signingMaterial
        ?profileVersionArn ?profileVersion ?profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the ACM certificates and signing configuration parameters that can be used by a given code signing user."]
module SigningPlatform =
  struct
    type nonrec t =
      {
      platformId: String_.t option
        [@ocaml.doc "The ID of a signing platform."];
      displayName: String_.t option
        [@ocaml.doc "The display name of a signing platform."];
      partner: String_.t option
        [@ocaml.doc "Any partner entities linked to a signing platform."];
      target: String_.t option
        [@ocaml.doc
          "The types of targets that can be signed by a signing platform."];
      category: Category.t option
        [@ocaml.doc "The category of a signing platform."];
      signingConfiguration: SigningConfiguration.t option
        [@ocaml.doc
          "The configuration of a signing platform. This includes the designated hash algorithm and encryption algorithm of a signing platform."];
      signingImageFormat: SigningImageFormat.t option ;
      maxSizeInMB: MaxSizeInMB.t option
        [@ocaml.doc
          "The maximum size (in MB) of code that can be signed by a signing platform."];
      revocationSupported: Bool_.t option
        [@ocaml.doc
          "Indicates whether revocation is supported for the platform."]}
    let make ?platformId =
      fun ?displayName ->
        fun ?partner ->
          fun ?target ->
            fun ?category ->
              fun ?signingConfiguration ->
                fun ?signingImageFormat ->
                  fun ?maxSizeInMB ->
                    fun ?revocationSupported ->
                      fun () ->
                        {
                          platformId;
                          displayName;
                          partner;
                          target;
                          category;
                          signingConfiguration;
                          signingImageFormat;
                          maxSizeInMB;
                          revocationSupported
                        }
    let to_value x =
      structure_to_value
        [("platformId", (Option.map x.platformId ~f:String_.to_value));
        ("displayName", (Option.map x.displayName ~f:String_.to_value));
        ("partner", (Option.map x.partner ~f:String_.to_value));
        ("target", (Option.map x.target ~f:String_.to_value));
        ("category", (Option.map x.category ~f:Category.to_value));
        ("signingConfiguration",
          (Option.map x.signingConfiguration ~f:SigningConfiguration.to_value));
        ("signingImageFormat",
          (Option.map x.signingImageFormat ~f:SigningImageFormat.to_value));
        ("maxSizeInMB", (Option.map x.maxSizeInMB ~f:MaxSizeInMB.to_value));
        ("revocationSupported",
          (Option.map x.revocationSupported ~f:Bool_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revocationSupported =
        (Option.map ~f:Bool_.of_xml)
          (Xml.child xml_arg0 "revocationSupported") in
      let maxSizeInMB =
        (Option.map ~f:MaxSizeInMB.of_xml) (Xml.child xml_arg0 "maxSizeInMB") in
      let signingImageFormat =
        (Option.map ~f:SigningImageFormat.of_xml)
          (Xml.child xml_arg0 "signingImageFormat") in
      let signingConfiguration =
        (Option.map ~f:SigningConfiguration.of_xml)
          (Xml.child xml_arg0 "signingConfiguration") in
      let category =
        (Option.map ~f:Category.of_xml) (Xml.child xml_arg0 "category") in
      let target =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "target") in
      let partner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "partner") in
      let displayName =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "displayName") in
      let platformId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "platformId") in
      make ?revocationSupported ?maxSizeInMB ?signingImageFormat
        ?signingConfiguration ?category ?target ?partner ?displayName
        ?platformId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revocationSupported =
        field_map json__ "revocationSupported" Bool_.of_json in
      let maxSizeInMB = field_map json__ "maxSizeInMB" MaxSizeInMB.of_json in
      let signingImageFormat =
        field_map json__ "signingImageFormat" SigningImageFormat.of_json in
      let signingConfiguration =
        field_map json__ "signingConfiguration" SigningConfiguration.of_json in
      let category = field_map json__ "category" Category.of_json in
      let target = field_map json__ "target" String_.of_json in
      let partner = field_map json__ "partner" String_.of_json in
      let displayName = field_map json__ "displayName" String_.of_json in
      let platformId = field_map json__ "platformId" String_.of_json in
      make ?revocationSupported ?maxSizeInMB ?signingImageFormat
        ?signingConfiguration ?category ?target ?partner ?displayName
        ?platformId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Contains information about the signing configurations and parameters that are used to perform a code-signing job."]
module SigningJob =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The ID of the signing job."];
      source: Source.t option
        [@ocaml.doc
          "A Source that contains information about a signing job's code image source."];
      signedObject: SignedObject.t option
        [@ocaml.doc
          "A SignedObject structure that contains information about a signing job's signed code image."];
      signingMaterial: SigningMaterial.t option
        [@ocaml.doc
          "A SigningMaterial object that contains the Amazon Resource Name (ARN) of the certificate used for the signing job."];
      createdAt: Timestamp.t option
        [@ocaml.doc "The date and time that the signing job was created."];
      status: SigningStatus.t option
        [@ocaml.doc "The status of the signing job."];
      isRevoked: Bool_.t option
        [@ocaml.doc "Indicates whether the signing job is revoked."];
      profileName: ProfileName.t option
        [@ocaml.doc
          "The name of the signing profile that created a signing job."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc
          "The version of the signing profile that created a signing job."];
      platformId: PlatformId.t option
        [@ocaml.doc "The unique identifier for a signing platform."];
      platformDisplayName: DisplayName.t option
        [@ocaml.doc "The name of a signing platform."];
      signatureExpiresAt: Timestamp.t option
        [@ocaml.doc "The time when the signature of a signing job expires."];
      jobOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the job owner."];
      jobInvoker: AccountId.t option
        [@ocaml.doc "The AWS account ID of the job invoker."]}
    let make ?jobId =
      fun ?source ->
        fun ?signedObject ->
          fun ?signingMaterial ->
            fun ?createdAt ->
              fun ?status ->
                fun ?isRevoked ->
                  fun ?profileName ->
                    fun ?profileVersion ->
                      fun ?platformId ->
                        fun ?platformDisplayName ->
                          fun ?signatureExpiresAt ->
                            fun ?jobOwner ->
                              fun ?jobInvoker ->
                                fun () ->
                                  {
                                    jobId;
                                    source;
                                    signedObject;
                                    signingMaterial;
                                    createdAt;
                                    status;
                                    isRevoked;
                                    profileName;
                                    profileVersion;
                                    platformId;
                                    platformDisplayName;
                                    signatureExpiresAt;
                                    jobOwner;
                                    jobInvoker
                                  }
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("signedObject",
          (Option.map x.signedObject ~f:SignedObject.to_value));
        ("signingMaterial",
          (Option.map x.signingMaterial ~f:SigningMaterial.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("status", (Option.map x.status ~f:SigningStatus.to_value));
        ("isRevoked", (Option.map x.isRevoked ~f:Bool_.to_value));
        ("profileName", (Option.map x.profileName ~f:ProfileName.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("platformDisplayName",
          (Option.map x.platformDisplayName ~f:DisplayName.to_value));
        ("signatureExpiresAt",
          (Option.map x.signatureExpiresAt ~f:Timestamp.to_value));
        ("jobOwner", (Option.map x.jobOwner ~f:AccountId.to_value));
        ("jobInvoker", (Option.map x.jobInvoker ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobInvoker =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobInvoker") in
      let jobOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobOwner") in
      let signatureExpiresAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "signatureExpiresAt") in
      let platformDisplayName =
        (Option.map ~f:DisplayName.of_xml)
          (Xml.child xml_arg0 "platformDisplayName") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let profileName =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "profileName") in
      let isRevoked =
        (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "isRevoked") in
      let status =
        (Option.map ~f:SigningStatus.of_xml) (Xml.child xml_arg0 "status") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let signingMaterial =
        (Option.map ~f:SigningMaterial.of_xml)
          (Xml.child xml_arg0 "signingMaterial") in
      let signedObject =
        (Option.map ~f:SignedObject.of_xml)
          (Xml.child xml_arg0 "signedObject") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?jobInvoker ?jobOwner ?signatureExpiresAt ?platformDisplayName
        ?platformId ?profileVersion ?profileName ?isRevoked ?status
        ?createdAt ?signingMaterial ?signedObject ?source ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobInvoker = field_map json__ "jobInvoker" AccountId.of_json in
      let jobOwner = field_map json__ "jobOwner" AccountId.of_json in
      let signatureExpiresAt =
        field_map json__ "signatureExpiresAt" Timestamp.of_json in
      let platformDisplayName =
        field_map json__ "platformDisplayName" DisplayName.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let profileName = field_map json__ "profileName" ProfileName.of_json in
      let isRevoked = field_map json__ "isRevoked" Bool_.of_json in
      let status = field_map json__ "status" SigningStatus.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let signingMaterial =
        field_map json__ "signingMaterial" SigningMaterial.of_json in
      let signedObject = field_map json__ "signedObject" SignedObject.of_json in
      let source = field_map json__ "source" Source.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      make ?jobInvoker ?jobOwner ?signatureExpiresAt ?platformDisplayName
        ?platformId ?profileVersion ?profileName ?isRevoked ?status
        ?createdAt ?signingMaterial ?signedObject ?source ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Contains information about a signing job."]
module Permission =
  struct
    type nonrec t =
      {
      action: String_.t option
        [@ocaml.doc
          "An AWS Signer action permitted as part of cross-account permissions."];
      principal: String_.t option
        [@ocaml.doc
          "The AWS principal that has been granted a cross-account permission."];
      statementId: String_.t option
        [@ocaml.doc
          "A unique identifier for a cross-account permission statement."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc
          "The signing profile version that a permission applies to."]}
    let make ?action =
      fun ?principal ->
        fun ?statementId ->
          fun ?profileVersion ->
            fun () -> { action; principal; statementId; profileVersion }
    let to_value x =
      structure_to_value
        [("action", (Option.map x.action ~f:String_.to_value));
        ("principal", (Option.map x.principal ~f:String_.to_value));
        ("statementId", (Option.map x.statementId ~f:String_.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let statementId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statementId") in
      let principal =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "principal") in
      let action =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "action") in
      make ?profileVersion ?statementId ?principal ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let statementId = field_map json__ "statementId" String_.of_json in
      let principal = field_map json__ "principal" String_.of_json in
      let action = field_map json__ "action" String_.of_json in
      make ?profileVersion ?statementId ?principal ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A cross-account permission for a signing profile."]
module BadRequestException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request contains invalid parameters for the ARN or tags. This exception also occurs when you call a tagging API on a cancelled signing profile."]
module InternalServiceErrorException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An internal error occurred."]
module NotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The signing profile was not found."]
module TooManyRequestsException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The allowed number of job-signing requests has been exceeded. This error supersedes the error ThrottlingException."]
module TagKeyList =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeyList" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A specified resource could not be found."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was denied due to request throttling. Instead of this error, TooManyRequestsException should be used."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "You signing certificate could not be validated."]
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 Destination =
  struct
    type nonrec t =
      {
      s3: S3Destination.t option [@ocaml.doc "The S3Destination object."]}
    let make ?s3 = fun () -> { s3 }
    let to_value x =
      structure_to_value
        [("s3", (Option.map x.s3 ~f:S3Destination.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3 = (Option.map ~f:S3Destination.of_xml) (Xml.child xml_arg0 "s3") in
      make ?s3 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3 = field_map json__ "s3" S3Destination.of_json in make ?s3 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Points to an S3Destination object that contains information about your S3 bucket."]
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 Metadata =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Payload =
  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 RevocationReasonString =
  struct
    type nonrec t = string
    let context_ = "RevocationReasonString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (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:"RevocationReasonString" j
    let to_json = simple_to_json to_value
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource encountered a conflicting state."]
module SigningPlatformOverrides =
  struct
    type nonrec t =
      {
      signingConfiguration: SigningConfigurationOverrides.t option
        [@ocaml.doc
          "A signing configuration that overrides the default encryption or hash algorithm of a signing job."];
      signingImageFormat: ImageFormat.t option
        [@ocaml.doc
          "A signed image is a JSON object. When overriding the default signing platform configuration, a customer can select either of two signing formats, JSONEmbedded or JSONDetached. (A third format value, JSON, is reserved for future use.) With JSONEmbedded, the signing image has the payload embedded in it. With JSONDetached, the payload is not be embedded in the signing image."]}
    let make ?signingConfiguration =
      fun ?signingImageFormat ->
        fun () -> { signingConfiguration; signingImageFormat }
    let to_value x =
      structure_to_value
        [("signingConfiguration",
           (Option.map x.signingConfiguration
              ~f:SigningConfigurationOverrides.to_value));
        ("signingImageFormat",
          (Option.map x.signingImageFormat ~f:ImageFormat.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signingImageFormat =
        (Option.map ~f:ImageFormat.of_xml)
          (Xml.child xml_arg0 "signingImageFormat") in
      let signingConfiguration =
        (Option.map ~f:SigningConfigurationOverrides.of_xml)
          (Xml.child xml_arg0 "signingConfiguration") in
      make ?signingImageFormat ?signingConfiguration ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signingImageFormat =
        field_map json__ "signingImageFormat" ImageFormat.of_json in
      let signingConfiguration =
        field_map json__ "signingConfiguration"
          SigningConfigurationOverrides.of_json in
      make ?signingImageFormat ?signingConfiguration ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Any overrides that are applied to the signing configuration of a signing platform."]
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 SigningProfiles =
  struct
    type nonrec t = SigningProfile.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:SigningProfile.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:SigningProfile.of_xml)
    let of_json j =
      list_of_json ~kind:"SigningProfiles" ~of_json:SigningProfile.of_json j
    let to_json v = composed_to_json to_value v
  end
module MaxResults =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:25) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for MaxResults" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Statuses =
  struct
    type nonrec t = SigningProfileStatus.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:SigningProfileStatus.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:SigningProfileStatus.of_xml)
    let of_json j =
      list_of_json ~kind:"Statuses" ~of_json:SigningProfileStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module SigningPlatforms =
  struct
    type nonrec t = SigningPlatform.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:SigningPlatform.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:SigningPlatform.of_xml)
    let of_json j =
      list_of_json ~kind:"SigningPlatforms" ~of_json:SigningPlatform.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module SigningJobs =
  struct
    type nonrec t = SigningJob.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:SigningJob.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:SigningJob.of_xml)
    let of_json j =
      list_of_json ~kind:"SigningJobs" ~of_json:SigningJob.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequestedBy =
  struct
    type nonrec t = string
    let context_ = "RequestedBy"
    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:"RequestedBy" j
    let to_json = simple_to_json to_value
  end
module Permissions =
  struct
    type nonrec t = Permission.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:Permission.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:Permission.of_xml)
    let of_json j =
      list_of_json ~kind:"Permissions" ~of_json:Permission.of_json j
    let to_json v = composed_to_json to_value v
  end
module PolicySizeBytes =
  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 PolicySizeBytes" 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 SigningProfileRevocationRecord =
  struct
    type nonrec t =
      {
      revocationEffectiveFrom: Timestamp.t option
        [@ocaml.doc "The time when revocation becomes effective."];
      revokedAt: Timestamp.t option
        [@ocaml.doc "The time when the signing profile was revoked."];
      revokedBy: String_.t option [@ocaml.doc "The identity of the revoker."]}
    let make ?revocationEffectiveFrom =
      fun ?revokedAt ->
        fun ?revokedBy ->
          fun () -> { revocationEffectiveFrom; revokedAt; revokedBy }
    let to_value x =
      structure_to_value
        [("revocationEffectiveFrom",
           (Option.map x.revocationEffectiveFrom ~f:Timestamp.to_value));
        ("revokedAt", (Option.map x.revokedAt ~f:Timestamp.to_value));
        ("revokedBy", (Option.map x.revokedBy ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revokedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revokedBy") in
      let revokedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "revokedAt") in
      let revocationEffectiveFrom =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "revocationEffectiveFrom") in
      make ?revokedBy ?revokedAt ?revocationEffectiveFrom ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revokedBy = field_map json__ "revokedBy" String_.of_json in
      let revokedAt = field_map json__ "revokedAt" Timestamp.of_json in
      let revocationEffectiveFrom =
        field_map json__ "revocationEffectiveFrom" Timestamp.of_json in
      make ?revokedBy ?revokedAt ?revocationEffectiveFrom ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Revocation information for a signing profile."]
module RevokedEntities =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"RevokedEntities" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module CertificateHashes =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"CertificateHashes" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module SigningJobRevocationRecord =
  struct
    type nonrec t =
      {
      reason: String_.t option
        [@ocaml.doc "A caller-supplied reason for revocation."];
      revokedAt: Timestamp.t option [@ocaml.doc "The time of revocation."];
      revokedBy: String_.t option [@ocaml.doc "The identity of the revoker."]}
    let make ?reason =
      fun ?revokedAt ->
        fun ?revokedBy -> fun () -> { reason; revokedAt; revokedBy }
    let to_value x =
      structure_to_value
        [("reason", (Option.map x.reason ~f:String_.to_value));
        ("revokedAt", (Option.map x.revokedAt ~f:Timestamp.to_value));
        ("revokedBy", (Option.map x.revokedBy ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revokedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revokedBy") in
      let revokedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "revokedAt") in
      let reason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "reason") in
      make ?revokedBy ?revokedAt ?reason ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revokedBy = field_map json__ "revokedBy" String_.of_json in
      let revokedAt = field_map json__ "revokedAt" Timestamp.of_json in
      let reason = field_map json__ "reason" String_.of_json in
      make ?revokedBy ?revokedAt ?reason ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Revocation information for a signing job."]
module StatusReason =
  struct
    type nonrec t = string
    let context_ = "StatusReason"
    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:"StatusReason" j
    let to_json = simple_to_json to_value
  end
module ServiceLimitExceededException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      code: ErrorCode.t option }
    let make ?message = fun ?code -> fun () -> { message; code }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("code", (Option.map x.code ~f:ErrorCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let code = (Option.map ~f:ErrorCode.of_xml) (Xml.child xml_arg0 "code") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?code ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let code = field_map json__ "code" ErrorCode.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?code ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is making a request that exceeds service limits."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a signing profile. To remove the tags, specify a list of tag keys."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the signing profile."];
      tagKeys: TagKeyList.t
        [@ocaml.doc
          "A list of tag keys to be removed from the signing profile."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceArn =
      fun ~tagKeys -> fun () -> { resourceArn; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tagKeys", (Some (TagKeyList.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeyList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tagKeys ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeyList.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tagKeys ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a signing profile. To remove the tags, specify a list of tag keys."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more tags to a signing profile. Tags are labels that you can use to identify and organize your AWS resources. Each tag consists of a key and an optional value. To specify the signing profile, use its Amazon Resource Name (ARN). To specify the tag, use a key-value pair."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the signing profile."];
      tags: TagMap.t
        [@ocaml.doc
          "One or more tags to be associated with the signing profile."]}
    let context_ = "TagResourceRequest"
    let make ~resourceArn = fun ~tags -> fun () -> { resourceArn; tags }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)));
        ("tags", (Some (TagMap.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        TagMap.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~tags ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" TagMap.of_json in
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~tags ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more tags to a signing profile. Tags are labels that you can use to identify and organize your AWS resources. Each tag consists of a key and an optional value. To specify the signing profile, use its Amazon Resource Name (ARN). To specify the tag, use a key-value pair."]
module StartSigningJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option [@ocaml.doc "The ID of your signing job."];
      jobOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the signing job owner."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId = fun ?jobOwner -> fun () -> { jobId; jobOwner }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("jobOwner", (Option.map x.jobOwner ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobOwner") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?jobOwner ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobOwner = field_map json__ "jobOwner" AccountId.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      make ?jobOwner ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a signing job to be performed on the code provided. Signing jobs are viewable by the ListSigningJobs operation. Note the following requirements: You must create an Amazon S3 source bucket. For more information, see Creating a Bucket in the Amazon S3 Getting Started Guide. Your S3 source bucket must be version enabled. You must create an S3 destination bucket. AWS Signer uses your S3 destination bucket to write your signed code. You specify the name of the source and destination buckets when calling the StartSigningJob operation. You must ensure the S3 buckets are from the same Region as the signing profile. Cross-Region signing isn't supported. You must also specify a request token that identifies your request to Signer. You can call the DescribeSigningJob and the ListSigningJobs actions after you call StartSigningJob. For a Java example that shows how to use this action, see StartSigningJob."]
module StartSigningJobRequest =
  struct
    type nonrec t =
      {
      source: Source.t
        [@ocaml.doc
          "The S3 bucket that contains the object to sign or a BLOB that contains your raw code."];
      destination: Destination.t
        [@ocaml.doc
          "The S3 bucket in which to save your signed object. The destination contains the name of your bucket and an optional prefix."];
      profileName: ProfileName.t
        [@ocaml.doc "The name of the signing profile."];
      clientRequestToken: ClientRequestToken.t
        [@ocaml.doc
          "String that identifies the signing request. All calls after the first that use this token return the same response as the first call."];
      profileOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the signing profile owner."]}
    let context_ = "StartSigningJobRequest"
    let make ?profileOwner =
      fun ~source ->
        fun ~destination ->
          fun ~profileName ->
            fun ~clientRequestToken ->
              fun () ->
                {
                  profileOwner;
                  source;
                  destination;
                  profileName;
                  clientRequestToken
                }
    let to_value x =
      structure_to_value
        [("source", (Some (Source.to_value x.source)));
        ("destination", (Some (Destination.to_value x.destination)));
        ("profileName", (Some (ProfileName.to_value x.profileName)));
        ("clientRequestToken",
          (Some (ClientRequestToken.to_value x.clientRequestToken)));
        ("profileOwner", (Option.map x.profileOwner ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "profileOwner") in
      let clientRequestToken =
        ClientRequestToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "clientRequestToken") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      let destination =
        Destination.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destination") in
      let source =
        Source.of_xml (Xml.child_exn ~context:context_ xml_arg0 "source") in
      make ?profileOwner ~clientRequestToken ~profileName ~destination
        ~source ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileOwner = field_map json__ "profileOwner" AccountId.of_json in
      let clientRequestToken =
        field_map_exn json__ "clientRequestToken" ClientRequestToken.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      let destination =
        field_map_exn json__ "destination" Destination.of_json in
      let source = field_map_exn json__ "source" Source.of_json in
      make ?profileOwner ~clientRequestToken ~profileName ~destination
        ~source ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Initiates a signing job to be performed on the code provided. Signing jobs are viewable by the ListSigningJobs operation. Note the following requirements: You must create an Amazon S3 source bucket. For more information, see Creating a Bucket in the Amazon S3 Getting Started Guide. Your S3 source bucket must be version enabled. You must create an S3 destination bucket. AWS Signer uses your S3 destination bucket to write your signed code. You specify the name of the source and destination buckets when calling the StartSigningJob operation. You must ensure the S3 buckets are from the same Region as the signing profile. Cross-Region signing isn't supported. You must also specify a request token that identifies your request to Signer. You can call the DescribeSigningJob and the ListSigningJobs actions after you call StartSigningJob. For a Java example that shows how to use this action, see StartSigningJob."]
module SignPayloadResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "Unique identifier of the signing job."];
      jobOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the job owner."];
      metadata: Metadata.t option
        [@ocaml.doc
          "Information including the signing profile ARN and the signing job ID."];
      signature: Blob.t option [@ocaml.doc "A cryptographic signature."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?jobOwner ->
        fun ?metadata ->
          fun ?signature ->
            fun () -> { jobId; jobOwner; metadata; signature }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("jobOwner", (Option.map x.jobOwner ~f:AccountId.to_value));
        ("metadata", (Option.map x.metadata ~f:Metadata.to_value));
        ("signature", (Option.map x.signature ~f:Blob.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signature =
        (Option.map ~f:Blob.of_xml) (Xml.child xml_arg0 "signature") in
      let metadata =
        (Option.map ~f:Metadata.of_xml) (Xml.child xml_arg0 "metadata") in
      let jobOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobOwner") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?signature ?metadata ?jobOwner ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signature = field_map json__ "signature" Blob.of_json in
      let metadata = field_map json__ "metadata" Metadata.of_json in
      let jobOwner = field_map json__ "jobOwner" AccountId.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      make ?signature ?metadata ?jobOwner ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Signs a binary payload and returns a signature envelope."]
module SignPayloadRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The name of the signing profile."];
      profileOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the profile owner."];
      payload: Payload.t
        [@ocaml.doc "Specifies the object digest (hash) to sign."];
      payloadFormat: String_.t
        [@ocaml.doc
          "Payload content type. The single valid type is application/vnd.cncf.notary.payload.v1+json."]}
    let context_ = "SignPayloadRequest"
    let make ?profileOwner =
      fun ~profileName ->
        fun ~payload ->
          fun ~payloadFormat ->
            fun () -> { profileOwner; profileName; payload; payloadFormat }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("profileOwner", (Option.map x.profileOwner ~f:AccountId.to_value));
        ("payload", (Some (Payload.to_value x.payload)));
        ("payloadFormat", (Some (String_.to_value x.payloadFormat)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let payloadFormat =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "payloadFormat") in
      let payload =
        Payload.of_xml (Xml.child_exn ~context:context_ xml_arg0 "payload") in
      let profileOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "profileOwner") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ~payloadFormat ~payload ?profileOwner ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let payloadFormat =
        field_map_exn json__ "payloadFormat" String_.of_json in
      let payload = field_map_exn json__ "payload" Payload.of_json in
      let profileOwner = field_map json__ "profileOwner" AccountId.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ~payloadFormat ~payload ?profileOwner ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Signs a binary payload and returns a signature envelope."]
module RevokeSigningProfileRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The name of the signing profile to be revoked."];
      profileVersion: ProfileVersion.t
        [@ocaml.doc "The version of the signing profile to be revoked."];
      reason: RevocationReasonString.t
        [@ocaml.doc "The reason for revoking a signing profile."];
      effectiveTime: Timestamp.t
        [@ocaml.doc
          "A timestamp for when revocation of a Signing Profile should become effective. Signatures generated using the signing profile after this timestamp are not trusted."]}
    let context_ = "RevokeSigningProfileRequest"
    let make ~profileName =
      fun ~profileVersion ->
        fun ~reason ->
          fun ~effectiveTime ->
            fun () -> { profileName; profileVersion; reason; effectiveTime }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("profileVersion", (Some (ProfileVersion.to_value x.profileVersion)));
        ("reason", (Some (RevocationReasonString.to_value x.reason)));
        ("effectiveTime", (Some (Timestamp.to_value x.effectiveTime)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let effectiveTime =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "effectiveTime") in
      let reason =
        RevocationReasonString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reason") in
      let profileVersion =
        ProfileVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileVersion") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ~effectiveTime ~reason ~profileVersion ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let effectiveTime =
        field_map_exn json__ "effectiveTime" Timestamp.of_json in
      let reason =
        field_map_exn json__ "reason" RevocationReasonString.of_json in
      let profileVersion =
        field_map_exn json__ "profileVersion" ProfileVersion.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ~effectiveTime ~reason ~profileVersion ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the state of a signing profile to REVOKED. This indicates that signatures generated using the signing profile after an effective start date are no longer valid. A revoked profile is still viewable with the ListSigningProfiles operation, but it cannot perform new signing jobs. See Data Retention for more information on scheduled deletion of a revoked signing profile."]
module RevokeSignatureRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t [@ocaml.doc "ID of the signing job to be revoked."];
      jobOwner: AccountId.t option
        [@ocaml.doc "AWS account ID of the job owner."];
      reason: RevocationReasonString.t
        [@ocaml.doc "The reason for revoking the signing job."]}
    let context_ = "RevokeSignatureRequest"
    let make ?jobOwner =
      fun ~jobId -> fun ~reason -> fun () -> { jobOwner; jobId; reason }
    let to_value x =
      structure_to_value
        [("jobId", (Some (JobId.to_value x.jobId)));
        ("jobOwner", (Option.map x.jobOwner ~f:AccountId.to_value));
        ("reason", (Some (RevocationReasonString.to_value x.reason)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        RevocationReasonString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "reason") in
      let jobOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobOwner") in
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~reason ?jobOwner ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason =
        field_map_exn json__ "reason" RevocationReasonString.of_json in
      let jobOwner = field_map json__ "jobOwner" AccountId.of_json in
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      make ~reason ?jobOwner ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the state of a signing job to REVOKED. This indicates that the signature is no longer valid."]
module RemoveProfilePermissionResponse =
  struct
    type nonrec t =
      {
      revisionId: String_.t option
        [@ocaml.doc
          "An identifier for the current revision of the profile permissions."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?revisionId = fun () -> { revisionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" String_.of_json in
      make ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes cross-account permissions from a signing profile."]
module RemoveProfilePermissionRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc
          "A human-readable name for the signing profile with permissions to be removed."];
      revisionId: String_.t
        [@ocaml.doc
          "An identifier for the current revision of the signing profile permissions."];
      statementId: String_.t
        [@ocaml.doc
          "A unique identifier for the cross-account permissions statement."]}
    let context_ = "RemoveProfilePermissionRequest"
    let make ~profileName =
      fun ~revisionId ->
        fun ~statementId ->
          fun () -> { profileName; revisionId; statementId }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("revisionId", (Some (String_.to_value x.revisionId)));
        ("statementId", (Some (String_.to_value x.statementId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statementId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "statementId") in
      let revisionId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "revisionId") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ~statementId ~revisionId ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statementId = field_map_exn json__ "statementId" String_.of_json in
      let revisionId = field_map_exn json__ "revisionId" String_.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ~statementId ~revisionId ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes cross-account permissions from a signing profile."]
module PutSigningProfileResponse =
  struct
    type nonrec t =
      {
      arn: String__lc1.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the signing profile created."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc "The version of the signing profile being created."];
      profileVersionArn: Arn.t option
        [@ocaml.doc
          "The signing profile ARN, including the profile version."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?arn =
      fun ?profileVersion ->
        fun ?profileVersionArn ->
          fun () -> { arn; profileVersion; profileVersionArn }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("arn", (Option.map x.arn ~f:String__lc1.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("profileVersionArn",
          (Option.map x.profileVersionArn ~f:Arn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileVersionArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "profileVersionArn") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let arn = (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "arn") in
      make ?profileVersionArn ?profileVersion ?arn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileVersionArn =
        field_map json__ "profileVersionArn" Arn.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let arn = field_map json__ "arn" String__lc1.of_json in
      make ?profileVersionArn ?profileVersion ?arn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a signing profile. A signing profile is a code-signing template that can be used to carry out a pre-defined signing job."]
module PutSigningProfileRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The name of the signing profile to be created."];
      signingMaterial: SigningMaterial.t option
        [@ocaml.doc
          "The AWS Certificate Manager certificate that will be used to sign code with the new signing profile."];
      signatureValidityPeriod: SignatureValidityPeriod.t option
        [@ocaml.doc
          "The default validity period override for any signature generated using this signing profile. If unspecified, the default is 135 months."];
      platformId: PlatformId.t
        [@ocaml.doc "The ID of the signing platform to be created."];
      overrides: SigningPlatformOverrides.t option
        [@ocaml.doc
          "A subfield of platform. This specifies any different configuration options that you want to apply to the chosen platform (such as a different hash-algorithm or signing-algorithm)."];
      signingParameters: SigningParameters.t option
        [@ocaml.doc
          "Map of key-value pairs for signing. These can include any information that you want to use during signing."];
      tags: TagMap.t option
        [@ocaml.doc
          "Tags to be associated with the signing profile that is being created."]}
    let context_ = "PutSigningProfileRequest"
    let make ?signingMaterial =
      fun ?signatureValidityPeriod ->
        fun ?overrides ->
          fun ?signingParameters ->
            fun ?tags ->
              fun ~profileName ->
                fun ~platformId ->
                  fun () ->
                    {
                      signingMaterial;
                      signatureValidityPeriod;
                      overrides;
                      signingParameters;
                      tags;
                      profileName;
                      platformId
                    }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("signingMaterial",
          (Option.map x.signingMaterial ~f:SigningMaterial.to_value));
        ("signatureValidityPeriod",
          (Option.map x.signatureValidityPeriod
             ~f:SignatureValidityPeriod.to_value));
        ("platformId", (Some (PlatformId.to_value x.platformId)));
        ("overrides",
          (Option.map x.overrides ~f:SigningPlatformOverrides.to_value));
        ("signingParameters",
          (Option.map x.signingParameters ~f:SigningParameters.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let signingParameters =
        (Option.map ~f:SigningParameters.of_xml)
          (Xml.child xml_arg0 "signingParameters") in
      let overrides =
        (Option.map ~f:SigningPlatformOverrides.of_xml)
          (Xml.child xml_arg0 "overrides") in
      let platformId =
        PlatformId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "platformId") in
      let signatureValidityPeriod =
        (Option.map ~f:SignatureValidityPeriod.of_xml)
          (Xml.child xml_arg0 "signatureValidityPeriod") in
      let signingMaterial =
        (Option.map ~f:SigningMaterial.of_xml)
          (Xml.child xml_arg0 "signingMaterial") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ?tags ?signingParameters ?overrides ~platformId
        ?signatureValidityPeriod ?signingMaterial ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let signingParameters =
        field_map json__ "signingParameters" SigningParameters.of_json in
      let overrides =
        field_map json__ "overrides" SigningPlatformOverrides.of_json in
      let platformId = field_map_exn json__ "platformId" PlatformId.of_json in
      let signatureValidityPeriod =
        field_map json__ "signatureValidityPeriod"
          SignatureValidityPeriod.of_json in
      let signingMaterial =
        field_map json__ "signingMaterial" SigningMaterial.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ?tags ?signingParameters ?overrides ~platformId
        ?signatureValidityPeriod ?signingMaterial ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a signing profile. A signing profile is a code-signing template that can be used to carry out a pre-defined signing job."]
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: TagMap.t option
        [@ocaml.doc "A list of tags associated with the signing profile."]}
    type nonrec error =
      [ `BadRequestException of BadRequestException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `NotFoundException of NotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "BadRequestException" ->
          `BadRequestException (BadRequestException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "NotFoundException" ->
          `NotFoundException (NotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `BadRequestException e ->
          `Assoc
            [("error", (`String "BadRequestException"));
            ("details", (BadRequestException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `NotFoundException e ->
          `Assoc
            [("error", (`String "NotFoundException"));
            ("details", (NotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags associated with a signing profile resource."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceArn: String_.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the signing profile."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceArn = fun () -> { resourceArn }
    let to_value x =
      structure_to_value
        [("resourceArn", (Some (String_.to_value x.resourceArn)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceArn =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceArn") in
      make ~resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceArn = field_map_exn json__ "resourceArn" String_.of_json in
      make ~resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns a list of the tags associated with a signing profile resource."]
module ListSigningProfilesResponse =
  struct
    type nonrec t =
      {
      profiles: SigningProfiles.t option
        [@ocaml.doc
          "A list of profiles that are available in the AWS account. This includes profiles with the status of CANCELED if the includeCanceled parameter is set to true."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Value for specifying the next set of paginated results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profiles = fun ?nextToken -> fun () -> { profiles; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("profiles", (Option.map x.profiles ~f:SigningProfiles.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 profiles =
        (Option.map ~f:SigningProfiles.of_xml)
          (Xml.child xml_arg0 "profiles") in
      make ?nextToken ?profiles ()
    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 profiles = field_map json__ "profiles" SigningProfiles.of_json in
      make ?nextToken ?profiles ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all available signing profiles in your AWS account. Returns only profiles with an ACTIVE status unless the includeCanceled request field is set to true. If additional jobs remain to be listed, AWS Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListSigningProfilesRequest =
  struct
    type nonrec t =
      {
      includeCanceled: Bool_.t option
        [@ocaml.doc
          "Designates whether to include profiles with the status of CANCELED."];
      maxResults: MaxResults.t option
        [@ocaml.doc "The maximum number of profiles to be returned."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "Value for specifying the next set of paginated results to return. After you receive a response with truncated results, use this parameter in a subsequent request. Set it to the value of nextToken from the response that you just received."];
      platformId: PlatformId.t option
        [@ocaml.doc
          "Filters results to return only signing jobs initiated for a specified signing platform."];
      statuses: Statuses.t option
        [@ocaml.doc
          "Filters results to return only signing jobs with statuses in the specified list."]}
    let make ?includeCanceled =
      fun ?maxResults ->
        fun ?nextToken ->
          fun ?platformId ->
            fun ?statuses ->
              fun () ->
                {
                  includeCanceled;
                  maxResults;
                  nextToken;
                  platformId;
                  statuses
                }
    let to_value x =
      structure_to_value
        [("includeCanceled",
           (Option.map x.includeCanceled ~f:Bool_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("statuses", (Option.map x.statuses ~f:Statuses.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statuses =
        (Option.map ~f:Statuses.of_xml) (Xml.child xml_arg0 "statuses") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let includeCanceled =
        (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "includeCanceled") in
      make ?statuses ?platformId ?nextToken ?maxResults ?includeCanceled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statuses = field_map json__ "statuses" Statuses.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let includeCanceled = field_map json__ "includeCanceled" Bool_.of_json in
      make ?statuses ?platformId ?nextToken ?maxResults ?includeCanceled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all available signing profiles in your AWS account. Returns only profiles with an ACTIVE status unless the includeCanceled request field is set to true. If additional jobs remain to be listed, AWS Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListSigningPlatformsResponse =
  struct
    type nonrec t =
      {
      platforms: SigningPlatforms.t option
        [@ocaml.doc
          "A list of all platforms that match the request parameters."];
      nextToken: String_.t option
        [@ocaml.doc
          "Value for specifying the next set of paginated results to return."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?platforms =
      fun ?nextToken -> fun () -> { platforms; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("platforms", (Option.map x.platforms ~f:SigningPlatforms.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let platforms =
        (Option.map ~f:SigningPlatforms.of_xml)
          (Xml.child xml_arg0 "platforms") in
      make ?nextToken ?platforms ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let platforms = field_map json__ "platforms" SigningPlatforms.of_json in
      make ?nextToken ?platforms ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all signing platforms available in AWS Signer that match the request parameters. If additional jobs remain to be listed, Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListSigningPlatformsRequest =
  struct
    type nonrec t =
      {
      category: String_.t option
        [@ocaml.doc "The category type of a signing platform."];
      partner: String_.t option
        [@ocaml.doc "Any partner entities connected to a signing platform."];
      target: String_.t option
        [@ocaml.doc
          "The validation template that is used by the target signing platform."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "The maximum number of results to be returned by this operation."];
      nextToken: String_.t option
        [@ocaml.doc
          "Value for specifying the next set of paginated results to return. After you receive a response with truncated results, use this parameter in a subsequent request. Set it to the value of nextToken from the response that you just received."]}
    let make ?category =
      fun ?partner ->
        fun ?target ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun () -> { category; partner; target; maxResults; nextToken }
    let to_value x =
      structure_to_value
        [("category", (Option.map x.category ~f:String_.to_value));
        ("partner", (Option.map x.partner ~f:String_.to_value));
        ("target", (Option.map x.target ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let target =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "target") in
      let partner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "partner") in
      let category =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "category") in
      make ?nextToken ?maxResults ?target ?partner ?category ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let target = field_map json__ "target" String_.of_json in
      let partner = field_map json__ "partner" String_.of_json in
      let category = field_map json__ "category" String_.of_json in
      make ?nextToken ?maxResults ?target ?partner ?category ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all signing platforms available in AWS Signer that match the request parameters. If additional jobs remain to be listed, Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListSigningJobsResponse =
  struct
    type nonrec t =
      {
      jobs: SigningJobs.t option [@ocaml.doc "A list of your signing jobs."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "String for specifying the next set of paginated results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobs = fun ?nextToken -> fun () -> { jobs; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobs", (Option.map x.jobs ~f:SigningJobs.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 jobs =
        (Option.map ~f:SigningJobs.of_xml) (Xml.child xml_arg0 "jobs") in
      make ?nextToken ?jobs ()
    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 jobs = field_map json__ "jobs" SigningJobs.of_json in
      make ?nextToken ?jobs ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all your signing jobs. You can use the maxResults parameter to limit the number of signing jobs that are returned in the response. If additional jobs remain to be listed, AWS Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListSigningJobsRequest =
  struct
    type nonrec t =
      {
      status: SigningStatus.t option
        [@ocaml.doc "A status value with which to filter your results."];
      platformId: PlatformId.t option
        [@ocaml.doc
          "The ID of microcontroller platform that you specified for the distribution of your code image."];
      requestedBy: RequestedBy.t option
        [@ocaml.doc "The IAM principal that requested the signing job."];
      maxResults: MaxResults.t option
        [@ocaml.doc
          "Specifies the maximum number of items to return in the response. Use this parameter when paginating results. If additional items exist beyond the number you specify, the nextToken element is set in the response. Use the nextToken value in a subsequent request to retrieve additional items."];
      nextToken: NextToken.t option
        [@ocaml.doc
          "String for specifying the next set of paginated results to return. After you receive a response with truncated results, use this parameter in a subsequent request. Set it to the value of nextToken from the response that you just received."];
      isRevoked: Bool_.t option
        [@ocaml.doc
          "Filters results to return only signing jobs with revoked signatures."];
      signatureExpiresBefore: Timestamp.t option
        [@ocaml.doc
          "Filters results to return only signing jobs with signatures expiring before a specified timestamp."];
      signatureExpiresAfter: Timestamp.t option
        [@ocaml.doc
          "Filters results to return only signing jobs with signatures expiring after a specified timestamp."];
      jobInvoker: AccountId.t option
        [@ocaml.doc
          "Filters results to return only signing jobs initiated by a specified IAM entity."]}
    let make ?status =
      fun ?platformId ->
        fun ?requestedBy ->
          fun ?maxResults ->
            fun ?nextToken ->
              fun ?isRevoked ->
                fun ?signatureExpiresBefore ->
                  fun ?signatureExpiresAfter ->
                    fun ?jobInvoker ->
                      fun () ->
                        {
                          status;
                          platformId;
                          requestedBy;
                          maxResults;
                          nextToken;
                          isRevoked;
                          signatureExpiresBefore;
                          signatureExpiresAfter;
                          jobInvoker
                        }
    let to_value x =
      structure_to_value
        [("status", (Option.map x.status ~f:SigningStatus.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("requestedBy", (Option.map x.requestedBy ~f:RequestedBy.to_value));
        ("maxResults", (Option.map x.maxResults ~f:MaxResults.to_value));
        ("nextToken", (Option.map x.nextToken ~f:NextToken.to_value));
        ("isRevoked", (Option.map x.isRevoked ~f:Bool_.to_value));
        ("signatureExpiresBefore",
          (Option.map x.signatureExpiresBefore ~f:Timestamp.to_value));
        ("signatureExpiresAfter",
          (Option.map x.signatureExpiresAfter ~f:Timestamp.to_value));
        ("jobInvoker", (Option.map x.jobInvoker ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobInvoker =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobInvoker") in
      let signatureExpiresAfter =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "signatureExpiresAfter") in
      let signatureExpiresBefore =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "signatureExpiresBefore") in
      let isRevoked =
        (Option.map ~f:Bool_.of_xml) (Xml.child xml_arg0 "isRevoked") in
      let nextToken =
        (Option.map ~f:NextToken.of_xml) (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:MaxResults.of_xml) (Xml.child xml_arg0 "maxResults") in
      let requestedBy =
        (Option.map ~f:RequestedBy.of_xml) (Xml.child xml_arg0 "requestedBy") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let status =
        (Option.map ~f:SigningStatus.of_xml) (Xml.child xml_arg0 "status") in
      make ?jobInvoker ?signatureExpiresAfter ?signatureExpiresBefore
        ?isRevoked ?nextToken ?maxResults ?requestedBy ?platformId ?status ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobInvoker = field_map json__ "jobInvoker" AccountId.of_json in
      let signatureExpiresAfter =
        field_map json__ "signatureExpiresAfter" Timestamp.of_json in
      let signatureExpiresBefore =
        field_map json__ "signatureExpiresBefore" Timestamp.of_json in
      let isRevoked = field_map json__ "isRevoked" Bool_.of_json in
      let nextToken = field_map json__ "nextToken" NextToken.of_json in
      let maxResults = field_map json__ "maxResults" MaxResults.of_json in
      let requestedBy = field_map json__ "requestedBy" RequestedBy.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let status = field_map json__ "status" SigningStatus.of_json in
      make ?jobInvoker ?signatureExpiresAfter ?signatureExpiresBefore
        ?isRevoked ?nextToken ?maxResults ?requestedBy ?platformId ?status ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all your signing jobs. You can use the maxResults parameter to limit the number of signing jobs that are returned in the response. If additional jobs remain to be listed, AWS Signer returns a nextToken value. Use this value in subsequent calls to ListSigningJobs to fetch the remaining values. You can continue calling ListSigningJobs with your maxResults parameter and with new values that Signer returns in the nextToken parameter until all of your signing jobs have been returned."]
module ListProfilePermissionsResponse =
  struct
    type nonrec t =
      {
      revisionId: String_.t option
        [@ocaml.doc
          "The identifier for the current revision of profile permissions."];
      policySizeBytes: PolicySizeBytes.t option
        [@ocaml.doc
          "Total size of the policy associated with the Signing Profile in bytes."];
      permissions: Permissions.t option
        [@ocaml.doc
          "List of permissions associated with the Signing Profile."];
      nextToken: String_.t option
        [@ocaml.doc
          "String for specifying the next set of paginated results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?revisionId =
      fun ?policySizeBytes ->
        fun ?permissions ->
          fun ?nextToken ->
            fun () -> { revisionId; policySizeBytes; permissions; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:String_.to_value));
        ("policySizeBytes",
          (Option.map x.policySizeBytes ~f:PolicySizeBytes.to_value));
        ("permissions", (Option.map x.permissions ~f:Permissions.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let permissions =
        (Option.map ~f:Permissions.of_xml) (Xml.child xml_arg0 "permissions") in
      let policySizeBytes =
        (Option.map ~f:PolicySizeBytes.of_xml)
          (Xml.child xml_arg0 "policySizeBytes") in
      let revisionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?nextToken ?permissions ?policySizeBytes ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let permissions = field_map json__ "permissions" Permissions.of_json in
      let policySizeBytes =
        field_map json__ "policySizeBytes" PolicySizeBytes.of_json in
      let revisionId = field_map json__ "revisionId" String_.of_json in
      make ?nextToken ?permissions ?policySizeBytes ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the cross-account permissions associated with a signing profile."]
module ListProfilePermissionsRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc
          "Name of the signing profile containing the cross-account permissions."];
      nextToken: String_.t option
        [@ocaml.doc
          "String for specifying the next set of paginated results."]}
    let context_ = "ListProfilePermissionsRequest"
    let make ?nextToken =
      fun ~profileName -> fun () -> { nextToken; profileName }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ?nextToken ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ?nextToken ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the cross-account permissions associated with a signing profile."]
module GetSigningProfileResponse =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t option
        [@ocaml.doc "The name of the target signing profile."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc "The current version of the signing profile."];
      profileVersionArn: Arn.t option
        [@ocaml.doc
          "The signing profile ARN, including the profile version."];
      revocationRecord: SigningProfileRevocationRecord.t option ;
      signingMaterial: SigningMaterial.t option
        [@ocaml.doc
          "The ARN of the certificate that the target profile uses for signing operations."];
      platformId: PlatformId.t option
        [@ocaml.doc
          "The ID of the platform that is used by the target signing profile."];
      platformDisplayName: DisplayName.t option
        [@ocaml.doc
          "A human-readable name for the signing platform associated with the signing profile."];
      signatureValidityPeriod: SignatureValidityPeriod.t option ;
      overrides: SigningPlatformOverrides.t option
        [@ocaml.doc
          "A list of overrides applied by the target signing profile for signing operations."];
      signingParameters: SigningParameters.t option
        [@ocaml.doc
          "A map of key-value pairs for signing operations that is attached to the target signing profile."];
      status: SigningProfileStatus.t option
        [@ocaml.doc "The status of the target signing profile."];
      statusReason: String_.t option
        [@ocaml.doc "Reason for the status of the target signing profile."];
      arn: String__lc1.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) for the signing profile."];
      tags: TagMap.t option
        [@ocaml.doc "A list of tags associated with the signing profile."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?profileName =
      fun ?profileVersion ->
        fun ?profileVersionArn ->
          fun ?revocationRecord ->
            fun ?signingMaterial ->
              fun ?platformId ->
                fun ?platformDisplayName ->
                  fun ?signatureValidityPeriod ->
                    fun ?overrides ->
                      fun ?signingParameters ->
                        fun ?status ->
                          fun ?statusReason ->
                            fun ?arn ->
                              fun ?tags ->
                                fun () ->
                                  {
                                    profileName;
                                    profileVersion;
                                    profileVersionArn;
                                    revocationRecord;
                                    signingMaterial;
                                    platformId;
                                    platformDisplayName;
                                    signatureValidityPeriod;
                                    overrides;
                                    signingParameters;
                                    status;
                                    statusReason;
                                    arn;
                                    tags
                                  }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("profileName", (Option.map x.profileName ~f:ProfileName.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("profileVersionArn",
          (Option.map x.profileVersionArn ~f:Arn.to_value));
        ("revocationRecord",
          (Option.map x.revocationRecord
             ~f:SigningProfileRevocationRecord.to_value));
        ("signingMaterial",
          (Option.map x.signingMaterial ~f:SigningMaterial.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("platformDisplayName",
          (Option.map x.platformDisplayName ~f:DisplayName.to_value));
        ("signatureValidityPeriod",
          (Option.map x.signatureValidityPeriod
             ~f:SignatureValidityPeriod.to_value));
        ("overrides",
          (Option.map x.overrides ~f:SigningPlatformOverrides.to_value));
        ("signingParameters",
          (Option.map x.signingParameters ~f:SigningParameters.to_value));
        ("status", (Option.map x.status ~f:SigningProfileStatus.to_value));
        ("statusReason", (Option.map x.statusReason ~f:String_.to_value));
        ("arn", (Option.map x.arn ~f:String__lc1.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let arn = (Option.map ~f:String__lc1.of_xml) (Xml.child xml_arg0 "arn") in
      let statusReason =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:SigningProfileStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let signingParameters =
        (Option.map ~f:SigningParameters.of_xml)
          (Xml.child xml_arg0 "signingParameters") in
      let overrides =
        (Option.map ~f:SigningPlatformOverrides.of_xml)
          (Xml.child xml_arg0 "overrides") in
      let signatureValidityPeriod =
        (Option.map ~f:SignatureValidityPeriod.of_xml)
          (Xml.child xml_arg0 "signatureValidityPeriod") in
      let platformDisplayName =
        (Option.map ~f:DisplayName.of_xml)
          (Xml.child xml_arg0 "platformDisplayName") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let signingMaterial =
        (Option.map ~f:SigningMaterial.of_xml)
          (Xml.child xml_arg0 "signingMaterial") in
      let revocationRecord =
        (Option.map ~f:SigningProfileRevocationRecord.of_xml)
          (Xml.child xml_arg0 "revocationRecord") in
      let profileVersionArn =
        (Option.map ~f:Arn.of_xml) (Xml.child xml_arg0 "profileVersionArn") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let profileName =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "profileName") in
      make ?tags ?arn ?statusReason ?status ?signingParameters ?overrides
        ?signatureValidityPeriod ?platformDisplayName ?platformId
        ?signingMaterial ?revocationRecord ?profileVersionArn ?profileVersion
        ?profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let arn = field_map json__ "arn" String__lc1.of_json in
      let statusReason = field_map json__ "statusReason" String_.of_json in
      let status = field_map json__ "status" SigningProfileStatus.of_json in
      let signingParameters =
        field_map json__ "signingParameters" SigningParameters.of_json in
      let overrides =
        field_map json__ "overrides" SigningPlatformOverrides.of_json in
      let signatureValidityPeriod =
        field_map json__ "signatureValidityPeriod"
          SignatureValidityPeriod.of_json in
      let platformDisplayName =
        field_map json__ "platformDisplayName" DisplayName.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let signingMaterial =
        field_map json__ "signingMaterial" SigningMaterial.of_json in
      let revocationRecord =
        field_map json__ "revocationRecord"
          SigningProfileRevocationRecord.of_json in
      let profileVersionArn =
        field_map json__ "profileVersionArn" Arn.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let profileName = field_map json__ "profileName" ProfileName.of_json in
      make ?tags ?arn ?statusReason ?status ?signingParameters ?overrides
        ?signatureValidityPeriod ?platformDisplayName ?platformId
        ?signingMaterial ?revocationRecord ?profileVersionArn ?profileVersion
        ?profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information on a specific signing profile."]
module GetSigningProfileRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The name of the target signing profile."];
      profileOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the profile owner."]}
    let context_ = "GetSigningProfileRequest"
    let make ?profileOwner =
      fun ~profileName -> fun () -> { profileOwner; profileName }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("profileOwner", (Option.map x.profileOwner ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "profileOwner") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ?profileOwner ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileOwner = field_map json__ "profileOwner" AccountId.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ?profileOwner ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information on a specific signing profile."]
module GetSigningPlatformResponse =
  struct
    type nonrec t =
      {
      platformId: PlatformId.t option
        [@ocaml.doc "The ID of the target signing platform."];
      displayName: DisplayName.t option
        [@ocaml.doc "The display name of the target signing platform."];
      partner: String_.t option
        [@ocaml.doc
          "A list of partner entities that use the target signing platform."];
      target: String_.t option
        [@ocaml.doc
          "The validation template that is used by the target signing platform."];
      category: Category.t option
        [@ocaml.doc "The category type of the target signing platform."];
      signingConfiguration: SigningConfiguration.t option
        [@ocaml.doc
          "A list of configurations applied to the target platform at signing."];
      signingImageFormat: SigningImageFormat.t option
        [@ocaml.doc "The format of the target platform's signing image."];
      maxSizeInMB: MaxSizeInMB.t option
        [@ocaml.doc
          "The maximum size (in MB) of the payload that can be signed by the target platform."];
      revocationSupported: Bool_.t option
        [@ocaml.doc
          "A flag indicating whether signatures generated for the signing platform can be revoked."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?platformId =
      fun ?displayName ->
        fun ?partner ->
          fun ?target ->
            fun ?category ->
              fun ?signingConfiguration ->
                fun ?signingImageFormat ->
                  fun ?maxSizeInMB ->
                    fun ?revocationSupported ->
                      fun () ->
                        {
                          platformId;
                          displayName;
                          partner;
                          target;
                          category;
                          signingConfiguration;
                          signingImageFormat;
                          maxSizeInMB;
                          revocationSupported
                        }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.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
        [("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("displayName", (Option.map x.displayName ~f:DisplayName.to_value));
        ("partner", (Option.map x.partner ~f:String_.to_value));
        ("target", (Option.map x.target ~f:String_.to_value));
        ("category", (Option.map x.category ~f:Category.to_value));
        ("signingConfiguration",
          (Option.map x.signingConfiguration ~f:SigningConfiguration.to_value));
        ("signingImageFormat",
          (Option.map x.signingImageFormat ~f:SigningImageFormat.to_value));
        ("maxSizeInMB", (Option.map x.maxSizeInMB ~f:MaxSizeInMB.to_value));
        ("revocationSupported",
          (Option.map x.revocationSupported ~f:Bool_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revocationSupported =
        (Option.map ~f:Bool_.of_xml)
          (Xml.child xml_arg0 "revocationSupported") in
      let maxSizeInMB =
        (Option.map ~f:MaxSizeInMB.of_xml) (Xml.child xml_arg0 "maxSizeInMB") in
      let signingImageFormat =
        (Option.map ~f:SigningImageFormat.of_xml)
          (Xml.child xml_arg0 "signingImageFormat") in
      let signingConfiguration =
        (Option.map ~f:SigningConfiguration.of_xml)
          (Xml.child xml_arg0 "signingConfiguration") in
      let category =
        (Option.map ~f:Category.of_xml) (Xml.child xml_arg0 "category") in
      let target =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "target") in
      let partner =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "partner") in
      let displayName =
        (Option.map ~f:DisplayName.of_xml) (Xml.child xml_arg0 "displayName") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      make ?revocationSupported ?maxSizeInMB ?signingImageFormat
        ?signingConfiguration ?category ?target ?partner ?displayName
        ?platformId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revocationSupported =
        field_map json__ "revocationSupported" Bool_.of_json in
      let maxSizeInMB = field_map json__ "maxSizeInMB" MaxSizeInMB.of_json in
      let signingImageFormat =
        field_map json__ "signingImageFormat" SigningImageFormat.of_json in
      let signingConfiguration =
        field_map json__ "signingConfiguration" SigningConfiguration.of_json in
      let category = field_map json__ "category" Category.of_json in
      let target = field_map json__ "target" String_.of_json in
      let partner = field_map json__ "partner" String_.of_json in
      let displayName = field_map json__ "displayName" DisplayName.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      make ?revocationSupported ?maxSizeInMB ?signingImageFormat
        ?signingConfiguration ?category ?target ?partner ?displayName
        ?platformId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information on a specific signing platform."]
module GetSigningPlatformRequest =
  struct
    type nonrec t =
      {
      platformId: PlatformId.t
        [@ocaml.doc "The ID of the target signing platform."]}
    let context_ = "GetSigningPlatformRequest"
    let make ~platformId = fun () -> { platformId }
    let to_value x =
      structure_to_value
        [("platformId", (Some (PlatformId.to_value x.platformId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let platformId =
        PlatformId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "platformId") in
      make ~platformId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let platformId = field_map_exn json__ "platformId" PlatformId.of_json in
      make ~platformId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returns information on a specific signing platform."]
module GetRevocationStatusResponse =
  struct
    type nonrec t =
      {
      revokedEntities: RevokedEntities.t option
        [@ocaml.doc
          "A list of revoked entities (including zero or more of the signing profile ARN, signing job ARN, and certificate hashes) supplied as input to the API."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?revokedEntities = fun () -> { revokedEntities }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("revokedEntities",
           (Option.map x.revokedEntities ~f:RevokedEntities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revokedEntities =
        (Option.map ~f:RevokedEntities.of_xml)
          (Xml.child xml_arg0 "revokedEntities") in
      make ?revokedEntities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revokedEntities =
        field_map json__ "revokedEntities" RevokedEntities.of_json in
      make ?revokedEntities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the revocation status of one or more of the signing profile, signing job, and signing certificate."]
module GetRevocationStatusRequest =
  struct
    type nonrec t =
      {
      signatureTimestamp: Timestamp.t
        [@ocaml.doc
          "The timestamp of the signature that validates the profile or job."];
      platformId: PlatformId.t [@ocaml.doc "The ID of a signing platform."];
      profileVersionArn: Arn.t
        [@ocaml.doc "The version of a signing profile."];
      jobArn: Arn.t [@ocaml.doc "The ARN of a signing job."];
      certificateHashes: CertificateHashes.t
        [@ocaml.doc
          "A list of composite signed hashes that identify certificates. A certificate identifier consists of a subject certificate TBS hash (signed by the parent CA) combined with a parent CA TBS hash (signed by the parent CA\226\128\153s CA). Root certificates are defined as their own CA. The following example shows how to calculate a hash for this parameter using OpenSSL commands: openssl asn1parse -in childCert.pem -strparse 4 -out childCert.tbs openssl sha384 < childCert.tbs -binary > childCertTbsHash openssl asn1parse -in parentCert.pem -strparse 4 -out parentCert.tbs openssl sha384 < parentCert.tbs -binary > parentCertTbsHash xxd -p childCertTbsHash > certificateHash.hex xxd -p parentCertTbsHash >> certificateHash.hex cat certificateHash.hex | tr -d '\\n'"]}
    let context_ = "GetRevocationStatusRequest"
    let make ~signatureTimestamp =
      fun ~platformId ->
        fun ~profileVersionArn ->
          fun ~jobArn ->
            fun ~certificateHashes ->
              fun () ->
                {
                  signatureTimestamp;
                  platformId;
                  profileVersionArn;
                  jobArn;
                  certificateHashes
                }
    let to_value x =
      structure_to_value
        [("signatureTimestamp",
           (Some (Timestamp.to_value x.signatureTimestamp)));
        ("platformId", (Some (PlatformId.to_value x.platformId)));
        ("profileVersionArn", (Some (Arn.to_value x.profileVersionArn)));
        ("jobArn", (Some (Arn.to_value x.jobArn)));
        ("certificateHashes",
          (Some (CertificateHashes.to_value x.certificateHashes)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let certificateHashes =
        CertificateHashes.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "certificateHashes") in
      let jobArn =
        Arn.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobArn") in
      let profileVersionArn =
        Arn.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileVersionArn") in
      let platformId =
        PlatformId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "platformId") in
      let signatureTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "signatureTimestamp") in
      make ~certificateHashes ~jobArn ~profileVersionArn ~platformId
        ~signatureTimestamp ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let certificateHashes =
        field_map_exn json__ "certificateHashes" CertificateHashes.of_json in
      let jobArn = field_map_exn json__ "jobArn" Arn.of_json in
      let profileVersionArn =
        field_map_exn json__ "profileVersionArn" Arn.of_json in
      let platformId = field_map_exn json__ "platformId" PlatformId.of_json in
      let signatureTimestamp =
        field_map_exn json__ "signatureTimestamp" Timestamp.of_json in
      make ~certificateHashes ~jobArn ~profileVersionArn ~platformId
        ~signatureTimestamp ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the revocation status of one or more of the signing profile, signing job, and signing certificate."]
module DescribeSigningJobResponse =
  struct
    type nonrec t =
      {
      jobId: JobId.t option
        [@ocaml.doc "The ID of the signing job on output."];
      source: Source.t option
        [@ocaml.doc
          "The object that contains the name of your S3 bucket or your raw code."];
      signingMaterial: SigningMaterial.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of your code signing certificate."];
      platformId: PlatformId.t option
        [@ocaml.doc
          "The microcontroller platform to which your signed code image will be distributed."];
      platformDisplayName: DisplayName.t option
        [@ocaml.doc
          "A human-readable name for the signing platform associated with the signing job."];
      profileName: ProfileName.t option
        [@ocaml.doc
          "The name of the profile that initiated the signing operation."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc
          "The version of the signing profile used to initiate the signing job."];
      overrides: SigningPlatformOverrides.t option
        [@ocaml.doc
          "A list of any overrides that were applied to the signing operation."];
      signingParameters: SigningParameters.t option
        [@ocaml.doc
          "Map of user-assigned key-value pairs used during signing. These values contain any information that you specified for use in your signing job."];
      createdAt: Timestamp.t option
        [@ocaml.doc "Date and time that the signing job was created."];
      completedAt: Timestamp.t option
        [@ocaml.doc "Date and time that the signing job was completed."];
      signatureExpiresAt: Timestamp.t option
        [@ocaml.doc
          "Thr expiration timestamp for the signature generated by the signing job."];
      requestedBy: RequestedBy.t option
        [@ocaml.doc "The IAM principal that requested the signing job."];
      status: SigningStatus.t option
        [@ocaml.doc "Status of the signing job."];
      statusReason: StatusReason.t option
        [@ocaml.doc "String value that contains the status reason."];
      revocationRecord: SigningJobRevocationRecord.t option
        [@ocaml.doc
          "A revocation record if the signature generated by the signing job has been revoked. Contains a timestamp and the ID of the IAM entity that revoked the signature."];
      signedObject: SignedObject.t option
        [@ocaml.doc
          "Name of the S3 bucket where the signed code image is saved by AWS Signer."];
      jobOwner: AccountId.t option
        [@ocaml.doc "The AWS account ID of the job owner."];
      jobInvoker: AccountId.t option
        [@ocaml.doc "The IAM entity that initiated the signing job."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?jobId =
      fun ?source ->
        fun ?signingMaterial ->
          fun ?platformId ->
            fun ?platformDisplayName ->
              fun ?profileName ->
                fun ?profileVersion ->
                  fun ?overrides ->
                    fun ?signingParameters ->
                      fun ?createdAt ->
                        fun ?completedAt ->
                          fun ?signatureExpiresAt ->
                            fun ?requestedBy ->
                              fun ?status ->
                                fun ?statusReason ->
                                  fun ?revocationRecord ->
                                    fun ?signedObject ->
                                      fun ?jobOwner ->
                                        fun ?jobInvoker ->
                                          fun () ->
                                            {
                                              jobId;
                                              source;
                                              signingMaterial;
                                              platformId;
                                              platformDisplayName;
                                              profileName;
                                              profileVersion;
                                              overrides;
                                              signingParameters;
                                              createdAt;
                                              completedAt;
                                              signatureExpiresAt;
                                              requestedBy;
                                              status;
                                              statusReason;
                                              revocationRecord;
                                              signedObject;
                                              jobOwner;
                                              jobInvoker
                                            }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("jobId", (Option.map x.jobId ~f:JobId.to_value));
        ("source", (Option.map x.source ~f:Source.to_value));
        ("signingMaterial",
          (Option.map x.signingMaterial ~f:SigningMaterial.to_value));
        ("platformId", (Option.map x.platformId ~f:PlatformId.to_value));
        ("platformDisplayName",
          (Option.map x.platformDisplayName ~f:DisplayName.to_value));
        ("profileName", (Option.map x.profileName ~f:ProfileName.to_value));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("overrides",
          (Option.map x.overrides ~f:SigningPlatformOverrides.to_value));
        ("signingParameters",
          (Option.map x.signingParameters ~f:SigningParameters.to_value));
        ("createdAt", (Option.map x.createdAt ~f:Timestamp.to_value));
        ("completedAt", (Option.map x.completedAt ~f:Timestamp.to_value));
        ("signatureExpiresAt",
          (Option.map x.signatureExpiresAt ~f:Timestamp.to_value));
        ("requestedBy", (Option.map x.requestedBy ~f:RequestedBy.to_value));
        ("status", (Option.map x.status ~f:SigningStatus.to_value));
        ("statusReason",
          (Option.map x.statusReason ~f:StatusReason.to_value));
        ("revocationRecord",
          (Option.map x.revocationRecord
             ~f:SigningJobRevocationRecord.to_value));
        ("signedObject",
          (Option.map x.signedObject ~f:SignedObject.to_value));
        ("jobOwner", (Option.map x.jobOwner ~f:AccountId.to_value));
        ("jobInvoker", (Option.map x.jobInvoker ~f:AccountId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobInvoker =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobInvoker") in
      let jobOwner =
        (Option.map ~f:AccountId.of_xml) (Xml.child xml_arg0 "jobOwner") in
      let signedObject =
        (Option.map ~f:SignedObject.of_xml)
          (Xml.child xml_arg0 "signedObject") in
      let revocationRecord =
        (Option.map ~f:SigningJobRevocationRecord.of_xml)
          (Xml.child xml_arg0 "revocationRecord") in
      let statusReason =
        (Option.map ~f:StatusReason.of_xml)
          (Xml.child xml_arg0 "statusReason") in
      let status =
        (Option.map ~f:SigningStatus.of_xml) (Xml.child xml_arg0 "status") in
      let requestedBy =
        (Option.map ~f:RequestedBy.of_xml) (Xml.child xml_arg0 "requestedBy") in
      let signatureExpiresAt =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "signatureExpiresAt") in
      let completedAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "completedAt") in
      let createdAt =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "createdAt") in
      let signingParameters =
        (Option.map ~f:SigningParameters.of_xml)
          (Xml.child xml_arg0 "signingParameters") in
      let overrides =
        (Option.map ~f:SigningPlatformOverrides.of_xml)
          (Xml.child xml_arg0 "overrides") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let profileName =
        (Option.map ~f:ProfileName.of_xml) (Xml.child xml_arg0 "profileName") in
      let platformDisplayName =
        (Option.map ~f:DisplayName.of_xml)
          (Xml.child xml_arg0 "platformDisplayName") in
      let platformId =
        (Option.map ~f:PlatformId.of_xml) (Xml.child xml_arg0 "platformId") in
      let signingMaterial =
        (Option.map ~f:SigningMaterial.of_xml)
          (Xml.child xml_arg0 "signingMaterial") in
      let source =
        (Option.map ~f:Source.of_xml) (Xml.child xml_arg0 "source") in
      let jobId = (Option.map ~f:JobId.of_xml) (Xml.child xml_arg0 "jobId") in
      make ?jobInvoker ?jobOwner ?signedObject ?revocationRecord
        ?statusReason ?status ?requestedBy ?signatureExpiresAt ?completedAt
        ?createdAt ?signingParameters ?overrides ?profileVersion ?profileName
        ?platformDisplayName ?platformId ?signingMaterial ?source ?jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobInvoker = field_map json__ "jobInvoker" AccountId.of_json in
      let jobOwner = field_map json__ "jobOwner" AccountId.of_json in
      let signedObject = field_map json__ "signedObject" SignedObject.of_json in
      let revocationRecord =
        field_map json__ "revocationRecord"
          SigningJobRevocationRecord.of_json in
      let statusReason = field_map json__ "statusReason" StatusReason.of_json in
      let status = field_map json__ "status" SigningStatus.of_json in
      let requestedBy = field_map json__ "requestedBy" RequestedBy.of_json in
      let signatureExpiresAt =
        field_map json__ "signatureExpiresAt" Timestamp.of_json in
      let completedAt = field_map json__ "completedAt" Timestamp.of_json in
      let createdAt = field_map json__ "createdAt" Timestamp.of_json in
      let signingParameters =
        field_map json__ "signingParameters" SigningParameters.of_json in
      let overrides =
        field_map json__ "overrides" SigningPlatformOverrides.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let profileName = field_map json__ "profileName" ProfileName.of_json in
      let platformDisplayName =
        field_map json__ "platformDisplayName" DisplayName.of_json in
      let platformId = field_map json__ "platformId" PlatformId.of_json in
      let signingMaterial =
        field_map json__ "signingMaterial" SigningMaterial.of_json in
      let source = field_map json__ "source" Source.of_json in
      let jobId = field_map json__ "jobId" JobId.of_json in
      make ?jobInvoker ?jobOwner ?signedObject ?revocationRecord
        ?statusReason ?status ?requestedBy ?signatureExpiresAt ?completedAt
        ?createdAt ?signingParameters ?overrides ?profileVersion ?profileName
        ?platformDisplayName ?platformId ?signingMaterial ?source ?jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific code signing job. You specify the job by using the jobId value that is returned by the StartSigningJob operation."]
module DescribeSigningJobRequest =
  struct
    type nonrec t =
      {
      jobId: JobId.t [@ocaml.doc "The ID of the signing job on input."]}
    let context_ = "DescribeSigningJobRequest"
    let make ~jobId = fun () -> { jobId }
    let to_value x =
      structure_to_value [("jobId", (Some (JobId.to_value x.jobId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let jobId =
        JobId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "jobId") in
      make ~jobId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let jobId = field_map_exn json__ "jobId" JobId.of_json in
      make ~jobId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns information about a specific code signing job. You specify the job by using the jobId value that is returned by the StartSigningJob operation."]
module CancelSigningProfileRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The name of the signing profile to be canceled."]}
    let context_ = "CancelSigningProfileRequest"
    let make ~profileName = fun () -> { profileName }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the state of an ACTIVE signing profile to CANCELED. A canceled profile is still viewable with the ListSigningProfiles operation, but it cannot perform new signing jobs. See Data Retention for more information on scheduled deletion of a canceled signing profile."]
module AddProfilePermissionResponse =
  struct
    type nonrec t =
      {
      revisionId: String_.t option
        [@ocaml.doc "A unique identifier for the current profile revision."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServiceErrorException of InternalServiceErrorException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceLimitExceededException of ServiceLimitExceededException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?revisionId = fun () -> { revisionId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServiceErrorException" ->
          `InternalServiceErrorException
            (InternalServiceErrorException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceLimitExceededException" ->
          `ServiceLimitExceededException
            (ServiceLimitExceededException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServiceErrorException e ->
          `Assoc
            [("error", (`String "InternalServiceErrorException"));
            ("details", (InternalServiceErrorException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ServiceLimitExceededException e ->
          `Assoc
            [("error", (`String "ServiceLimitExceededException"));
            ("details", (ServiceLimitExceededException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("revisionId", (Option.map x.revisionId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revisionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revisionId") in
      make ?revisionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revisionId = field_map json__ "revisionId" String_.of_json in
      make ?revisionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds cross-account permissions to a signing profile."]
module AddProfilePermissionRequest =
  struct
    type nonrec t =
      {
      profileName: ProfileName.t
        [@ocaml.doc "The human-readable name of the signing profile."];
      profileVersion: ProfileVersion.t option
        [@ocaml.doc "The version of the signing profile."];
      action: String_.t
        [@ocaml.doc
          "For cross-account signing. Grant a designated account permission to perform one or more of the following actions. Each action is associated with a specific API's operations. For more information about cross-account signing, see Using cross-account signing with signing profiles in the AWS Signer Developer Guide. You can designate the following actions to an account. signer:StartSigningJob. This action isn't supported for container image workflows. For details, see StartSigningJob. signer:SignPayload. This action isn't supported for AWS Lambda workflows. For details, see SignPayload signer:GetSigningProfile. For details, see GetSigningProfile. signer:RevokeSignature. For details, see RevokeSignature."];
      principal: String_.t
        [@ocaml.doc
          "The AWS principal receiving cross-account permissions. This may be an IAM role or another AWS account ID."];
      revisionId: String_.t option
        [@ocaml.doc "A unique identifier for the current profile revision."];
      statementId: String_.t
        [@ocaml.doc
          "A unique identifier for the cross-account permission statement."]}
    let context_ = "AddProfilePermissionRequest"
    let make ?profileVersion =
      fun ?revisionId ->
        fun ~profileName ->
          fun ~action ->
            fun ~principal ->
              fun ~statementId ->
                fun () ->
                  {
                    profileVersion;
                    revisionId;
                    profileName;
                    action;
                    principal;
                    statementId
                  }
    let to_value x =
      structure_to_value
        [("profileName", (Some (ProfileName.to_value x.profileName)));
        ("profileVersion",
          (Option.map x.profileVersion ~f:ProfileVersion.to_value));
        ("action", (Some (String_.to_value x.action)));
        ("principal", (Some (String_.to_value x.principal)));
        ("revisionId", (Option.map x.revisionId ~f:String_.to_value));
        ("statementId", (Some (String_.to_value x.statementId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statementId =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "statementId") in
      let revisionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "revisionId") in
      let principal =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "principal") in
      let action =
        String_.of_xml (Xml.child_exn ~context:context_ xml_arg0 "action") in
      let profileVersion =
        (Option.map ~f:ProfileVersion.of_xml)
          (Xml.child xml_arg0 "profileVersion") in
      let profileName =
        ProfileName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "profileName") in
      make ~statementId ?revisionId ~principal ~action ?profileVersion
        ~profileName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statementId = field_map_exn json__ "statementId" String_.of_json in
      let revisionId = field_map json__ "revisionId" String_.of_json in
      let principal = field_map_exn json__ "principal" String_.of_json in
      let action = field_map_exn json__ "action" String_.of_json in
      let profileVersion =
        field_map json__ "profileVersion" ProfileVersion.of_json in
      let profileName =
        field_map_exn json__ "profileName" ProfileName.of_json in
      make ~statementId ?revisionId ~principal ~action ?profileVersion
        ~profileName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds cross-account permissions to a signing profile."]