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.workdocs
let apiVersion = "2016-05-01"
let endpointPrefix = "workdocs"
let serviceFullName = "Amazon WorkDocs"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module PositiveSizeType =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in ok_or_failwith (check_int64_min i ~min:0L); i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module StorageType =
  struct
    type nonrec t =
      | UNLIMITED 
      | QUOTA 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | UNLIMITED -> "UNLIMITED"
      | QUOTA -> "QUOTA"
      | Non_static_id s -> s
    let of_string =
      function
      | "UNLIMITED" -> UNLIMITED
      | "QUOTA" -> QUOTA
      | 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 StorageType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StorageType" j)
    let to_json = simple_to_json to_value
  end
module SizeType =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module StorageRuleType =
  struct
    type nonrec t =
      {
      storageAllocatedInBytes: PositiveSizeType.t option
        [@ocaml.doc "The amount of storage allocated, in bytes."];
      storageType: StorageType.t option [@ocaml.doc "The type of storage."]}
    let make ?storageAllocatedInBytes =
      fun ?storageType -> fun () -> { storageAllocatedInBytes; storageType }
    let to_value x =
      structure_to_value
        [("StorageAllocatedInBytes",
           (Option.map x.storageAllocatedInBytes ~f:PositiveSizeType.to_value));
        ("StorageType", (Option.map x.storageType ~f:StorageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageType =
        (Option.map ~f:StorageType.of_xml) (Xml.child xml_arg0 "StorageType") in
      let storageAllocatedInBytes =
        (Option.map ~f:PositiveSizeType.of_xml)
          (Xml.child xml_arg0 "StorageAllocatedInBytes") in
      make ?storageType ?storageAllocatedInBytes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageType = field_map json__ "StorageType" StorageType.of_json in
      let storageAllocatedInBytes =
        field_map json__ "StorageAllocatedInBytes" PositiveSizeType.of_json in
      make ?storageType ?storageAllocatedInBytes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the storage for a user."]
module DocumentSourceType =
  struct
    type nonrec t =
      | ORIGINAL 
      | WITH_COMMENTS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ORIGINAL -> "ORIGINAL"
      | WITH_COMMENTS -> "WITH_COMMENTS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ORIGINAL" -> ORIGINAL
      | "WITH_COMMENTS" -> WITH_COMMENTS
      | 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 DocumentSourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DocumentSourceType" j)
    let to_json = simple_to_json to_value
  end
module UrlType =
  struct
    type nonrec t = string
    let context_ = "UrlType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UrlType" j
    let to_json = simple_to_json to_value
  end
module DocumentThumbnailType =
  struct
    type nonrec t =
      | SMALL 
      | SMALL_HQ 
      | LARGE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SMALL -> "SMALL"
      | SMALL_HQ -> "SMALL_HQ"
      | LARGE -> "LARGE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SMALL" -> SMALL
      | "SMALL_HQ" -> SMALL_HQ
      | "LARGE" -> LARGE
      | 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 DocumentThumbnailType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DocumentThumbnailType" j)
    let to_json = simple_to_json to_value
  end
module GroupNameType =
  struct
    type nonrec t = string
    let context_ = "GroupNameType"
    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:"GroupNameType" j
    let to_json = simple_to_json to_value
  end
module IdType =
  struct
    type nonrec t = string
    let context_ = "IdType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[&\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdType" j
    let to_json = simple_to_json to_value
  end
module EmailAddressType =
  struct
    type nonrec t = string
    let context_ = "EmailAddressType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\\.[a-zA-Z]{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:"EmailAddressType" j
    let to_json = simple_to_json to_value
  end
module UserAttributeValueType =
  struct
    type nonrec t = string
    let context_ = "UserAttributeValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:64) >>=
             (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:"UserAttributeValueType" j
    let to_json = simple_to_json to_value
  end
module UsernameType =
  struct
    type nonrec t = string
    let context_ = "UsernameType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\w\\-+.]+(@[a-zA-Z0-9.\\-]+\\.[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:"UsernameType" j
    let to_json = simple_to_json to_value
  end
module LocaleType =
  struct
    type nonrec t =
      | En 
      | Fr 
      | Ko 
      | De 
      | Es 
      | Ja 
      | Ru 
      | Zh_CN 
      | Zh_TW 
      | Pt_BR 
      | Default 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | En -> "en"
      | Fr -> "fr"
      | Ko -> "ko"
      | De -> "de"
      | Es -> "es"
      | Ja -> "ja"
      | Ru -> "ru"
      | Zh_CN -> "zh_CN"
      | Zh_TW -> "zh_TW"
      | Pt_BR -> "pt_BR"
      | Default -> "default"
      | Non_static_id s -> s
    let of_string =
      function
      | "en" -> En
      | "fr" -> Fr
      | "ko" -> Ko
      | "de" -> De
      | "es" -> Es
      | "ja" -> Ja
      | "ru" -> Ru
      | "zh_CN" -> Zh_CN
      | "zh_TW" -> Zh_TW
      | "pt_BR" -> Pt_BR
      | "default" -> Default
      | 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 LocaleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LocaleType" j)
    let to_json = simple_to_json to_value
  end
module ResourceIdType =
  struct
    type nonrec t = string
    let context_ = "ResourceIdType"
    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:"[\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceIdType" j
    let to_json = simple_to_json to_value
  end
module TimeZoneIdType =
  struct
    type nonrec t = string
    let context_ = "TimeZoneIdType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TimeZoneIdType" j
    let to_json = simple_to_json to_value
  end
module TimestampType =
  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 UserStatusType =
  struct
    type nonrec t =
      | ACTIVE 
      | INACTIVE 
      | PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | INACTIVE -> "INACTIVE"
      | PENDING -> "PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "INACTIVE" -> INACTIVE
      | "PENDING" -> PENDING
      | 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 UserStatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserStatusType" j)
    let to_json = simple_to_json to_value
  end
module UserStorageMetadata =
  struct
    type nonrec t =
      {
      storageUtilizedInBytes: SizeType.t option
        [@ocaml.doc "The amount of storage used, in bytes."];
      storageRule: StorageRuleType.t option
        [@ocaml.doc "The storage for a user."]}
    let make ?storageUtilizedInBytes =
      fun ?storageRule -> fun () -> { storageUtilizedInBytes; storageRule }
    let to_value x =
      structure_to_value
        [("StorageUtilizedInBytes",
           (Option.map x.storageUtilizedInBytes ~f:SizeType.to_value));
        ("StorageRule",
          (Option.map x.storageRule ~f:StorageRuleType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storageRule =
        (Option.map ~f:StorageRuleType.of_xml)
          (Xml.child xml_arg0 "StorageRule") in
      let storageUtilizedInBytes =
        (Option.map ~f:SizeType.of_xml)
          (Xml.child xml_arg0 "StorageUtilizedInBytes") in
      make ?storageRule ?storageUtilizedInBytes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storageRule =
        field_map json__ "StorageRule" StorageRuleType.of_json in
      let storageUtilizedInBytes =
        field_map json__ "StorageUtilizedInBytes" SizeType.of_json in
      make ?storageRule ?storageUtilizedInBytes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the storage for a user."]
module UserType =
  struct
    type nonrec t =
      | USER 
      | ADMIN 
      | POWERUSER 
      | MINIMALUSER 
      | WORKSPACESUSER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USER -> "USER"
      | ADMIN -> "ADMIN"
      | POWERUSER -> "POWERUSER"
      | MINIMALUSER -> "MINIMALUSER"
      | WORKSPACESUSER -> "WORKSPACESUSER"
      | Non_static_id s -> s
    let of_string =
      function
      | "USER" -> USER
      | "ADMIN" -> ADMIN
      | "POWERUSER" -> POWERUSER
      | "MINIMALUSER" -> MINIMALUSER
      | "WORKSPACESUSER" -> WORKSPACESUSER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration UserType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserType" j)
    let to_json = simple_to_json to_value
  end
module DocumentContentType =
  struct
    type nonrec t = string
    let context_ = "DocumentContentType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DocumentContentType" j
    let to_json = simple_to_json to_value
  end
module DocumentSourceUrlMap =
  struct
    type nonrec t = (DocumentSourceType.t * UrlType.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 ->
                            ((DocumentSourceType.of_string chopped),
                              (UrlType.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (DocumentSourceType.to_value x) |>
                    (fun x -> (UrlType.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:DocumentSourceType.of_string
        ~of_json:UrlType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocumentStatusType =
  struct
    type nonrec t =
      | INITIALIZED 
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INITIALIZED -> "INITIALIZED"
      | ACTIVE -> "ACTIVE"
      | Non_static_id s -> s
    let of_string =
      function
      | "INITIALIZED" -> INITIALIZED
      | "ACTIVE" -> ACTIVE
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DocumentStatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DocumentStatusType" j)
    let to_json = simple_to_json to_value
  end
module DocumentThumbnailUrlMap =
  struct
    type nonrec t = (DocumentThumbnailType.t * UrlType.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 ->
                            ((DocumentThumbnailType.of_string chopped),
                              (UrlType.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (DocumentThumbnailType.to_value x) |>
                    (fun x -> (UrlType.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:DocumentThumbnailType.of_string
        ~of_json:UrlType.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocumentVersionIdType =
  struct
    type nonrec t = string
    let context_ = "DocumentVersionIdType"
    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:"[\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DocumentVersionIdType" j
    let to_json = simple_to_json to_value
  end
module HashType =
  struct
    type nonrec t = string
    let context_ = "HashType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[&\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HashType" j
    let to_json = simple_to_json to_value
  end
module ResourceNameType =
  struct
    type nonrec t = string
    let context_ = "ResourceNameType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[\\u0020-\\u202D\\u202F-\\uFFFF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResourceNameType" j
    let to_json = simple_to_json to_value
  end
module SharedLabel =
  struct
    type nonrec t = string
    let context_ = "SharedLabel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9._+-/=][a-zA-Z0-9 ._+-/=]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SharedLabel" j
    let to_json = simple_to_json to_value
  end
module PrincipalRoleType =
  struct
    type nonrec t =
      | VIEWER 
      | CONTRIBUTOR 
      | OWNER 
      | COOWNER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VIEWER -> "VIEWER"
      | CONTRIBUTOR -> "CONTRIBUTOR"
      | OWNER -> "OWNER"
      | COOWNER -> "COOWNER"
      | Non_static_id s -> s
    let of_string =
      function
      | "VIEWER" -> VIEWER
      | "CONTRIBUTOR" -> CONTRIBUTOR
      | "OWNER" -> OWNER
      | "COOWNER" -> COOWNER
      | 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 PrincipalRoleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PrincipalRoleType" j)
    let to_json = simple_to_json to_value
  end
module RolePermissionType =
  struct
    type nonrec t =
      | DIRECT 
      | INHERITED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DIRECT -> "DIRECT"
      | INHERITED -> "INHERITED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DIRECT" -> DIRECT
      | "INHERITED" -> INHERITED
      | 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 RolePermissionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RolePermissionType" j)
    let to_json = simple_to_json to_value
  end
module RoleType =
  struct
    type nonrec t =
      | VIEWER 
      | CONTRIBUTOR 
      | OWNER 
      | COOWNER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VIEWER -> "VIEWER"
      | CONTRIBUTOR -> "CONTRIBUTOR"
      | OWNER -> "OWNER"
      | COOWNER -> "COOWNER"
      | Non_static_id s -> s
    let of_string =
      function
      | "VIEWER" -> VIEWER
      | "CONTRIBUTOR" -> CONTRIBUTOR
      | "OWNER" -> OWNER
      | "COOWNER" -> COOWNER
      | 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 RoleType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RoleType" j)
    let to_json = simple_to_json to_value
  end
module GroupMetadata =
  struct
    type nonrec t =
      {
      id: IdType.t option [@ocaml.doc "The ID of the user group."];
      name: GroupNameType.t option [@ocaml.doc "The name of the group."]}
    let make ?id = fun ?name -> fun () -> { id; name }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:IdType.to_value));
        ("Name", (Option.map x.name ~f:GroupNameType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:GroupNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let id = (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" GroupNameType.of_json in
      let id = field_map json__ "Id" IdType.of_json in make ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the metadata of a user group."]
module UserMetadata =
  struct
    type nonrec t =
      {
      id: IdType.t option [@ocaml.doc "The ID of the user."];
      username: UsernameType.t option [@ocaml.doc "The name of the user."];
      givenName: UserAttributeValueType.t option
        [@ocaml.doc "The given name of the user before a rename operation."];
      surname: UserAttributeValueType.t option
        [@ocaml.doc "The surname of the user."];
      emailAddress: EmailAddressType.t option
        [@ocaml.doc "The email address of the user."]}
    let make ?id =
      fun ?username ->
        fun ?givenName ->
          fun ?surname ->
            fun ?emailAddress ->
              fun () -> { id; username; givenName; surname; emailAddress }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:IdType.to_value));
        ("Username", (Option.map x.username ~f:UsernameType.to_value));
        ("GivenName",
          (Option.map x.givenName ~f:UserAttributeValueType.to_value));
        ("Surname",
          (Option.map x.surname ~f:UserAttributeValueType.to_value));
        ("EmailAddress",
          (Option.map x.emailAddress ~f:EmailAddressType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailAddress =
        (Option.map ~f:EmailAddressType.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let surname =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "Surname") in
      let givenName =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "GivenName") in
      let username =
        (Option.map ~f:UsernameType.of_xml) (Xml.child xml_arg0 "Username") in
      let id = (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?emailAddress ?surname ?givenName ?username ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailAddress =
        field_map json__ "EmailAddress" EmailAddressType.of_json in
      let surname = field_map json__ "Surname" UserAttributeValueType.of_json in
      let givenName =
        field_map json__ "GivenName" UserAttributeValueType.of_json in
      let username = field_map json__ "Username" UsernameType.of_json in
      let id = field_map json__ "Id" IdType.of_json in
      make ?emailAddress ?surname ?givenName ?username ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the metadata of the user."]
module CommentIdType =
  struct
    type nonrec t = string
    let context_ = "CommentIdType"
    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:"[\\w+-.@]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CommentIdType" j
    let to_json = simple_to_json to_value
  end
module CommentStatusType =
  struct
    type nonrec t =
      | DRAFT 
      | PUBLISHED 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DRAFT -> "DRAFT"
      | PUBLISHED -> "PUBLISHED"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DRAFT" -> DRAFT
      | "PUBLISHED" -> PUBLISHED
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration CommentStatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CommentStatusType" j)
    let to_json = simple_to_json to_value
  end
module User =
  struct
    type nonrec t =
      {
      id: IdType.t option [@ocaml.doc "The ID of the user."];
      username: UsernameType.t option
        [@ocaml.doc "The login name of the user."];
      emailAddress: EmailAddressType.t option
        [@ocaml.doc "The email address of the user."];
      givenName: UserAttributeValueType.t option
        [@ocaml.doc "The given name of the user."];
      surname: UserAttributeValueType.t option
        [@ocaml.doc "The surname of the user."];
      organizationId: IdType.t option
        [@ocaml.doc "The ID of the organization."];
      rootFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the root folder."];
      recycleBinFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the recycle bin folder."];
      status: UserStatusType.t option [@ocaml.doc "The status of the user."];
      type_: UserType.t option [@ocaml.doc "The type of user."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the user was created."];
      modifiedTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the user was modified."];
      timeZoneId: TimeZoneIdType.t option
        [@ocaml.doc "The time zone ID of the user."];
      locale: LocaleType.t option [@ocaml.doc "The locale of the user."];
      storage: UserStorageMetadata.t option
        [@ocaml.doc "The storage for the user."]}
    let make ?id =
      fun ?username ->
        fun ?emailAddress ->
          fun ?givenName ->
            fun ?surname ->
              fun ?organizationId ->
                fun ?rootFolderId ->
                  fun ?recycleBinFolderId ->
                    fun ?status ->
                      fun ?type_ ->
                        fun ?createdTimestamp ->
                          fun ?modifiedTimestamp ->
                            fun ?timeZoneId ->
                              fun ?locale ->
                                fun ?storage ->
                                  fun () ->
                                    {
                                      id;
                                      username;
                                      emailAddress;
                                      givenName;
                                      surname;
                                      organizationId;
                                      rootFolderId;
                                      recycleBinFolderId;
                                      status;
                                      type_;
                                      createdTimestamp;
                                      modifiedTimestamp;
                                      timeZoneId;
                                      locale;
                                      storage
                                    }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:IdType.to_value));
        ("Username", (Option.map x.username ~f:UsernameType.to_value));
        ("EmailAddress",
          (Option.map x.emailAddress ~f:EmailAddressType.to_value));
        ("GivenName",
          (Option.map x.givenName ~f:UserAttributeValueType.to_value));
        ("Surname",
          (Option.map x.surname ~f:UserAttributeValueType.to_value));
        ("OrganizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("RootFolderId",
          (Option.map x.rootFolderId ~f:ResourceIdType.to_value));
        ("RecycleBinFolderId",
          (Option.map x.recycleBinFolderId ~f:ResourceIdType.to_value));
        ("Status", (Option.map x.status ~f:UserStatusType.to_value));
        ("Type", (Option.map x.type_ ~f:UserType.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("ModifiedTimestamp",
          (Option.map x.modifiedTimestamp ~f:TimestampType.to_value));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneIdType.to_value));
        ("Locale", (Option.map x.locale ~f:LocaleType.to_value));
        ("Storage", (Option.map x.storage ~f:UserStorageMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let storage =
        (Option.map ~f:UserStorageMetadata.of_xml)
          (Xml.child xml_arg0 "Storage") in
      let locale =
        (Option.map ~f:LocaleType.of_xml) (Xml.child xml_arg0 "Locale") in
      let timeZoneId =
        (Option.map ~f:TimeZoneIdType.of_xml)
          (Xml.child xml_arg0 "TimeZoneId") in
      let modifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ModifiedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "Type") in
      let status =
        (Option.map ~f:UserStatusType.of_xml) (Xml.child xml_arg0 "Status") in
      let recycleBinFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "RecycleBinFolderId") in
      let rootFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "RootFolderId") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "OrganizationId") in
      let surname =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "Surname") in
      let givenName =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "GivenName") in
      let emailAddress =
        (Option.map ~f:EmailAddressType.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let username =
        (Option.map ~f:UsernameType.of_xml) (Xml.child xml_arg0 "Username") in
      let id = (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?storage ?locale ?timeZoneId ?modifiedTimestamp ?createdTimestamp
        ?type_ ?status ?recycleBinFolderId ?rootFolderId ?organizationId
        ?surname ?givenName ?emailAddress ?username ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let storage = field_map json__ "Storage" UserStorageMetadata.of_json in
      let locale = field_map json__ "Locale" LocaleType.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneIdType.of_json in
      let modifiedTimestamp =
        field_map json__ "ModifiedTimestamp" TimestampType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let type_ = field_map json__ "Type" UserType.of_json in
      let status = field_map json__ "Status" UserStatusType.of_json in
      let recycleBinFolderId =
        field_map json__ "RecycleBinFolderId" ResourceIdType.of_json in
      let rootFolderId =
        field_map json__ "RootFolderId" ResourceIdType.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let surname = field_map json__ "Surname" UserAttributeValueType.of_json in
      let givenName =
        field_map json__ "GivenName" UserAttributeValueType.of_json in
      let emailAddress =
        field_map json__ "EmailAddress" EmailAddressType.of_json in
      let username = field_map json__ "Username" UsernameType.of_json in
      let id = field_map json__ "Id" IdType.of_json in
      make ?storage ?locale ?timeZoneId ?modifiedTimestamp ?createdTimestamp
        ?type_ ?status ?recycleBinFolderId ?rootFolderId ?organizationId
        ?surname ?givenName ?emailAddress ?username ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a user."]
module DocumentVersionMetadata =
  struct
    type nonrec t =
      {
      id: DocumentVersionIdType.t option
        [@ocaml.doc "The ID of the version."];
      name: ResourceNameType.t option [@ocaml.doc "The name of the version."];
      contentType: DocumentContentType.t option
        [@ocaml.doc "The content type of the document."];
      size: SizeType.t option
        [@ocaml.doc "The size of the document, in bytes."];
      signature: HashType.t option
        [@ocaml.doc "The signature of the document."];
      status: DocumentStatusType.t option
        [@ocaml.doc "The status of the document."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The timestamp when the document was first uploaded."];
      modifiedTimestamp: TimestampType.t option
        [@ocaml.doc "The timestamp when the document was last uploaded."];
      contentCreatedTimestamp: TimestampType.t option
        [@ocaml.doc
          "The timestamp when the content of the document was originally created."];
      contentModifiedTimestamp: TimestampType.t option
        [@ocaml.doc
          "The timestamp when the content of the document was modified."];
      creatorId: IdType.t option [@ocaml.doc "The ID of the creator."];
      thumbnail: DocumentThumbnailUrlMap.t option
        [@ocaml.doc "The thumbnail of the document."];
      source: DocumentSourceUrlMap.t option
        [@ocaml.doc "The source of the document."]}
    let make ?id =
      fun ?name ->
        fun ?contentType ->
          fun ?size ->
            fun ?signature ->
              fun ?status ->
                fun ?createdTimestamp ->
                  fun ?modifiedTimestamp ->
                    fun ?contentCreatedTimestamp ->
                      fun ?contentModifiedTimestamp ->
                        fun ?creatorId ->
                          fun ?thumbnail ->
                            fun ?source ->
                              fun () ->
                                {
                                  id;
                                  name;
                                  contentType;
                                  size;
                                  signature;
                                  status;
                                  createdTimestamp;
                                  modifiedTimestamp;
                                  contentCreatedTimestamp;
                                  contentModifiedTimestamp;
                                  creatorId;
                                  thumbnail;
                                  source
                                }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:DocumentVersionIdType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("ContentType",
          (Option.map x.contentType ~f:DocumentContentType.to_value));
        ("Size", (Option.map x.size ~f:SizeType.to_value));
        ("Signature", (Option.map x.signature ~f:HashType.to_value));
        ("Status", (Option.map x.status ~f:DocumentStatusType.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("ModifiedTimestamp",
          (Option.map x.modifiedTimestamp ~f:TimestampType.to_value));
        ("ContentCreatedTimestamp",
          (Option.map x.contentCreatedTimestamp ~f:TimestampType.to_value));
        ("ContentModifiedTimestamp",
          (Option.map x.contentModifiedTimestamp ~f:TimestampType.to_value));
        ("CreatorId", (Option.map x.creatorId ~f:IdType.to_value));
        ("Thumbnail",
          (Option.map x.thumbnail ~f:DocumentThumbnailUrlMap.to_value));
        ("Source", (Option.map x.source ~f:DocumentSourceUrlMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let source =
        (Option.map ~f:DocumentSourceUrlMap.of_xml)
          (Xml.child xml_arg0 "Source") in
      let thumbnail =
        (Option.map ~f:DocumentThumbnailUrlMap.of_xml)
          (Xml.child xml_arg0 "Thumbnail") in
      let creatorId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "CreatorId") in
      let contentModifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ContentModifiedTimestamp") in
      let contentCreatedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ContentCreatedTimestamp") in
      let modifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ModifiedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let status =
        (Option.map ~f:DocumentStatusType.of_xml)
          (Xml.child xml_arg0 "Status") in
      let signature =
        (Option.map ~f:HashType.of_xml) (Xml.child xml_arg0 "Signature") in
      let size = (Option.map ~f:SizeType.of_xml) (Xml.child xml_arg0 "Size") in
      let contentType =
        (Option.map ~f:DocumentContentType.of_xml)
          (Xml.child xml_arg0 "ContentType") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let id =
        (Option.map ~f:DocumentVersionIdType.of_xml)
          (Xml.child xml_arg0 "Id") in
      make ?source ?thumbnail ?creatorId ?contentModifiedTimestamp
        ?contentCreatedTimestamp ?modifiedTimestamp ?createdTimestamp ?status
        ?signature ?size ?contentType ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let source = field_map json__ "Source" DocumentSourceUrlMap.of_json in
      let thumbnail =
        field_map json__ "Thumbnail" DocumentThumbnailUrlMap.of_json in
      let creatorId = field_map json__ "CreatorId" IdType.of_json in
      let contentModifiedTimestamp =
        field_map json__ "ContentModifiedTimestamp" TimestampType.of_json in
      let contentCreatedTimestamp =
        field_map json__ "ContentCreatedTimestamp" TimestampType.of_json in
      let modifiedTimestamp =
        field_map json__ "ModifiedTimestamp" TimestampType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let status = field_map json__ "Status" DocumentStatusType.of_json in
      let signature = field_map json__ "Signature" HashType.of_json in
      let size = field_map json__ "Size" SizeType.of_json in
      let contentType =
        field_map json__ "ContentType" DocumentContentType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let id = field_map json__ "Id" DocumentVersionIdType.of_json in
      make ?source ?thumbnail ?creatorId ?contentModifiedTimestamp
        ?contentCreatedTimestamp ?modifiedTimestamp ?createdTimestamp ?status
        ?signature ?size ?contentType ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a version of a document."]
module ResourceStateType =
  struct
    type nonrec t =
      | ACTIVE 
      | RESTORING 
      | RECYCLING 
      | RECYCLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ACTIVE -> "ACTIVE"
      | RESTORING -> "RESTORING"
      | RECYCLING -> "RECYCLING"
      | RECYCLED -> "RECYCLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ACTIVE" -> ACTIVE
      | "RESTORING" -> RESTORING
      | "RECYCLING" -> RECYCLING
      | "RECYCLED" -> RECYCLED
      | 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 ResourceStateType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceStateType" j)
    let to_json = simple_to_json to_value
  end
module SharedLabels =
  struct
    type nonrec t = SharedLabel.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:20); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SharedLabel.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:SharedLabel.of_xml)
    let of_json j =
      list_of_json ~kind:"SharedLabels" ~of_json:SharedLabel.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchPrincipalRoleList =
  struct
    type nonrec t = PrincipalRoleType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:4); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PrincipalRoleType.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:PrincipalRoleType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchPrincipalRoleList"
        ~of_json:PrincipalRoleType.of_json j
    let to_json v = composed_to_json to_value v
  end
module PermissionInfo =
  struct
    type nonrec t =
      {
      role: RoleType.t option [@ocaml.doc "The role of the user."];
      type_: RolePermissionType.t option
        [@ocaml.doc "The type of permissions."]}
    let make ?role = fun ?type_ -> fun () -> { role; type_ }
    let to_value x =
      structure_to_value
        [("Role", (Option.map x.role ~f:RoleType.to_value));
        ("Type", (Option.map x.type_ ~f:RolePermissionType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        (Option.map ~f:RolePermissionType.of_xml) (Xml.child xml_arg0 "Type") in
      let role = (Option.map ~f:RoleType.of_xml) (Xml.child xml_arg0 "Role") in
      make ?type_ ?role ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map json__ "Type" RolePermissionType.of_json in
      let role = field_map json__ "Role" RoleType.of_json in
      make ?type_ ?role ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the permissions."]
module GroupMetadataList =
  struct
    type nonrec t = GroupMetadata.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:GroupMetadata.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:GroupMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"GroupMetadataList" ~of_json:GroupMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module UserMetadataList =
  struct
    type nonrec t = UserMetadata.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:UserMetadata.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:UserMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"UserMetadataList" ~of_json:UserMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceType =
  struct
    type nonrec t =
      | FOLDER 
      | DOCUMENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FOLDER -> "FOLDER"
      | DOCUMENT -> "DOCUMENT"
      | Non_static_id s -> s
    let of_string =
      function
      | "FOLDER" -> FOLDER
      | "DOCUMENT" -> DOCUMENT
      | 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 ResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceType" j)
    let to_json = simple_to_json to_value
  end
module CommentMetadata =
  struct
    type nonrec t =
      {
      commentId: CommentIdType.t option [@ocaml.doc "The ID of the comment."];
      contributor: User.t option
        [@ocaml.doc "The user who made the comment."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The timestamp that the comment was created."];
      commentStatus: CommentStatusType.t option
        [@ocaml.doc "The status of the comment."];
      recipientId: IdType.t option
        [@ocaml.doc "The ID of the user being replied to."];
      contributorId: IdType.t option
        [@ocaml.doc "The ID of the user who made the comment."]}
    let make ?commentId =
      fun ?contributor ->
        fun ?createdTimestamp ->
          fun ?commentStatus ->
            fun ?recipientId ->
              fun ?contributorId ->
                fun () ->
                  {
                    commentId;
                    contributor;
                    createdTimestamp;
                    commentStatus;
                    recipientId;
                    contributorId
                  }
    let to_value x =
      structure_to_value
        [("CommentId", (Option.map x.commentId ~f:CommentIdType.to_value));
        ("Contributor", (Option.map x.contributor ~f:User.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("CommentStatus",
          (Option.map x.commentStatus ~f:CommentStatusType.to_value));
        ("RecipientId", (Option.map x.recipientId ~f:IdType.to_value));
        ("ContributorId", (Option.map x.contributorId ~f:IdType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let contributorId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "ContributorId") in
      let recipientId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "RecipientId") in
      let commentStatus =
        (Option.map ~f:CommentStatusType.of_xml)
          (Xml.child xml_arg0 "CommentStatus") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let contributor =
        (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "Contributor") in
      let commentId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "CommentId") in
      make ?contributorId ?recipientId ?commentStatus ?createdTimestamp
        ?contributor ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let contributorId = field_map json__ "ContributorId" IdType.of_json in
      let recipientId = field_map json__ "RecipientId" IdType.of_json in
      let commentStatus =
        field_map json__ "CommentStatus" CommentStatusType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let contributor = field_map json__ "Contributor" User.of_json in
      let commentId = field_map json__ "CommentId" CommentIdType.of_json in
      make ?contributorId ?recipientId ?commentStatus ?createdTimestamp
        ?contributor ?commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the metadata of a comment."]
module DocumentMetadata =
  struct
    type nonrec t =
      {
      id: ResourceIdType.t option [@ocaml.doc "The ID of the document."];
      creatorId: IdType.t option [@ocaml.doc "The ID of the creator."];
      parentFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the parent folder."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the document was created."];
      modifiedTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the document was updated."];
      latestVersionMetadata: DocumentVersionMetadata.t option
        [@ocaml.doc "The latest version of the document."];
      resourceState: ResourceStateType.t option
        [@ocaml.doc "The resource state."];
      labels: SharedLabels.t option
        [@ocaml.doc "List of labels on the document."]}
    let make ?id =
      fun ?creatorId ->
        fun ?parentFolderId ->
          fun ?createdTimestamp ->
            fun ?modifiedTimestamp ->
              fun ?latestVersionMetadata ->
                fun ?resourceState ->
                  fun ?labels ->
                    fun () ->
                      {
                        id;
                        creatorId;
                        parentFolderId;
                        createdTimestamp;
                        modifiedTimestamp;
                        latestVersionMetadata;
                        resourceState;
                        labels
                      }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceIdType.to_value));
        ("CreatorId", (Option.map x.creatorId ~f:IdType.to_value));
        ("ParentFolderId",
          (Option.map x.parentFolderId ~f:ResourceIdType.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("ModifiedTimestamp",
          (Option.map x.modifiedTimestamp ~f:TimestampType.to_value));
        ("LatestVersionMetadata",
          (Option.map x.latestVersionMetadata
             ~f:DocumentVersionMetadata.to_value));
        ("ResourceState",
          (Option.map x.resourceState ~f:ResourceStateType.to_value));
        ("Labels", (Option.map x.labels ~f:SharedLabels.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let labels =
        (Option.map ~f:SharedLabels.of_xml) (Xml.child xml_arg0 "Labels") in
      let resourceState =
        (Option.map ~f:ResourceStateType.of_xml)
          (Xml.child xml_arg0 "ResourceState") in
      let latestVersionMetadata =
        (Option.map ~f:DocumentVersionMetadata.of_xml)
          (Xml.child xml_arg0 "LatestVersionMetadata") in
      let modifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ModifiedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let parentFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ParentFolderId") in
      let creatorId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "CreatorId") in
      let id =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?labels ?resourceState ?latestVersionMetadata ?modifiedTimestamp
        ?createdTimestamp ?parentFolderId ?creatorId ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let labels = field_map json__ "Labels" SharedLabels.of_json in
      let resourceState =
        field_map json__ "ResourceState" ResourceStateType.of_json in
      let latestVersionMetadata =
        field_map json__ "LatestVersionMetadata"
          DocumentVersionMetadata.of_json in
      let modifiedTimestamp =
        field_map json__ "ModifiedTimestamp" TimestampType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let parentFolderId =
        field_map json__ "ParentFolderId" ResourceIdType.of_json in
      let creatorId = field_map json__ "CreatorId" IdType.of_json in
      let id = field_map json__ "Id" ResourceIdType.of_json in
      make ?labels ?resourceState ?latestVersionMetadata ?modifiedTimestamp
        ?createdTimestamp ?parentFolderId ?creatorId ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the document."]
module FolderMetadata =
  struct
    type nonrec t =
      {
      id: ResourceIdType.t option [@ocaml.doc "The ID of the folder."];
      name: ResourceNameType.t option [@ocaml.doc "The name of the folder."];
      creatorId: IdType.t option [@ocaml.doc "The ID of the creator."];
      parentFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the parent folder."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the folder was created."];
      modifiedTimestamp: TimestampType.t option
        [@ocaml.doc "The time when the folder was updated."];
      resourceState: ResourceStateType.t option
        [@ocaml.doc "The resource state of the folder."];
      signature: HashType.t option
        [@ocaml.doc
          "The unique identifier created from the subfolders and documents of the folder."];
      labels: SharedLabels.t option
        [@ocaml.doc "List of labels on the folder."];
      size: SizeType.t option [@ocaml.doc "The size of the folder metadata."];
      latestVersionSize: SizeType.t option
        [@ocaml.doc "The size of the latest version of the folder metadata."]}
    let make ?id =
      fun ?name ->
        fun ?creatorId ->
          fun ?parentFolderId ->
            fun ?createdTimestamp ->
              fun ?modifiedTimestamp ->
                fun ?resourceState ->
                  fun ?signature ->
                    fun ?labels ->
                      fun ?size ->
                        fun ?latestVersionSize ->
                          fun () ->
                            {
                              id;
                              name;
                              creatorId;
                              parentFolderId;
                              createdTimestamp;
                              modifiedTimestamp;
                              resourceState;
                              signature;
                              labels;
                              size;
                              latestVersionSize
                            }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:ResourceIdType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("CreatorId", (Option.map x.creatorId ~f:IdType.to_value));
        ("ParentFolderId",
          (Option.map x.parentFolderId ~f:ResourceIdType.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("ModifiedTimestamp",
          (Option.map x.modifiedTimestamp ~f:TimestampType.to_value));
        ("ResourceState",
          (Option.map x.resourceState ~f:ResourceStateType.to_value));
        ("Signature", (Option.map x.signature ~f:HashType.to_value));
        ("Labels", (Option.map x.labels ~f:SharedLabels.to_value));
        ("Size", (Option.map x.size ~f:SizeType.to_value));
        ("LatestVersionSize",
          (Option.map x.latestVersionSize ~f:SizeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let latestVersionSize =
        (Option.map ~f:SizeType.of_xml)
          (Xml.child xml_arg0 "LatestVersionSize") in
      let size = (Option.map ~f:SizeType.of_xml) (Xml.child xml_arg0 "Size") in
      let labels =
        (Option.map ~f:SharedLabels.of_xml) (Xml.child xml_arg0 "Labels") in
      let signature =
        (Option.map ~f:HashType.of_xml) (Xml.child xml_arg0 "Signature") in
      let resourceState =
        (Option.map ~f:ResourceStateType.of_xml)
          (Xml.child xml_arg0 "ResourceState") in
      let modifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ModifiedTimestamp") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let parentFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ParentFolderId") in
      let creatorId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "CreatorId") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let id =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?latestVersionSize ?size ?labels ?signature ?resourceState
        ?modifiedTimestamp ?createdTimestamp ?parentFolderId ?creatorId ?name
        ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let latestVersionSize =
        field_map json__ "LatestVersionSize" SizeType.of_json in
      let size = field_map json__ "Size" SizeType.of_json in
      let labels = field_map json__ "Labels" SharedLabels.of_json in
      let signature = field_map json__ "Signature" HashType.of_json in
      let resourceState =
        field_map json__ "ResourceState" ResourceStateType.of_json in
      let modifiedTimestamp =
        field_map json__ "ModifiedTimestamp" TimestampType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let parentFolderId =
        field_map json__ "ParentFolderId" ResourceIdType.of_json in
      let creatorId = field_map json__ "CreatorId" IdType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let id = field_map json__ "Id" ResourceIdType.of_json in
      make ?latestVersionSize ?size ?labels ?signature ?resourceState
        ?modifiedTimestamp ?createdTimestamp ?parentFolderId ?creatorId ?name
        ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a folder."]
module ResponseItemType =
  struct
    type nonrec t =
      | DOCUMENT 
      | FOLDER 
      | COMMENT 
      | DOCUMENT_VERSION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DOCUMENT -> "DOCUMENT"
      | FOLDER -> "FOLDER"
      | COMMENT -> "COMMENT"
      | DOCUMENT_VERSION -> "DOCUMENT_VERSION"
      | Non_static_id s -> s
    let of_string =
      function
      | "DOCUMENT" -> DOCUMENT
      | "FOLDER" -> FOLDER
      | "COMMENT" -> COMMENT
      | "DOCUMENT_VERSION" -> DOCUMENT_VERSION
      | 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 ResponseItemType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResponseItemType" j)
    let to_json = simple_to_json to_value
  end
module ResponseItemWebUrl =
  struct
    type nonrec t = string
    let context_ = "ResponseItemWebUrl"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"[\\u0020-\\uFFFF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ResponseItemWebUrl" j
    let to_json = simple_to_json to_value
  end
module LongType =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module SearchAncestorId =
  struct
    type nonrec t = string
    let context_ = "SearchAncestorId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchAncestorId" j
    let to_json = simple_to_json to_value
  end
module SearchCollectionType =
  struct
    type nonrec t =
      | OWNED 
      | SHARED_WITH_ME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | OWNED -> "OWNED"
      | SHARED_WITH_ME -> "SHARED_WITH_ME"
      | Non_static_id s -> s
    let of_string =
      function
      | "OWNED" -> OWNED
      | "SHARED_WITH_ME" -> SHARED_WITH_ME
      | 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 SearchCollectionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SearchCollectionType" j)
    let to_json = simple_to_json to_value
  end
module ContentCategoryType =
  struct
    type nonrec t =
      | IMAGE 
      | DOCUMENT 
      | PDF 
      | SPREADSHEET 
      | PRESENTATION 
      | AUDIO 
      | VIDEO 
      | SOURCE_CODE 
      | OTHER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IMAGE -> "IMAGE"
      | DOCUMENT -> "DOCUMENT"
      | PDF -> "PDF"
      | SPREADSHEET -> "SPREADSHEET"
      | PRESENTATION -> "PRESENTATION"
      | AUDIO -> "AUDIO"
      | VIDEO -> "VIDEO"
      | SOURCE_CODE -> "SOURCE_CODE"
      | OTHER -> "OTHER"
      | Non_static_id s -> s
    let of_string =
      function
      | "IMAGE" -> IMAGE
      | "DOCUMENT" -> DOCUMENT
      | "PDF" -> PDF
      | "SPREADSHEET" -> SPREADSHEET
      | "PRESENTATION" -> PRESENTATION
      | "AUDIO" -> AUDIO
      | "VIDEO" -> VIDEO
      | "SOURCE_CODE" -> SOURCE_CODE
      | "OTHER" -> OTHER
      | 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 ContentCategoryType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ContentCategoryType" j)
    let to_json = simple_to_json to_value
  end
module SearchLabel =
  struct
    type nonrec t = string
    let context_ = "SearchLabel"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchLabel" j
    let to_json = simple_to_json to_value
  end
module SearchPrincipalType =
  struct
    type nonrec t =
      {
      id: IdType.t [@ocaml.doc "UserIds or GroupIds."];
      roles: SearchPrincipalRoleList.t option
        [@ocaml.doc "The Role of a User or Group."]}
    let context_ = "SearchPrincipalType"
    let make ?roles = fun ~id -> fun () -> { roles; id }
    let to_value x =
      structure_to_value
        [("Id", (Some (IdType.to_value x.id)));
        ("Roles", (Option.map x.roles ~f:SearchPrincipalRoleList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roles =
        (Option.map ~f:SearchPrincipalRoleList.of_xml)
          (Xml.child xml_arg0 "Roles") in
      let id = IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ?roles ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roles = field_map json__ "Roles" SearchPrincipalRoleList.of_json in
      let id = field_map_exn json__ "Id" IdType.of_json in make ?roles ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter based on UserIds or GroupIds."]
module SearchResourceType =
  struct
    type nonrec t =
      | FOLDER 
      | DOCUMENT 
      | COMMENT 
      | DOCUMENT_VERSION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FOLDER -> "FOLDER"
      | DOCUMENT -> "DOCUMENT"
      | COMMENT -> "COMMENT"
      | DOCUMENT_VERSION -> "DOCUMENT_VERSION"
      | Non_static_id s -> s
    let of_string =
      function
      | "FOLDER" -> FOLDER
      | "DOCUMENT" -> DOCUMENT
      | "COMMENT" -> COMMENT
      | "DOCUMENT_VERSION" -> DOCUMENT_VERSION
      | 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 SearchResourceType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SearchResourceType" j)
    let to_json = simple_to_json to_value
  end
module LanguageCodeType =
  struct
    type nonrec t =
      | AR 
      | BG 
      | BN 
      | DA 
      | DE 
      | CS 
      | EL 
      | EN 
      | ES 
      | FA 
      | FI 
      | FR 
      | HI 
      | HU 
      | ID 
      | IT 
      | JA 
      | KO 
      | LT 
      | LV 
      | NL 
      | NO 
      | PT 
      | RO 
      | RU 
      | SV 
      | SW 
      | TH 
      | TR 
      | ZH 
      | DEFAULT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | AR -> "AR"
      | BG -> "BG"
      | BN -> "BN"
      | DA -> "DA"
      | DE -> "DE"
      | CS -> "CS"
      | EL -> "EL"
      | EN -> "EN"
      | ES -> "ES"
      | FA -> "FA"
      | FI -> "FI"
      | FR -> "FR"
      | HI -> "HI"
      | HU -> "HU"
      | ID -> "ID"
      | IT -> "IT"
      | JA -> "JA"
      | KO -> "KO"
      | LT -> "LT"
      | LV -> "LV"
      | NL -> "NL"
      | NO -> "NO"
      | PT -> "PT"
      | RO -> "RO"
      | RU -> "RU"
      | SV -> "SV"
      | SW -> "SW"
      | TH -> "TH"
      | TR -> "TR"
      | ZH -> "ZH"
      | DEFAULT -> "DEFAULT"
      | Non_static_id s -> s
    let of_string =
      function
      | "AR" -> AR
      | "BG" -> BG
      | "BN" -> BN
      | "DA" -> DA
      | "DE" -> DE
      | "CS" -> CS
      | "EL" -> EL
      | "EN" -> EN
      | "ES" -> ES
      | "FA" -> FA
      | "FI" -> FI
      | "FR" -> FR
      | "HI" -> HI
      | "HU" -> HU
      | "ID" -> ID
      | "IT" -> IT
      | "JA" -> JA
      | "KO" -> KO
      | "LT" -> LT
      | "LV" -> LV
      | "NL" -> NL
      | "NO" -> NO
      | "PT" -> PT
      | "RO" -> RO
      | "RU" -> RU
      | "SV" -> SV
      | "SW" -> SW
      | "TH" -> TH
      | "TR" -> TR
      | "ZH" -> ZH
      | "DEFAULT" -> DEFAULT
      | 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 LanguageCodeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LanguageCodeType" j)
    let to_json = simple_to_json to_value
  end
module OrderByFieldType =
  struct
    type nonrec t =
      | RELEVANCE 
      | NAME 
      | SIZE 
      | CREATED_TIMESTAMP 
      | MODIFIED_TIMESTAMP 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RELEVANCE -> "RELEVANCE"
      | NAME -> "NAME"
      | SIZE -> "SIZE"
      | CREATED_TIMESTAMP -> "CREATED_TIMESTAMP"
      | MODIFIED_TIMESTAMP -> "MODIFIED_TIMESTAMP"
      | Non_static_id s -> s
    let of_string =
      function
      | "RELEVANCE" -> RELEVANCE
      | "NAME" -> NAME
      | "SIZE" -> SIZE
      | "CREATED_TIMESTAMP" -> CREATED_TIMESTAMP
      | "MODIFIED_TIMESTAMP" -> MODIFIED_TIMESTAMP
      | 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 OrderByFieldType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrderByFieldType" j)
    let to_json = simple_to_json to_value
  end
module SortOrder =
  struct
    type nonrec t =
      | ASC 
      | DESC 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | ASC -> "ASC" | DESC -> "DESC" | Non_static_id s -> s
    let of_string =
      function | "ASC" -> ASC | "DESC" -> DESC | 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 SortOrder" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SortOrder" j)
    let to_json = simple_to_json to_value
  end
module HeaderNameType =
  struct
    type nonrec t = string
    let context_ = "HeaderNameType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HeaderNameType" j
    let to_json = simple_to_json to_value
  end
module HeaderValueType =
  struct
    type nonrec t = string
    let context_ = "HeaderValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"HeaderValueType" j
    let to_json = simple_to_json to_value
  end
module ResourcePathComponent =
  struct
    type nonrec t =
      {
      id: IdType.t option [@ocaml.doc "The ID of the resource path."];
      name: ResourceNameType.t option
        [@ocaml.doc "The name of the resource path."]}
    let make ?id = fun ?name -> fun () -> { id; name }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:IdType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let id = (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?name ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let id = field_map json__ "Id" IdType.of_json in make ?name ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the resource path."]
module PermissionInfoList =
  struct
    type nonrec t = PermissionInfo.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:PermissionInfo.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:PermissionInfo.of_xml)
    let of_json j =
      list_of_json ~kind:"PermissionInfoList" ~of_json:PermissionInfo.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PrincipalType =
  struct
    type nonrec t =
      | USER 
      | GROUP 
      | INVITE 
      | ANONYMOUS 
      | ORGANIZATION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USER -> "USER"
      | GROUP -> "GROUP"
      | INVITE -> "INVITE"
      | ANONYMOUS -> "ANONYMOUS"
      | ORGANIZATION -> "ORGANIZATION"
      | Non_static_id s -> s
    let of_string =
      function
      | "USER" -> USER
      | "GROUP" -> GROUP
      | "INVITE" -> INVITE
      | "ANONYMOUS" -> ANONYMOUS
      | "ORGANIZATION" -> ORGANIZATION
      | 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 PrincipalType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PrincipalType" j)
    let to_json = simple_to_json to_value
  end
module SubscriptionEndPointType =
  struct
    type nonrec t = string
    let context_ = "SubscriptionEndPointType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SubscriptionEndPointType" j
    let to_json = simple_to_json to_value
  end
module SubscriptionProtocolType =
  struct
    type nonrec t =
      | HTTPS 
      | SQS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | HTTPS -> "HTTPS" | SQS -> "SQS" | Non_static_id s -> s
    let of_string =
      function | "HTTPS" -> HTTPS | "SQS" -> SQS | 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 SubscriptionProtocolType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SubscriptionProtocolType" j)
    let to_json = simple_to_json to_value
  end
module CommentTextType =
  struct
    type nonrec t = string
    let context_ = "CommentTextType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CommentTextType" j
    let to_json = simple_to_json to_value
  end
module CommentVisibilityType =
  struct
    type nonrec t =
      | PUBLIC 
      | PRIVATE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLIC -> "PUBLIC"
      | PRIVATE -> "PRIVATE"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLIC" -> PUBLIC
      | "PRIVATE" -> PRIVATE
      | 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 CommentVisibilityType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"CommentVisibilityType" j)
    let to_json = simple_to_json to_value
  end
module ActivityType =
  struct
    type nonrec t =
      | DOCUMENT_CHECKED_IN 
      | DOCUMENT_CHECKED_OUT 
      | DOCUMENT_RENAMED 
      | DOCUMENT_VERSION_UPLOADED 
      | DOCUMENT_VERSION_DELETED 
      | DOCUMENT_VERSION_VIEWED 
      | DOCUMENT_VERSION_DOWNLOADED 
      | DOCUMENT_RECYCLED 
      | DOCUMENT_RESTORED 
      | DOCUMENT_REVERTED 
      | DOCUMENT_SHARED 
      | DOCUMENT_UNSHARED 
      | DOCUMENT_SHARE_PERMISSION_CHANGED 
      | DOCUMENT_SHAREABLE_LINK_CREATED 
      | DOCUMENT_SHAREABLE_LINK_REMOVED 
      | DOCUMENT_SHAREABLE_LINK_PERMISSION_CHANGED 
      | DOCUMENT_MOVED 
      | DOCUMENT_COMMENT_ADDED 
      | DOCUMENT_COMMENT_DELETED 
      | DOCUMENT_ANNOTATION_ADDED 
      | DOCUMENT_ANNOTATION_DELETED 
      | FOLDER_CREATED 
      | FOLDER_DELETED 
      | FOLDER_RENAMED 
      | FOLDER_RECYCLED 
      | FOLDER_RESTORED 
      | FOLDER_SHARED 
      | FOLDER_UNSHARED 
      | FOLDER_SHARE_PERMISSION_CHANGED 
      | FOLDER_SHAREABLE_LINK_CREATED 
      | FOLDER_SHAREABLE_LINK_REMOVED 
      | FOLDER_SHAREABLE_LINK_PERMISSION_CHANGED 
      | FOLDER_MOVED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DOCUMENT_CHECKED_IN -> "DOCUMENT_CHECKED_IN"
      | DOCUMENT_CHECKED_OUT -> "DOCUMENT_CHECKED_OUT"
      | DOCUMENT_RENAMED -> "DOCUMENT_RENAMED"
      | DOCUMENT_VERSION_UPLOADED -> "DOCUMENT_VERSION_UPLOADED"
      | DOCUMENT_VERSION_DELETED -> "DOCUMENT_VERSION_DELETED"
      | DOCUMENT_VERSION_VIEWED -> "DOCUMENT_VERSION_VIEWED"
      | DOCUMENT_VERSION_DOWNLOADED -> "DOCUMENT_VERSION_DOWNLOADED"
      | DOCUMENT_RECYCLED -> "DOCUMENT_RECYCLED"
      | DOCUMENT_RESTORED -> "DOCUMENT_RESTORED"
      | DOCUMENT_REVERTED -> "DOCUMENT_REVERTED"
      | DOCUMENT_SHARED -> "DOCUMENT_SHARED"
      | DOCUMENT_UNSHARED -> "DOCUMENT_UNSHARED"
      | DOCUMENT_SHARE_PERMISSION_CHANGED ->
          "DOCUMENT_SHARE_PERMISSION_CHANGED"
      | DOCUMENT_SHAREABLE_LINK_CREATED -> "DOCUMENT_SHAREABLE_LINK_CREATED"
      | DOCUMENT_SHAREABLE_LINK_REMOVED -> "DOCUMENT_SHAREABLE_LINK_REMOVED"
      | DOCUMENT_SHAREABLE_LINK_PERMISSION_CHANGED ->
          "DOCUMENT_SHAREABLE_LINK_PERMISSION_CHANGED"
      | DOCUMENT_MOVED -> "DOCUMENT_MOVED"
      | DOCUMENT_COMMENT_ADDED -> "DOCUMENT_COMMENT_ADDED"
      | DOCUMENT_COMMENT_DELETED -> "DOCUMENT_COMMENT_DELETED"
      | DOCUMENT_ANNOTATION_ADDED -> "DOCUMENT_ANNOTATION_ADDED"
      | DOCUMENT_ANNOTATION_DELETED -> "DOCUMENT_ANNOTATION_DELETED"
      | FOLDER_CREATED -> "FOLDER_CREATED"
      | FOLDER_DELETED -> "FOLDER_DELETED"
      | FOLDER_RENAMED -> "FOLDER_RENAMED"
      | FOLDER_RECYCLED -> "FOLDER_RECYCLED"
      | FOLDER_RESTORED -> "FOLDER_RESTORED"
      | FOLDER_SHARED -> "FOLDER_SHARED"
      | FOLDER_UNSHARED -> "FOLDER_UNSHARED"
      | FOLDER_SHARE_PERMISSION_CHANGED -> "FOLDER_SHARE_PERMISSION_CHANGED"
      | FOLDER_SHAREABLE_LINK_CREATED -> "FOLDER_SHAREABLE_LINK_CREATED"
      | FOLDER_SHAREABLE_LINK_REMOVED -> "FOLDER_SHAREABLE_LINK_REMOVED"
      | FOLDER_SHAREABLE_LINK_PERMISSION_CHANGED ->
          "FOLDER_SHAREABLE_LINK_PERMISSION_CHANGED"
      | FOLDER_MOVED -> "FOLDER_MOVED"
      | Non_static_id s -> s
    let of_string =
      function
      | "DOCUMENT_CHECKED_IN" -> DOCUMENT_CHECKED_IN
      | "DOCUMENT_CHECKED_OUT" -> DOCUMENT_CHECKED_OUT
      | "DOCUMENT_RENAMED" -> DOCUMENT_RENAMED
      | "DOCUMENT_VERSION_UPLOADED" -> DOCUMENT_VERSION_UPLOADED
      | "DOCUMENT_VERSION_DELETED" -> DOCUMENT_VERSION_DELETED
      | "DOCUMENT_VERSION_VIEWED" -> DOCUMENT_VERSION_VIEWED
      | "DOCUMENT_VERSION_DOWNLOADED" -> DOCUMENT_VERSION_DOWNLOADED
      | "DOCUMENT_RECYCLED" -> DOCUMENT_RECYCLED
      | "DOCUMENT_RESTORED" -> DOCUMENT_RESTORED
      | "DOCUMENT_REVERTED" -> DOCUMENT_REVERTED
      | "DOCUMENT_SHARED" -> DOCUMENT_SHARED
      | "DOCUMENT_UNSHARED" -> DOCUMENT_UNSHARED
      | "DOCUMENT_SHARE_PERMISSION_CHANGED" ->
          DOCUMENT_SHARE_PERMISSION_CHANGED
      | "DOCUMENT_SHAREABLE_LINK_CREATED" -> DOCUMENT_SHAREABLE_LINK_CREATED
      | "DOCUMENT_SHAREABLE_LINK_REMOVED" -> DOCUMENT_SHAREABLE_LINK_REMOVED
      | "DOCUMENT_SHAREABLE_LINK_PERMISSION_CHANGED" ->
          DOCUMENT_SHAREABLE_LINK_PERMISSION_CHANGED
      | "DOCUMENT_MOVED" -> DOCUMENT_MOVED
      | "DOCUMENT_COMMENT_ADDED" -> DOCUMENT_COMMENT_ADDED
      | "DOCUMENT_COMMENT_DELETED" -> DOCUMENT_COMMENT_DELETED
      | "DOCUMENT_ANNOTATION_ADDED" -> DOCUMENT_ANNOTATION_ADDED
      | "DOCUMENT_ANNOTATION_DELETED" -> DOCUMENT_ANNOTATION_DELETED
      | "FOLDER_CREATED" -> FOLDER_CREATED
      | "FOLDER_DELETED" -> FOLDER_DELETED
      | "FOLDER_RENAMED" -> FOLDER_RENAMED
      | "FOLDER_RECYCLED" -> FOLDER_RECYCLED
      | "FOLDER_RESTORED" -> FOLDER_RESTORED
      | "FOLDER_SHARED" -> FOLDER_SHARED
      | "FOLDER_UNSHARED" -> FOLDER_UNSHARED
      | "FOLDER_SHARE_PERMISSION_CHANGED" -> FOLDER_SHARE_PERMISSION_CHANGED
      | "FOLDER_SHAREABLE_LINK_CREATED" -> FOLDER_SHAREABLE_LINK_CREATED
      | "FOLDER_SHAREABLE_LINK_REMOVED" -> FOLDER_SHAREABLE_LINK_REMOVED
      | "FOLDER_SHAREABLE_LINK_PERMISSION_CHANGED" ->
          FOLDER_SHAREABLE_LINK_PERMISSION_CHANGED
      | "FOLDER_MOVED" -> FOLDER_MOVED
      | 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 ActivityType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ActivityType" j)
    let to_json = simple_to_json to_value
  end
module BooleanType =
  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 Participants =
  struct
    type nonrec t =
      {
      users: UserMetadataList.t option [@ocaml.doc "The list of users."];
      groups: GroupMetadataList.t option
        [@ocaml.doc "The list of user groups."]}
    let make ?users = fun ?groups -> fun () -> { users; groups }
    let to_value x =
      structure_to_value
        [("Users", (Option.map x.users ~f:UserMetadataList.to_value));
        ("Groups", (Option.map x.groups ~f:GroupMetadataList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let groups =
        (Option.map ~f:GroupMetadataList.of_xml)
          (Xml.child xml_arg0 "Groups") in
      let users =
        (Option.map ~f:UserMetadataList.of_xml) (Xml.child xml_arg0 "Users") in
      make ?groups ?users ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let groups = field_map json__ "Groups" GroupMetadataList.of_json in
      let users = field_map json__ "Users" UserMetadataList.of_json in
      make ?groups ?users ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the users or user groups."]
module ResourceMetadata =
  struct
    type nonrec t =
      {
      type_: ResourceType.t option [@ocaml.doc "The type of resource."];
      name: ResourceNameType.t option
        [@ocaml.doc "The name of the resource."];
      originalName: ResourceNameType.t option
        [@ocaml.doc
          "The original name of the resource before a rename operation."];
      id: ResourceIdType.t option [@ocaml.doc "The ID of the resource."];
      versionId: DocumentVersionIdType.t option
        [@ocaml.doc
          "The version ID of the resource. This is an optional field and is filled for action on document version."];
      owner: UserMetadata.t option [@ocaml.doc "The owner of the resource."];
      parentId: ResourceIdType.t option
        [@ocaml.doc
          "The parent ID of the resource before a rename operation."]}
    let make ?type_ =
      fun ?name ->
        fun ?originalName ->
          fun ?id ->
            fun ?versionId ->
              fun ?owner ->
                fun ?parentId ->
                  fun () ->
                    {
                      type_;
                      name;
                      originalName;
                      id;
                      versionId;
                      owner;
                      parentId
                    }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ResourceType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("OriginalName",
          (Option.map x.originalName ~f:ResourceNameType.to_value));
        ("Id", (Option.map x.id ~f:ResourceIdType.to_value));
        ("VersionId",
          (Option.map x.versionId ~f:DocumentVersionIdType.to_value));
        ("Owner", (Option.map x.owner ~f:UserMetadata.to_value));
        ("ParentId", (Option.map x.parentId ~f:ResourceIdType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentId =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "ParentId") in
      let owner =
        (Option.map ~f:UserMetadata.of_xml) (Xml.child xml_arg0 "Owner") in
      let versionId =
        (Option.map ~f:DocumentVersionIdType.of_xml)
          (Xml.child xml_arg0 "VersionId") in
      let id =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "Id") in
      let originalName =
        (Option.map ~f:ResourceNameType.of_xml)
          (Xml.child xml_arg0 "OriginalName") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let type_ =
        (Option.map ~f:ResourceType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?parentId ?owner ?versionId ?id ?originalName ?name ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentId = field_map json__ "ParentId" ResourceIdType.of_json in
      let owner = field_map json__ "Owner" UserMetadata.of_json in
      let versionId =
        field_map json__ "VersionId" DocumentVersionIdType.of_json in
      let id = field_map json__ "Id" ResourceIdType.of_json in
      let originalName =
        field_map json__ "OriginalName" ResourceNameType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let type_ = field_map json__ "Type" ResourceType.of_json in
      make ?parentId ?owner ?versionId ?id ?originalName ?name ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the metadata of a resource."]
module MessageType =
  struct
    type nonrec t = string
    let context_ = "MessageType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MessageType" j
    let to_json = simple_to_json to_value
  end
module ShareStatusType =
  struct
    type nonrec t =
      | SUCCESS 
      | FAILURE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUCCESS -> "SUCCESS"
      | FAILURE -> "FAILURE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUCCESS" -> SUCCESS
      | "FAILURE" -> FAILURE
      | 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 ShareStatusType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ShareStatusType" j)
    let to_json = simple_to_json to_value
  end
module EntityIdList =
  struct
    type nonrec t = IdType.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:IdType.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:IdType.of_xml)
    let of_json j =
      list_of_json ~kind:"EntityIdList" ~of_json:IdType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorMessageType =
  struct
    type nonrec t = string
    let context_ = "ErrorMessageType"
    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:"ErrorMessageType" j
    let to_json = simple_to_json to_value
  end
module ResponseItem =
  struct
    type nonrec t =
      {
      resourceType: ResponseItemType.t option
        [@ocaml.doc "The type of item being returned."];
      webUrl: ResponseItemWebUrl.t option
        [@ocaml.doc "The webUrl of the item being returned."];
      documentMetadata: DocumentMetadata.t option
        [@ocaml.doc "The document that matches the query."];
      folderMetadata: FolderMetadata.t option
        [@ocaml.doc "The folder that matches the query."];
      commentMetadata: CommentMetadata.t option
        [@ocaml.doc "The comment that matches the query."];
      documentVersionMetadata: DocumentVersionMetadata.t option
        [@ocaml.doc "The document version that matches the metadata."]}
    let make ?resourceType =
      fun ?webUrl ->
        fun ?documentMetadata ->
          fun ?folderMetadata ->
            fun ?commentMetadata ->
              fun ?documentVersionMetadata ->
                fun () ->
                  {
                    resourceType;
                    webUrl;
                    documentMetadata;
                    folderMetadata;
                    commentMetadata;
                    documentVersionMetadata
                  }
    let to_value x =
      structure_to_value
        [("ResourceType",
           (Option.map x.resourceType ~f:ResponseItemType.to_value));
        ("WebUrl", (Option.map x.webUrl ~f:ResponseItemWebUrl.to_value));
        ("DocumentMetadata",
          (Option.map x.documentMetadata ~f:DocumentMetadata.to_value));
        ("FolderMetadata",
          (Option.map x.folderMetadata ~f:FolderMetadata.to_value));
        ("CommentMetadata",
          (Option.map x.commentMetadata ~f:CommentMetadata.to_value));
        ("DocumentVersionMetadata",
          (Option.map x.documentVersionMetadata
             ~f:DocumentVersionMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentVersionMetadata =
        (Option.map ~f:DocumentVersionMetadata.of_xml)
          (Xml.child xml_arg0 "DocumentVersionMetadata") in
      let commentMetadata =
        (Option.map ~f:CommentMetadata.of_xml)
          (Xml.child xml_arg0 "CommentMetadata") in
      let folderMetadata =
        (Option.map ~f:FolderMetadata.of_xml)
          (Xml.child xml_arg0 "FolderMetadata") in
      let documentMetadata =
        (Option.map ~f:DocumentMetadata.of_xml)
          (Xml.child xml_arg0 "DocumentMetadata") in
      let webUrl =
        (Option.map ~f:ResponseItemWebUrl.of_xml)
          (Xml.child xml_arg0 "WebUrl") in
      let resourceType =
        (Option.map ~f:ResponseItemType.of_xml)
          (Xml.child xml_arg0 "ResourceType") in
      make ?documentVersionMetadata ?commentMetadata ?folderMetadata
        ?documentMetadata ?webUrl ?resourceType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentVersionMetadata =
        field_map json__ "DocumentVersionMetadata"
          DocumentVersionMetadata.of_json in
      let commentMetadata =
        field_map json__ "CommentMetadata" CommentMetadata.of_json in
      let folderMetadata =
        field_map json__ "FolderMetadata" FolderMetadata.of_json in
      let documentMetadata =
        field_map json__ "DocumentMetadata" DocumentMetadata.of_json in
      let webUrl = field_map json__ "WebUrl" ResponseItemWebUrl.of_json in
      let resourceType =
        field_map json__ "ResourceType" ResponseItemType.of_json in
      make ?documentVersionMetadata ?commentMetadata ?folderMetadata
        ?documentMetadata ?webUrl ?resourceType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List of Documents, Folders, Comments, and Document Versions matching the query."]
module AdditionalResponseFieldType =
  struct
    type nonrec t =
      | WEBURL 
      | Non_static_id of string 
    let make i = i
    let to_string = function | WEBURL -> "WEBURL" | Non_static_id s -> s
    let of_string = function | "WEBURL" -> WEBURL | 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 AdditionalResponseFieldType"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AdditionalResponseFieldType" j)
    let to_json = simple_to_json to_value
  end
module DateRangeType =
  struct
    type nonrec t =
      {
      startValue: TimestampType.t option
        [@ocaml.doc "Timestamp range start value (in epochs)"];
      endValue: TimestampType.t option
        [@ocaml.doc "Timestamp range end value (in epochs)."]}
    let make ?startValue =
      fun ?endValue -> fun () -> { startValue; endValue }
    let to_value x =
      structure_to_value
        [("StartValue", (Option.map x.startValue ~f:TimestampType.to_value));
        ("EndValue", (Option.map x.endValue ~f:TimestampType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endValue =
        (Option.map ~f:TimestampType.of_xml) (Xml.child xml_arg0 "EndValue") in
      let startValue =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "StartValue") in
      make ?endValue ?startValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endValue = field_map json__ "EndValue" TimestampType.of_json in
      let startValue = field_map json__ "StartValue" TimestampType.of_json in
      make ?endValue ?startValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters results based on timestamp range (in epochs)."]
module LongRangeType =
  struct
    type nonrec t =
      {
      startValue: LongType.t option
        [@ocaml.doc "The size start range (in bytes)."];
      endValue: LongType.t option
        [@ocaml.doc "The size end range (in bytes)."]}
    let make ?startValue =
      fun ?endValue -> fun () -> { startValue; endValue }
    let to_value x =
      structure_to_value
        [("StartValue", (Option.map x.startValue ~f:LongType.to_value));
        ("EndValue", (Option.map x.endValue ~f:LongType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let endValue =
        (Option.map ~f:LongType.of_xml) (Xml.child xml_arg0 "EndValue") in
      let startValue =
        (Option.map ~f:LongType.of_xml) (Xml.child xml_arg0 "StartValue") in
      make ?endValue ?startValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let endValue = field_map json__ "EndValue" LongType.of_json in
      let startValue = field_map json__ "StartValue" LongType.of_json in
      make ?endValue ?startValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filter based on size (in bytes)."]
module SearchAncestorIdList =
  struct
    type nonrec t = SearchAncestorId.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchAncestorId.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:SearchAncestorId.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchAncestorIdList"
        ~of_json:SearchAncestorId.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchCollectionTypeList =
  struct
    type nonrec t = SearchCollectionType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:2); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchCollectionType.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:SearchCollectionType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchCollectionTypeList"
        ~of_json:SearchCollectionType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchContentCategoryTypeList =
  struct
    type nonrec t = ContentCategoryType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:9); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ContentCategoryType.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:ContentCategoryType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchContentCategoryTypeList"
        ~of_json:ContentCategoryType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchLabelList =
  struct
    type nonrec t = SearchLabel.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchLabel.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:SearchLabel.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchLabelList" ~of_json:SearchLabel.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchPrincipalTypeList =
  struct
    type nonrec t = SearchPrincipalType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:10); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchPrincipalType.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:SearchPrincipalType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchPrincipalTypeList"
        ~of_json:SearchPrincipalType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchResourceTypeList =
  struct
    type nonrec t = SearchResourceType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:4); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchResourceType.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:SearchResourceType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchResourceTypeList"
        ~of_json:SearchResourceType.of_json j
    let to_json v = composed_to_json to_value v
  end
module TextLocaleTypeList =
  struct
    type nonrec t = LanguageCodeType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max: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:LanguageCodeType.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:LanguageCodeType.of_xml)
    let of_json j =
      list_of_json ~kind:"TextLocaleTypeList"
        ~of_json:LanguageCodeType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchQueryScopeType =
  struct
    type nonrec t =
      | NAME 
      | CONTENT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | NAME -> "NAME" | CONTENT -> "CONTENT" | Non_static_id s -> s
    let of_string =
      function | "NAME" -> NAME | "CONTENT" -> CONTENT | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration SearchQueryScopeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SearchQueryScopeType" j)
    let to_json = simple_to_json to_value
  end
module SearchSortResult =
  struct
    type nonrec t =
      {
      field: OrderByFieldType.t option
        [@ocaml.doc "Sort search results based on this field name."];
      order: SortOrder.t option [@ocaml.doc "Sort direction."]}
    let make ?field = fun ?order -> fun () -> { field; order }
    let to_value x =
      structure_to_value
        [("Field", (Option.map x.field ~f:OrderByFieldType.to_value));
        ("Order", (Option.map x.order ~f:SortOrder.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let order =
        (Option.map ~f:SortOrder.of_xml) (Xml.child xml_arg0 "Order") in
      let field =
        (Option.map ~f:OrderByFieldType.of_xml) (Xml.child xml_arg0 "Field") in
      make ?order ?field ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let order = field_map json__ "Order" SortOrder.of_json in
      let field = field_map json__ "Field" OrderByFieldType.of_json in
      make ?order ?field ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The result of the sort operation."]
module SignedHeaderMap =
  struct
    type nonrec t = (HeaderNameType.t * HeaderValueType.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 ->
                            ((HeaderNameType.of_string chopped),
                              (HeaderValueType.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (HeaderNameType.to_value x) |>
                    (fun x ->
                       (HeaderValueType.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:HeaderNameType.of_string
        ~of_json:HeaderValueType.of_json j
    let to_json v = composed_to_json to_value v
  end
module CustomMetadataKeyType =
  struct
    type nonrec t = string
    let context_ = "CustomMetadataKeyType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:56) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9._+-/=][a-zA-Z0-9 ._+-/=]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomMetadataKeyType" j
    let to_json = simple_to_json to_value
  end
module CustomMetadataValueType =
  struct
    type nonrec t = string
    let context_ = "CustomMetadataValueType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9._+-/=][a-zA-Z0-9 ._+-/=]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CustomMetadataValueType" j
    let to_json = simple_to_json to_value
  end
module ResourcePathComponentList =
  struct
    type nonrec t = ResourcePathComponent.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:ResourcePathComponent.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:ResourcePathComponent.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcePathComponentList"
        ~of_json:ResourcePathComponent.of_json j
    let to_json v = composed_to_json to_value v
  end
module Principal =
  struct
    type nonrec t =
      {
      id: IdType.t option [@ocaml.doc "The ID of the resource."];
      type_: PrincipalType.t option [@ocaml.doc "The type of resource."];
      roles: PermissionInfoList.t option
        [@ocaml.doc "The permission information for the resource."]}
    let make ?id = fun ?type_ -> fun ?roles -> fun () -> { id; type_; roles }
    let to_value x =
      structure_to_value
        [("Id", (Option.map x.id ~f:IdType.to_value));
        ("Type", (Option.map x.type_ ~f:PrincipalType.to_value));
        ("Roles", (Option.map x.roles ~f:PermissionInfoList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roles =
        (Option.map ~f:PermissionInfoList.of_xml)
          (Xml.child xml_arg0 "Roles") in
      let type_ =
        (Option.map ~f:PrincipalType.of_xml) (Xml.child xml_arg0 "Type") in
      let id = (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "Id") in
      make ?roles ?type_ ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roles = field_map json__ "Roles" PermissionInfoList.of_json in
      let type_ = field_map json__ "Type" PrincipalType.of_json in
      let id = field_map json__ "Id" IdType.of_json in
      make ?roles ?type_ ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a resource."]
module Subscription =
  struct
    type nonrec t =
      {
      subscriptionId: IdType.t option
        [@ocaml.doc "The ID of the subscription."];
      endPoint: SubscriptionEndPointType.t option
        [@ocaml.doc "The endpoint of the subscription."];
      protocol: SubscriptionProtocolType.t option
        [@ocaml.doc "The protocol of the subscription."]}
    let make ?subscriptionId =
      fun ?endPoint ->
        fun ?protocol -> fun () -> { subscriptionId; endPoint; protocol }
    let to_value x =
      structure_to_value
        [("SubscriptionId", (Option.map x.subscriptionId ~f:IdType.to_value));
        ("EndPoint",
          (Option.map x.endPoint ~f:SubscriptionEndPointType.to_value));
        ("Protocol",
          (Option.map x.protocol ~f:SubscriptionProtocolType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let protocol =
        (Option.map ~f:SubscriptionProtocolType.of_xml)
          (Xml.child xml_arg0 "Protocol") in
      let endPoint =
        (Option.map ~f:SubscriptionEndPointType.of_xml)
          (Xml.child xml_arg0 "EndPoint") in
      let subscriptionId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "SubscriptionId") in
      make ?protocol ?endPoint ?subscriptionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let protocol =
        field_map json__ "Protocol" SubscriptionProtocolType.of_json in
      let endPoint =
        field_map json__ "EndPoint" SubscriptionEndPointType.of_json in
      let subscriptionId = field_map json__ "SubscriptionId" IdType.of_json in
      make ?protocol ?endPoint ?subscriptionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a subscription."]
module Comment =
  struct
    type nonrec t =
      {
      commentId: CommentIdType.t option [@ocaml.doc "The ID of the comment."];
      parentId: CommentIdType.t option
        [@ocaml.doc "The ID of the parent comment."];
      threadId: CommentIdType.t option
        [@ocaml.doc "The ID of the root comment in the thread."];
      text: CommentTextType.t option [@ocaml.doc "The text of the comment."];
      contributor: User.t option
        [@ocaml.doc "The details of the user who made the comment."];
      createdTimestamp: TimestampType.t option
        [@ocaml.doc "The time that the comment was created."];
      status: CommentStatusType.t option
        [@ocaml.doc "The status of the comment."];
      visibility: CommentVisibilityType.t option
        [@ocaml.doc
          "The visibility of the comment. Options are either PRIVATE, where the comment is visible only to the comment author and document owner and co-owners, or PUBLIC, where the comment is visible to document owners, co-owners, and contributors."];
      recipientId: IdType.t option
        [@ocaml.doc
          "If the comment is a reply to another user's comment, this field contains the user ID of the user being replied to."]}
    let make ?commentId =
      fun ?parentId ->
        fun ?threadId ->
          fun ?text ->
            fun ?contributor ->
              fun ?createdTimestamp ->
                fun ?status ->
                  fun ?visibility ->
                    fun ?recipientId ->
                      fun () ->
                        {
                          commentId;
                          parentId;
                          threadId;
                          text;
                          contributor;
                          createdTimestamp;
                          status;
                          visibility;
                          recipientId
                        }
    let to_value x =
      structure_to_value
        [("CommentId", (Option.map x.commentId ~f:CommentIdType.to_value));
        ("ParentId", (Option.map x.parentId ~f:CommentIdType.to_value));
        ("ThreadId", (Option.map x.threadId ~f:CommentIdType.to_value));
        ("Text", (Option.map x.text ~f:CommentTextType.to_value));
        ("Contributor", (Option.map x.contributor ~f:User.to_value));
        ("CreatedTimestamp",
          (Option.map x.createdTimestamp ~f:TimestampType.to_value));
        ("Status", (Option.map x.status ~f:CommentStatusType.to_value));
        ("Visibility",
          (Option.map x.visibility ~f:CommentVisibilityType.to_value));
        ("RecipientId", (Option.map x.recipientId ~f:IdType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recipientId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "RecipientId") in
      let visibility =
        (Option.map ~f:CommentVisibilityType.of_xml)
          (Xml.child xml_arg0 "Visibility") in
      let status =
        (Option.map ~f:CommentStatusType.of_xml)
          (Xml.child xml_arg0 "Status") in
      let createdTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "CreatedTimestamp") in
      let contributor =
        (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "Contributor") in
      let text =
        (Option.map ~f:CommentTextType.of_xml) (Xml.child xml_arg0 "Text") in
      let threadId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "ThreadId") in
      let parentId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "ParentId") in
      let commentId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "CommentId") in
      make ?recipientId ?visibility ?status ?createdTimestamp ?contributor
        ?text ?threadId ?parentId ?commentId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recipientId = field_map json__ "RecipientId" IdType.of_json in
      let visibility =
        field_map json__ "Visibility" CommentVisibilityType.of_json in
      let status = field_map json__ "Status" CommentStatusType.of_json in
      let createdTimestamp =
        field_map json__ "CreatedTimestamp" TimestampType.of_json in
      let contributor = field_map json__ "Contributor" User.of_json in
      let text = field_map json__ "Text" CommentTextType.of_json in
      let threadId = field_map json__ "ThreadId" CommentIdType.of_json in
      let parentId = field_map json__ "ParentId" CommentIdType.of_json in
      let commentId = field_map json__ "CommentId" CommentIdType.of_json in
      make ?recipientId ?visibility ?status ?createdTimestamp ?contributor
        ?text ?threadId ?parentId ?commentId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes a comment."]
module Activity =
  struct
    type nonrec t =
      {
      type_: ActivityType.t option [@ocaml.doc "The activity type."];
      timeStamp: TimestampType.t option
        [@ocaml.doc "The timestamp when the action was performed."];
      isIndirectActivity: BooleanType.t option
        [@ocaml.doc
          "Indicates whether an activity is indirect or direct. An indirect activity results from a direct activity performed on a parent resource. For example, sharing a parent folder (the direct activity) shares all of the subfolders and documents within the parent folder (the indirect activity)."];
      organizationId: IdType.t option
        [@ocaml.doc "The ID of the organization."];
      initiator: UserMetadata.t option
        [@ocaml.doc "The user who performed the action."];
      participants: Participants.t option
        [@ocaml.doc
          "The list of users or groups impacted by this action. This is an optional field and is filled for the following sharing activities: DOCUMENT_SHARED, DOCUMENT_SHARED, DOCUMENT_UNSHARED, FOLDER_SHARED, FOLDER_UNSHARED."];
      resourceMetadata: ResourceMetadata.t option
        [@ocaml.doc
          "The metadata of the resource involved in the user action."];
      originalParent: ResourceMetadata.t option
        [@ocaml.doc
          "The original parent of the resource. This is an optional field and is filled for move activities."];
      commentMetadata: CommentMetadata.t option
        [@ocaml.doc
          "Metadata of the commenting activity. This is an optional field and is filled for commenting activities."]}
    let make ?type_ =
      fun ?timeStamp ->
        fun ?isIndirectActivity ->
          fun ?organizationId ->
            fun ?initiator ->
              fun ?participants ->
                fun ?resourceMetadata ->
                  fun ?originalParent ->
                    fun ?commentMetadata ->
                      fun () ->
                        {
                          type_;
                          timeStamp;
                          isIndirectActivity;
                          organizationId;
                          initiator;
                          participants;
                          resourceMetadata;
                          originalParent;
                          commentMetadata
                        }
    let to_value x =
      structure_to_value
        [("Type", (Option.map x.type_ ~f:ActivityType.to_value));
        ("TimeStamp", (Option.map x.timeStamp ~f:TimestampType.to_value));
        ("IsIndirectActivity",
          (Option.map x.isIndirectActivity ~f:BooleanType.to_value));
        ("OrganizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("Initiator", (Option.map x.initiator ~f:UserMetadata.to_value));
        ("Participants",
          (Option.map x.participants ~f:Participants.to_value));
        ("ResourceMetadata",
          (Option.map x.resourceMetadata ~f:ResourceMetadata.to_value));
        ("OriginalParent",
          (Option.map x.originalParent ~f:ResourceMetadata.to_value));
        ("CommentMetadata",
          (Option.map x.commentMetadata ~f:CommentMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentMetadata =
        (Option.map ~f:CommentMetadata.of_xml)
          (Xml.child xml_arg0 "CommentMetadata") in
      let originalParent =
        (Option.map ~f:ResourceMetadata.of_xml)
          (Xml.child xml_arg0 "OriginalParent") in
      let resourceMetadata =
        (Option.map ~f:ResourceMetadata.of_xml)
          (Xml.child xml_arg0 "ResourceMetadata") in
      let participants =
        (Option.map ~f:Participants.of_xml)
          (Xml.child xml_arg0 "Participants") in
      let initiator =
        (Option.map ~f:UserMetadata.of_xml) (Xml.child xml_arg0 "Initiator") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "OrganizationId") in
      let isIndirectActivity =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "IsIndirectActivity") in
      let timeStamp =
        (Option.map ~f:TimestampType.of_xml) (Xml.child xml_arg0 "TimeStamp") in
      let type_ =
        (Option.map ~f:ActivityType.of_xml) (Xml.child xml_arg0 "Type") in
      make ?commentMetadata ?originalParent ?resourceMetadata ?participants
        ?initiator ?organizationId ?isIndirectActivity ?timeStamp ?type_ ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentMetadata =
        field_map json__ "CommentMetadata" CommentMetadata.of_json in
      let originalParent =
        field_map json__ "OriginalParent" ResourceMetadata.of_json in
      let resourceMetadata =
        field_map json__ "ResourceMetadata" ResourceMetadata.of_json in
      let participants = field_map json__ "Participants" Participants.of_json in
      let initiator = field_map json__ "Initiator" UserMetadata.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let isIndirectActivity =
        field_map json__ "IsIndirectActivity" BooleanType.of_json in
      let timeStamp = field_map json__ "TimeStamp" TimestampType.of_json in
      let type_ = field_map json__ "Type" ActivityType.of_json in
      make ?commentMetadata ?originalParent ?resourceMetadata ?participants
        ?initiator ?organizationId ?isIndirectActivity ?timeStamp ?type_ ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the activity information."]
module ShareResult =
  struct
    type nonrec t =
      {
      principalId: IdType.t option [@ocaml.doc "The ID of the principal."];
      inviteePrincipalId: IdType.t option
        [@ocaml.doc "The ID of the invited user."];
      role: RoleType.t option [@ocaml.doc "The role."];
      status: ShareStatusType.t option [@ocaml.doc "The status."];
      shareId: ResourceIdType.t option
        [@ocaml.doc "The ID of the resource that was shared."];
      statusMessage: MessageType.t option [@ocaml.doc "The status message."]}
    let make ?principalId =
      fun ?inviteePrincipalId ->
        fun ?role ->
          fun ?status ->
            fun ?shareId ->
              fun ?statusMessage ->
                fun () ->
                  {
                    principalId;
                    inviteePrincipalId;
                    role;
                    status;
                    shareId;
                    statusMessage
                  }
    let to_value x =
      structure_to_value
        [("PrincipalId", (Option.map x.principalId ~f:IdType.to_value));
        ("InviteePrincipalId",
          (Option.map x.inviteePrincipalId ~f:IdType.to_value));
        ("Role", (Option.map x.role ~f:RoleType.to_value));
        ("Status", (Option.map x.status ~f:ShareStatusType.to_value));
        ("ShareId", (Option.map x.shareId ~f:ResourceIdType.to_value));
        ("StatusMessage",
          (Option.map x.statusMessage ~f:MessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusMessage =
        (Option.map ~f:MessageType.of_xml)
          (Xml.child xml_arg0 "StatusMessage") in
      let shareId =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "ShareId") in
      let status =
        (Option.map ~f:ShareStatusType.of_xml) (Xml.child xml_arg0 "Status") in
      let role = (Option.map ~f:RoleType.of_xml) (Xml.child xml_arg0 "Role") in
      let inviteePrincipalId =
        (Option.map ~f:IdType.of_xml)
          (Xml.child xml_arg0 "InviteePrincipalId") in
      let principalId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "PrincipalId") in
      make ?statusMessage ?shareId ?status ?role ?inviteePrincipalId
        ?principalId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusMessage =
        field_map json__ "StatusMessage" MessageType.of_json in
      let shareId = field_map json__ "ShareId" ResourceIdType.of_json in
      let status = field_map json__ "Status" ShareStatusType.of_json in
      let role = field_map json__ "Role" RoleType.of_json in
      let inviteePrincipalId =
        field_map json__ "InviteePrincipalId" IdType.of_json in
      let principalId = field_map json__ "PrincipalId" IdType.of_json in
      make ?statusMessage ?shareId ?status ?role ?inviteePrincipalId
        ?principalId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the share results of a resource."]
module SharePrincipal =
  struct
    type nonrec t =
      {
      id: IdType.t [@ocaml.doc "The ID of the recipient."];
      type_: PrincipalType.t [@ocaml.doc "The type of the recipient."];
      role: RoleType.t [@ocaml.doc "The role of the recipient."]}
    let context_ = "SharePrincipal"
    let make ~id = fun ~type_ -> fun ~role -> fun () -> { id; type_; role }
    let to_value x =
      structure_to_value
        [("Id", (Some (IdType.to_value x.id)));
        ("Type", (Some (PrincipalType.to_value x.type_)));
        ("Role", (Some (RoleType.to_value x.role)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let role =
        RoleType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Role") in
      let type_ =
        PrincipalType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Type") in
      let id = IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~role ~type_ ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let role = field_map_exn json__ "Role" RoleType.of_json in
      let type_ = field_map_exn json__ "Type" PrincipalType.of_json in
      let id = field_map_exn json__ "Id" IdType.of_json in
      make ~role ~type_ ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the recipient type and ID, if available."]
module DeactivatingLastSystemUserException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The last user in the organization is being deactivated."]
module EntityNotExistsException =
  struct
    type nonrec t =
      {
      message: ErrorMessageType.t option ;
      entityIds: EntityIdList.t option
        [@ocaml.doc "The IDs of the non-existent resources."]}
    let make ?message = fun ?entityIds -> fun () -> { message; entityIds }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value));
        ("EntityIds", (Option.map x.entityIds ~f:EntityIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let entityIds =
        (Option.map ~f:EntityIdList.of_xml) (Xml.child xml_arg0 "EntityIds") in
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?entityIds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let entityIds = field_map json__ "EntityIds" EntityIdList.of_json in
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?entityIds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource does not exist."]
module FailedDependencyException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The Directory Service cannot reach an on-premises instance. Or a dependency under the control of the organization is failing, such as a connected Active Directory."]
module IllegalUserStateException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The user is undergoing transfer of ownership."]
module InvalidArgumentException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The pagination marker or limit fields are not valid."]
module ProhibitedStateException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The specified document version is not in the INITIALIZED state."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more of the dependencies is unavailable."]
module UnauthorizedOperationException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The operation is not permitted."]
module UnauthorizedResourceAccessException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The caller does not have access to perform the action on the resource."]
module AuthenticationHeaderType =
  struct
    type nonrec t = string
    let context_ = "AuthenticationHeaderType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:8199) >>=
             (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:"AuthenticationHeaderType" j
    let to_json = simple_to_json to_value
  end
module BooleanEnumType =
  struct
    type nonrec t =
      | TRUE 
      | FALSE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | TRUE -> "TRUE" | FALSE -> "FALSE" | Non_static_id s -> s
    let of_string =
      function | "TRUE" -> TRUE | "FALSE" -> FALSE | 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 BooleanEnumType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BooleanEnumType" j)
    let to_json = simple_to_json to_value
  end
module DocumentVersionStatus =
  struct
    type nonrec t =
      | ACTIVE 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ACTIVE -> "ACTIVE" | Non_static_id s -> s
    let of_string = function | "ACTIVE" -> ACTIVE | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration DocumentVersionStatus" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"DocumentVersionStatus" j)
    let to_json = simple_to_json to_value
  end
module NextMarkerType =
  struct
    type nonrec t = string
    let context_ = "NextMarkerType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"[\\d]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"NextMarkerType" j
    let to_json = simple_to_json to_value
  end
module ResponseItemsList =
  struct
    type nonrec t = ResponseItem.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:100); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ResponseItem.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:ResponseItem.of_xml)
    let of_json j =
      list_of_json ~kind:"ResponseItemsList" ~of_json:ResponseItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module AdditionalResponseFieldsList =
  struct
    type nonrec t = AdditionalResponseFieldType.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:AdditionalResponseFieldType.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:AdditionalResponseFieldType.of_xml)
    let of_json j =
      list_of_json ~kind:"AdditionalResponseFieldsList"
        ~of_json:AdditionalResponseFieldType.of_json j
    let to_json v = composed_to_json to_value v
  end
module Filters =
  struct
    type nonrec t =
      {
      textLocales: TextLocaleTypeList.t option
        [@ocaml.doc "Filters by the locale of the content or comment."];
      contentCategories: SearchContentCategoryTypeList.t option
        [@ocaml.doc "Filters by content category."];
      resourceTypes: SearchResourceTypeList.t option
        [@ocaml.doc "Filters based on entity type."];
      labels: SearchLabelList.t option
        [@ocaml.doc "Filter by labels using exact match."];
      principals: SearchPrincipalTypeList.t option
        [@ocaml.doc "Filter based on UserIds or GroupIds."];
      ancestorIds: SearchAncestorIdList.t option
        [@ocaml.doc "Filter based on resource\226\128\153s path."];
      searchCollectionTypes: SearchCollectionTypeList.t option
        [@ocaml.doc "Filter based on file groupings."];
      sizeRange: LongRangeType.t option
        [@ocaml.doc "Filter based on size (in bytes)."];
      createdRange: DateRangeType.t option
        [@ocaml.doc
          "Filter based on resource\226\128\153s creation timestamp."];
      modifiedRange: DateRangeType.t option
        [@ocaml.doc
          "Filter based on resource\226\128\153s modified timestamp."]}
    let make ?textLocales =
      fun ?contentCategories ->
        fun ?resourceTypes ->
          fun ?labels ->
            fun ?principals ->
              fun ?ancestorIds ->
                fun ?searchCollectionTypes ->
                  fun ?sizeRange ->
                    fun ?createdRange ->
                      fun ?modifiedRange ->
                        fun () ->
                          {
                            textLocales;
                            contentCategories;
                            resourceTypes;
                            labels;
                            principals;
                            ancestorIds;
                            searchCollectionTypes;
                            sizeRange;
                            createdRange;
                            modifiedRange
                          }
    let to_value x =
      structure_to_value
        [("TextLocales",
           (Option.map x.textLocales ~f:TextLocaleTypeList.to_value));
        ("ContentCategories",
          (Option.map x.contentCategories
             ~f:SearchContentCategoryTypeList.to_value));
        ("ResourceTypes",
          (Option.map x.resourceTypes ~f:SearchResourceTypeList.to_value));
        ("Labels", (Option.map x.labels ~f:SearchLabelList.to_value));
        ("Principals",
          (Option.map x.principals ~f:SearchPrincipalTypeList.to_value));
        ("AncestorIds",
          (Option.map x.ancestorIds ~f:SearchAncestorIdList.to_value));
        ("SearchCollectionTypes",
          (Option.map x.searchCollectionTypes
             ~f:SearchCollectionTypeList.to_value));
        ("SizeRange", (Option.map x.sizeRange ~f:LongRangeType.to_value));
        ("CreatedRange",
          (Option.map x.createdRange ~f:DateRangeType.to_value));
        ("ModifiedRange",
          (Option.map x.modifiedRange ~f:DateRangeType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let modifiedRange =
        (Option.map ~f:DateRangeType.of_xml)
          (Xml.child xml_arg0 "ModifiedRange") in
      let createdRange =
        (Option.map ~f:DateRangeType.of_xml)
          (Xml.child xml_arg0 "CreatedRange") in
      let sizeRange =
        (Option.map ~f:LongRangeType.of_xml) (Xml.child xml_arg0 "SizeRange") in
      let searchCollectionTypes =
        (Option.map ~f:SearchCollectionTypeList.of_xml)
          (Xml.child xml_arg0 "SearchCollectionTypes") in
      let ancestorIds =
        (Option.map ~f:SearchAncestorIdList.of_xml)
          (Xml.child xml_arg0 "AncestorIds") in
      let principals =
        (Option.map ~f:SearchPrincipalTypeList.of_xml)
          (Xml.child xml_arg0 "Principals") in
      let labels =
        (Option.map ~f:SearchLabelList.of_xml) (Xml.child xml_arg0 "Labels") in
      let resourceTypes =
        (Option.map ~f:SearchResourceTypeList.of_xml)
          (Xml.child xml_arg0 "ResourceTypes") in
      let contentCategories =
        (Option.map ~f:SearchContentCategoryTypeList.of_xml)
          (Xml.child xml_arg0 "ContentCategories") in
      let textLocales =
        (Option.map ~f:TextLocaleTypeList.of_xml)
          (Xml.child xml_arg0 "TextLocales") in
      make ?modifiedRange ?createdRange ?sizeRange ?searchCollectionTypes
        ?ancestorIds ?principals ?labels ?resourceTypes ?contentCategories
        ?textLocales ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let modifiedRange =
        field_map json__ "ModifiedRange" DateRangeType.of_json in
      let createdRange =
        field_map json__ "CreatedRange" DateRangeType.of_json in
      let sizeRange = field_map json__ "SizeRange" LongRangeType.of_json in
      let searchCollectionTypes =
        field_map json__ "SearchCollectionTypes"
          SearchCollectionTypeList.of_json in
      let ancestorIds =
        field_map json__ "AncestorIds" SearchAncestorIdList.of_json in
      let principals =
        field_map json__ "Principals" SearchPrincipalTypeList.of_json in
      let labels = field_map json__ "Labels" SearchLabelList.of_json in
      let resourceTypes =
        field_map json__ "ResourceTypes" SearchResourceTypeList.of_json in
      let contentCategories =
        field_map json__ "ContentCategories"
          SearchContentCategoryTypeList.of_json in
      let textLocales =
        field_map json__ "TextLocales" TextLocaleTypeList.of_json in
      make ?modifiedRange ?createdRange ?sizeRange ?searchCollectionTypes
        ?ancestorIds ?principals ?labels ?resourceTypes ?contentCategories
        ?textLocales ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Filters results based on entity metadata."]
module SearchQueryScopeTypeList =
  struct
    type nonrec t = SearchQueryScopeType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:2); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:SearchQueryScopeType.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:SearchQueryScopeType.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchQueryScopeTypeList"
        ~of_json:SearchQueryScopeType.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchQueryType =
  struct
    type nonrec t = string
    let context_ = "SearchQueryType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:512) >>=
                  (fun () -> check_pattern i ~pattern:"[\\u0020-\\uFFFF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchQueryType" j
    let to_json = simple_to_json to_value
  end
module SearchResultSortList =
  struct
    type nonrec t = SearchSortResult.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max: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:SearchSortResult.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:SearchSortResult.of_xml)
    let of_json j =
      list_of_json ~kind:"SearchResultSortList"
        ~of_json:SearchSortResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchResultsLimitType =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for SearchResultsLimitType" 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 DraftUploadOutOfSyncException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when a valid checkout ID is not presented on document version upload calls for a document that has been checked out from Web client."]
module EntityAlreadyExistsException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource already exists."]
module InvalidPasswordException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The password is invalid."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The maximum of 100,000 files and folders under the parent folder has been exceeded."]
module ResourceAlreadyCheckedOutException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource is already checked out."]
module StorageLimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The storage limit has been exceeded."]
module StorageLimitWillExceedException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The storage limit will be exceeded."]
module UploadMetadata =
  struct
    type nonrec t =
      {
      uploadUrl: UrlType.t option [@ocaml.doc "The URL of the upload."];
      signedHeaders: SignedHeaderMap.t option
        [@ocaml.doc "The signed headers."]}
    let make ?uploadUrl =
      fun ?signedHeaders -> fun () -> { uploadUrl; signedHeaders }
    let to_value x =
      structure_to_value
        [("UploadUrl", (Option.map x.uploadUrl ~f:UrlType.to_value));
        ("SignedHeaders",
          (Option.map x.signedHeaders ~f:SignedHeaderMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let signedHeaders =
        (Option.map ~f:SignedHeaderMap.of_xml)
          (Xml.child xml_arg0 "SignedHeaders") in
      let uploadUrl =
        (Option.map ~f:UrlType.of_xml) (Xml.child xml_arg0 "UploadUrl") in
      make ?signedHeaders ?uploadUrl ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let signedHeaders =
        field_map json__ "SignedHeaders" SignedHeaderMap.of_json in
      let uploadUrl = field_map json__ "UploadUrl" UrlType.of_json in
      make ?signedHeaders ?uploadUrl ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the upload."]
module DocumentMetadataList =
  struct
    type nonrec t = DocumentMetadata.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:DocumentMetadata.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:DocumentMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentMetadataList"
        ~of_json:DocumentMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module FolderMetadataList =
  struct
    type nonrec t = FolderMetadata.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:FolderMetadata.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:FolderMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"FolderMetadataList" ~of_json:FolderMetadata.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module PageMarkerType =
  struct
    type nonrec t = string
    let context_ = "PageMarkerType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PageMarkerType" j
    let to_json = simple_to_json to_value
  end
module LimitType =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:999) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for LimitType" 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 ResourceCollectionType =
  struct
    type nonrec t =
      | SHARED_WITH_ME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | SHARED_WITH_ME -> "SHARED_WITH_ME" | Non_static_id s -> s
    let of_string =
      function | "SHARED_WITH_ME" -> SHARED_WITH_ME | 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 ResourceCollectionType" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ResourceCollectionType" j)
    let to_json = simple_to_json to_value
  end
module CustomMetadataMap =
  struct
    type nonrec t =
      (CustomMetadataKeyType.t * CustomMetadataValueType.t) list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:8) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_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 ->
                            ((CustomMetadataKeyType.of_string chopped),
                              (CustomMetadataValueType.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (CustomMetadataKeyType.to_value x) |>
                    (fun x ->
                       (CustomMetadataValueType.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:CustomMetadataKeyType.of_string
        ~of_json:CustomMetadataValueType.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourcePath =
  struct
    type nonrec t =
      {
      components: ResourcePathComponentList.t option
        [@ocaml.doc "The components of the resource path."]}
    let make ?components = fun () -> { components }
    let to_value x =
      structure_to_value
        [("Components",
           (Option.map x.components ~f:ResourcePathComponentList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let components =
        (Option.map ~f:ResourcePathComponentList.of_xml)
          (Xml.child xml_arg0 "Components") in
      make ?components ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let components =
        field_map json__ "Components" ResourcePathComponentList.of_json in
      make ?components ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the path information of a resource."]
module FieldNamesType =
  struct
    type nonrec t = string
    let context_ = "FieldNamesType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:256) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w,]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FieldNamesType" j
    let to_json = simple_to_json to_value
  end
module OrganizationUserList =
  struct
    type nonrec t = User.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:User.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:User.of_xml)
    let of_json j =
      list_of_json ~kind:"OrganizationUserList" ~of_json:User.of_json j
    let to_json v = composed_to_json to_value v
  end
module RequestedEntityTooLargeException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response is too large to return. The request must include a filter to reduce the size of the response."]
module OrderType =
  struct
    type nonrec t =
      | ASCENDING 
      | DESCENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ASCENDING -> "ASCENDING"
      | DESCENDING -> "DESCENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ASCENDING" -> ASCENDING
      | "DESCENDING" -> DESCENDING
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration OrderType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"OrderType" j)
    let to_json = simple_to_json to_value
  end
module UserFilterType =
  struct
    type nonrec t =
      | ALL 
      | ACTIVE_PENDING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | ACTIVE_PENDING -> "ACTIVE_PENDING"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "ACTIVE_PENDING" -> ACTIVE_PENDING
      | 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 UserFilterType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserFilterType" j)
    let to_json = simple_to_json to_value
  end
module UserIdsType =
  struct
    type nonrec t = string
    let context_ = "UserIdsType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2000) >>=
                  (fun () -> check_pattern i ~pattern:"[&\\w+-.@, ]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UserIdsType" j
    let to_json = simple_to_json to_value
  end
module UserSortType =
  struct
    type nonrec t =
      | USER_NAME 
      | FULL_NAME 
      | STORAGE_LIMIT 
      | USER_STATUS 
      | STORAGE_USED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | USER_NAME -> "USER_NAME"
      | FULL_NAME -> "FULL_NAME"
      | STORAGE_LIMIT -> "STORAGE_LIMIT"
      | USER_STATUS -> "USER_STATUS"
      | STORAGE_USED -> "STORAGE_USED"
      | Non_static_id s -> s
    let of_string =
      function
      | "USER_NAME" -> USER_NAME
      | "FULL_NAME" -> FULL_NAME
      | "STORAGE_LIMIT" -> STORAGE_LIMIT
      | "USER_STATUS" -> USER_STATUS
      | "STORAGE_USED" -> STORAGE_USED
      | 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 UserSortType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserSortType" j)
    let to_json = simple_to_json to_value
  end
module PrincipalList =
  struct
    type nonrec t = Principal.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:Principal.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:Principal.of_xml)
    let of_json j =
      list_of_json ~kind:"PrincipalList" ~of_json:Principal.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubscriptionList =
  struct
    type nonrec t = Subscription.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:256); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Subscription.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:Subscription.of_xml)
    let of_json j =
      list_of_json ~kind:"SubscriptionList" ~of_json:Subscription.of_json j
    let to_json v = composed_to_json to_value v
  end
module MarkerType =
  struct
    type nonrec t = string
    let context_ = "MarkerType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"[\\u0000-\\u00FF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"MarkerType" j
    let to_json = simple_to_json to_value
  end
module PositiveIntegerType =
  struct
    type nonrec t = int
    let make i =
      let open Result in ok_or_failwith (check_int_min i ~min:1); i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for PositiveIntegerType" 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 FolderContentType =
  struct
    type nonrec t =
      | ALL 
      | DOCUMENT 
      | FOLDER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ALL -> "ALL"
      | DOCUMENT -> "DOCUMENT"
      | FOLDER -> "FOLDER"
      | Non_static_id s -> s
    let of_string =
      function
      | "ALL" -> ALL
      | "DOCUMENT" -> DOCUMENT
      | "FOLDER" -> FOLDER
      | 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 FolderContentType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"FolderContentType" j)
    let to_json = simple_to_json to_value
  end
module ResourceSortType =
  struct
    type nonrec t =
      | DATE 
      | NAME 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | DATE -> "DATE" | NAME -> "NAME" | Non_static_id s -> s
    let of_string =
      function | "DATE" -> DATE | "NAME" -> NAME | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration ResourceSortType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ResourceSortType" j)
    let to_json = simple_to_json to_value
  end
module DocumentVersionMetadataList =
  struct
    type nonrec t = DocumentVersionMetadata.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:DocumentVersionMetadata.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:DocumentVersionMetadata.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentVersionMetadataList"
        ~of_json:DocumentVersionMetadata.of_json j
    let to_json v = composed_to_json to_value v
  end
module CommentList =
  struct
    type nonrec t = Comment.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Comment.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:Comment.of_xml)
    let of_json j =
      list_of_json ~kind:"CommentList" ~of_json:Comment.of_json j
    let to_json v = composed_to_json to_value v
  end
module SearchMarkerType =
  struct
    type nonrec t = string
    let context_ = "SearchMarkerType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:12288) >>=
                  (fun () -> check_pattern i ~pattern:"[\\u0000-\\u00FF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SearchMarkerType" j
    let to_json = simple_to_json to_value
  end
module UserActivities =
  struct
    type nonrec t = Activity.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:Activity.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:Activity.of_xml)
    let of_json j =
      list_of_json ~kind:"UserActivities" ~of_json:Activity.of_json j
    let to_json v = composed_to_json to_value v
  end
module ActivityNamesFilterType =
  struct
    type nonrec t = string
    let context_ = "ActivityNamesFilterType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w,]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActivityNamesFilterType" j
    let to_json = simple_to_json to_value
  end
module CustomMetadataKeyList =
  struct
    type nonrec t = CustomMetadataKeyType.t list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max:8); i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CustomMetadataKeyType.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:CustomMetadataKeyType.of_xml)
    let of_json j =
      list_of_json ~kind:"CustomMetadataKeyList"
        ~of_json:CustomMetadataKeyType.of_json j
    let to_json v = composed_to_json to_value v
  end
module PasswordType =
  struct
    type nonrec t = string
    let context_ = "PasswordType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"[\\u0020-\\u00FF]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PasswordType" j
    let to_json = simple_to_json to_value
  end
module TooManySubscriptionsException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You've reached the limit on the number of subscriptions for the WorkDocs instance."]
module SubscriptionType =
  struct
    type nonrec t =
      | ALL 
      | Non_static_id of string 
    let make i = i
    let to_string = function | ALL -> "ALL" | Non_static_id s -> s
    let of_string = function | "ALL" -> ALL | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration SubscriptionType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"SubscriptionType" j)
    let to_json = simple_to_json to_value
  end
module TooManyLabelsException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit has been reached on the number of labels for the specified resource."]
module ConcurrentModificationException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The resource hierarchy is changing."]
module ConflictingOperationException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Another operation is in progress on the resource that conflicts with the current operation."]
module CustomMetadataLimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The limit has been reached on the number of custom properties for the specified resource."]
module DocumentLockedForCommentsException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This exception is thrown when the document is locked for comments and user tries to create or delete a comment on that document."]
module InvalidCommentOperationException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation is not allowed on the specified comment object."]
module ShareResultsList =
  struct
    type nonrec t = ShareResult.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:ShareResult.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:ShareResult.of_xml)
    let of_json j =
      list_of_json ~kind:"ShareResultsList" ~of_json:ShareResult.of_json j
    let to_json v = composed_to_json to_value v
  end
module NotificationOptions =
  struct
    type nonrec t =
      {
      sendEmail: BooleanType.t option
        [@ocaml.doc
          "Boolean value to indicate an email notification should be sent to the recipients."];
      emailMessage: MessageType.t option
        [@ocaml.doc "Text value to be included in the email body."]}
    let make ?sendEmail =
      fun ?emailMessage -> fun () -> { sendEmail; emailMessage }
    let to_value x =
      structure_to_value
        [("SendEmail", (Option.map x.sendEmail ~f:BooleanType.to_value));
        ("EmailMessage", (Option.map x.emailMessage ~f:MessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let emailMessage =
        (Option.map ~f:MessageType.of_xml)
          (Xml.child xml_arg0 "EmailMessage") in
      let sendEmail =
        (Option.map ~f:BooleanType.of_xml) (Xml.child xml_arg0 "SendEmail") in
      make ?emailMessage ?sendEmail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let emailMessage = field_map json__ "EmailMessage" MessageType.of_json in
      let sendEmail = field_map json__ "SendEmail" BooleanType.of_json in
      make ?emailMessage ?sendEmail ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Set of options which defines notification preferences of given action."]
module SharePrincipalList =
  struct
    type nonrec t = SharePrincipal.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:SharePrincipal.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:SharePrincipal.of_xml)
    let of_json j =
      list_of_json ~kind:"SharePrincipalList" ~of_json:SharePrincipal.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module UpdateUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option [@ocaml.doc "The user information."]}
    type nonrec error =
      [
        `DeactivatingLastSystemUserException of
          DeactivatingLastSystemUserException.t 
      | `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `IllegalUserStateException of IllegalUserStateException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "DeactivatingLastSystemUserException" ->
          `DeactivatingLastSystemUserException
            (DeactivatingLastSystemUserException.of_json json)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "IllegalUserStateException" ->
          `IllegalUserStateException (IllegalUserStateException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DeactivatingLastSystemUserException" ->
          `DeactivatingLastSystemUserException
            (DeactivatingLastSystemUserException.of_xml xml)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "IllegalUserStateException" ->
          `IllegalUserStateException (IllegalUserStateException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DeactivatingLastSystemUserException e ->
          `Assoc
            [("error", (`String "DeactivatingLastSystemUserException"));
            ("details", (DeactivatingLastSystemUserException.to_json e))]
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `IllegalUserStateException e ->
          `Assoc
            [("error", (`String "IllegalUserStateException"));
            ("details", (IllegalUserStateException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified attributes of the specified user, and grants or revokes administrative privileges to the Amazon WorkDocs site."]
module UpdateUserRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      userId: IdType.t [@ocaml.doc "The ID of the user."];
      givenName: UserAttributeValueType.t option
        [@ocaml.doc "The given name of the user."];
      surname: UserAttributeValueType.t option
        [@ocaml.doc "The surname of the user."];
      type_: UserType.t option [@ocaml.doc "The type of the user."];
      storageRule: StorageRuleType.t option
        [@ocaml.doc "The amount of storage for the user."];
      timeZoneId: TimeZoneIdType.t option
        [@ocaml.doc "The time zone ID of the user."];
      locale: LocaleType.t option [@ocaml.doc "The locale of the user."];
      grantPoweruserPrivileges: BooleanEnumType.t option
        [@ocaml.doc
          "Boolean value to determine whether the user is granted Power user privileges."]}
    let context_ = "UpdateUserRequest"
    let make ?authenticationToken =
      fun ?givenName ->
        fun ?surname ->
          fun ?type_ ->
            fun ?storageRule ->
              fun ?timeZoneId ->
                fun ?locale ->
                  fun ?grantPoweruserPrivileges ->
                    fun ~userId ->
                      fun () ->
                        {
                          authenticationToken;
                          givenName;
                          surname;
                          type_;
                          storageRule;
                          timeZoneId;
                          locale;
                          grantPoweruserPrivileges;
                          userId
                        }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("UserId", (Some (IdType.to_value x.userId)));
        ("GivenName",
          (Option.map x.givenName ~f:UserAttributeValueType.to_value));
        ("Surname",
          (Option.map x.surname ~f:UserAttributeValueType.to_value));
        ("Type", (Option.map x.type_ ~f:UserType.to_value));
        ("StorageRule",
          (Option.map x.storageRule ~f:StorageRuleType.to_value));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneIdType.to_value));
        ("Locale", (Option.map x.locale ~f:LocaleType.to_value));
        ("GrantPoweruserPrivileges",
          (Option.map x.grantPoweruserPrivileges ~f:BooleanEnumType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let grantPoweruserPrivileges =
        (Option.map ~f:BooleanEnumType.of_xml)
          (Xml.child xml_arg0 "GrantPoweruserPrivileges") in
      let locale =
        (Option.map ~f:LocaleType.of_xml) (Xml.child xml_arg0 "Locale") in
      let timeZoneId =
        (Option.map ~f:TimeZoneIdType.of_xml)
          (Xml.child xml_arg0 "TimeZoneId") in
      let storageRule =
        (Option.map ~f:StorageRuleType.of_xml)
          (Xml.child xml_arg0 "StorageRule") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "Type") in
      let surname =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "Surname") in
      let givenName =
        (Option.map ~f:UserAttributeValueType.of_xml)
          (Xml.child xml_arg0 "GivenName") in
      let userId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?grantPoweruserPrivileges ?locale ?timeZoneId ?storageRule ?type_
        ?surname ?givenName ~userId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let grantPoweruserPrivileges =
        field_map json__ "GrantPoweruserPrivileges" BooleanEnumType.of_json in
      let locale = field_map json__ "Locale" LocaleType.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneIdType.of_json in
      let storageRule =
        field_map json__ "StorageRule" StorageRuleType.of_json in
      let type_ = field_map json__ "Type" UserType.of_json in
      let surname = field_map json__ "Surname" UserAttributeValueType.of_json in
      let givenName =
        field_map json__ "GivenName" UserAttributeValueType.of_json in
      let userId = field_map_exn json__ "UserId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?grantPoweruserPrivileges ?locale ?timeZoneId ?storageRule ?type_
        ?surname ?givenName ~userId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified attributes of the specified user, and grants or revokes administrative privileges to the Amazon WorkDocs site."]
module UpdateFolderRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: ResourceIdType.t [@ocaml.doc "The ID of the folder."];
      name: ResourceNameType.t option [@ocaml.doc "The name of the folder."];
      parentFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the parent folder."];
      resourceState: ResourceStateType.t option
        [@ocaml.doc
          "The resource state of the folder. Only ACTIVE and RECYCLED are accepted values from the API."]}
    let context_ = "UpdateFolderRequest"
    let make ?authenticationToken =
      fun ?name ->
        fun ?parentFolderId ->
          fun ?resourceState ->
            fun ~folderId ->
              fun () ->
                {
                  authenticationToken;
                  name;
                  parentFolderId;
                  resourceState;
                  folderId
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (ResourceIdType.to_value x.folderId)));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("ParentFolderId",
          (Option.map x.parentFolderId ~f:ResourceIdType.to_value));
        ("ResourceState",
          (Option.map x.resourceState ~f:ResourceStateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceState =
        (Option.map ~f:ResourceStateType.of_xml)
          (Xml.child xml_arg0 "ResourceState") in
      let parentFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ParentFolderId") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let folderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?resourceState ?parentFolderId ?name ~folderId
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceState =
        field_map json__ "ResourceState" ResourceStateType.of_json in
      let parentFolderId =
        field_map json__ "ParentFolderId" ResourceIdType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let folderId = field_map_exn json__ "FolderId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?resourceState ?parentFolderId ?name ~folderId
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified attributes of the specified folder. The user must have access to both the folder and its parent folder, if applicable."]
module UpdateDocumentVersionRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The version ID of the document."];
      versionStatus: DocumentVersionStatus.t option
        [@ocaml.doc "The status of the version."]}
    let context_ = "UpdateDocumentVersionRequest"
    let make ?authenticationToken =
      fun ?versionStatus ->
        fun ~documentId ->
          fun ~versionId ->
            fun () ->
              { authenticationToken; versionStatus; documentId; versionId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("VersionStatus",
          (Option.map x.versionStatus ~f:DocumentVersionStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionStatus =
        (Option.map ~f:DocumentVersionStatus.of_xml)
          (Xml.child xml_arg0 "VersionStatus") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?versionStatus ~versionId ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionStatus =
        field_map json__ "VersionStatus" DocumentVersionStatus.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?versionStatus ~versionId ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Changes the status of the document version to ACTIVE. Amazon WorkDocs also sets its document container to ACTIVE. This is the last step in a document upload, after the client uploads the document to an S3-presigned URL returned by InitiateDocumentVersionUpload."]
module UpdateDocumentRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      name: ResourceNameType.t option
        [@ocaml.doc "The name of the document."];
      parentFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the parent folder."];
      resourceState: ResourceStateType.t option
        [@ocaml.doc
          "The resource state of the document. Only ACTIVE and RECYCLED are supported."]}
    let context_ = "UpdateDocumentRequest"
    let make ?authenticationToken =
      fun ?name ->
        fun ?parentFolderId ->
          fun ?resourceState ->
            fun ~documentId ->
              fun () ->
                {
                  authenticationToken;
                  name;
                  parentFolderId;
                  resourceState;
                  documentId
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("ParentFolderId",
          (Option.map x.parentFolderId ~f:ResourceIdType.to_value));
        ("ResourceState",
          (Option.map x.resourceState ~f:ResourceStateType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceState =
        (Option.map ~f:ResourceStateType.of_xml)
          (Xml.child xml_arg0 "ResourceState") in
      let parentFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ParentFolderId") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?resourceState ?parentFolderId ?name ~documentId
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceState =
        field_map json__ "ResourceState" ResourceStateType.of_json in
      let parentFolderId =
        field_map json__ "ParentFolderId" ResourceIdType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?resourceState ?parentFolderId ?name ~documentId
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the specified attributes of a document. The user must have access to both the document and its parent folder, if applicable."]
module SearchResourcesResponse =
  struct
    type nonrec t =
      {
      items: ResponseItemsList.t option
        [@ocaml.doc
          "List of Documents, Folders, Comments, and Document Versions matching the query."];
      marker: NextMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?items = fun ?marker -> fun () -> { items; marker }
    let error_of_json name json =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Items", (Option.map x.items ~f:ResponseItemsList.to_value));
        ("Marker", (Option.map x.marker ~f:NextMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:NextMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let items =
        (Option.map ~f:ResponseItemsList.of_xml) (Xml.child xml_arg0 "Items") in
      make ?marker ?items ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" NextMarkerType.of_json in
      let items = field_map json__ "Items" ResponseItemsList.of_json in
      make ?marker ?items ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches metadata and the content of folders, documents, document versions, and comments."]
module SearchResourcesRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      queryText: SearchQueryType.t option
        [@ocaml.doc
          "The String to search for. Searches across different text fields based on request parameters. Use double quotes around the query string for exact phrase matches."];
      queryScopes: SearchQueryScopeTypeList.t option
        [@ocaml.doc
          "Filter based on the text field type. A Folder has only a name and no content. A Comment has only content and no name. A Document or Document Version has a name and content"];
      organizationId: IdType.t option
        [@ocaml.doc
          "Filters based on the resource owner OrgId. This is a mandatory parameter when using Admin SigV4 credentials."];
      additionalResponseFields: AdditionalResponseFieldsList.t option
        [@ocaml.doc
          "A list of attributes to include in the response. Used to request fields that are not normally returned in a standard response."];
      filters: Filters.t option
        [@ocaml.doc "Filters results based on entity metadata."];
      orderBy: SearchResultSortList.t option
        [@ocaml.doc "Order by results in one or more categories."];
      limit: SearchResultsLimitType.t option
        [@ocaml.doc "Max results count per page."];
      marker: NextMarkerType.t option
        [@ocaml.doc "The marker for the next set of results."]}
    let make ?authenticationToken =
      fun ?queryText ->
        fun ?queryScopes ->
          fun ?organizationId ->
            fun ?additionalResponseFields ->
              fun ?filters ->
                fun ?orderBy ->
                  fun ?limit ->
                    fun ?marker ->
                      fun () ->
                        {
                          authenticationToken;
                          queryText;
                          queryScopes;
                          organizationId;
                          additionalResponseFields;
                          filters;
                          orderBy;
                          limit;
                          marker
                        }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("QueryText", (Option.map x.queryText ~f:SearchQueryType.to_value));
        ("QueryScopes",
          (Option.map x.queryScopes ~f:SearchQueryScopeTypeList.to_value));
        ("OrganizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("AdditionalResponseFields",
          (Option.map x.additionalResponseFields
             ~f:AdditionalResponseFieldsList.to_value));
        ("Filters", (Option.map x.filters ~f:Filters.to_value));
        ("OrderBy", (Option.map x.orderBy ~f:SearchResultSortList.to_value));
        ("Limit", (Option.map x.limit ~f:SearchResultsLimitType.to_value));
        ("Marker", (Option.map x.marker ~f:NextMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:NextMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let limit =
        (Option.map ~f:SearchResultsLimitType.of_xml)
          (Xml.child xml_arg0 "Limit") in
      let orderBy =
        (Option.map ~f:SearchResultSortList.of_xml)
          (Xml.child xml_arg0 "OrderBy") in
      let filters =
        (Option.map ~f:Filters.of_xml) (Xml.child xml_arg0 "Filters") in
      let additionalResponseFields =
        (Option.map ~f:AdditionalResponseFieldsList.of_xml)
          (Xml.child xml_arg0 "AdditionalResponseFields") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "OrganizationId") in
      let queryScopes =
        (Option.map ~f:SearchQueryScopeTypeList.of_xml)
          (Xml.child xml_arg0 "QueryScopes") in
      let queryText =
        (Option.map ~f:SearchQueryType.of_xml)
          (Xml.child xml_arg0 "QueryText") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?limit ?orderBy ?filters ?additionalResponseFields
        ?organizationId ?queryScopes ?queryText ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" NextMarkerType.of_json in
      let limit = field_map json__ "Limit" SearchResultsLimitType.of_json in
      let orderBy = field_map json__ "OrderBy" SearchResultSortList.of_json in
      let filters = field_map json__ "Filters" Filters.of_json in
      let additionalResponseFields =
        field_map json__ "AdditionalResponseFields"
          AdditionalResponseFieldsList.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let queryScopes =
        field_map json__ "QueryScopes" SearchQueryScopeTypeList.of_json in
      let queryText = field_map json__ "QueryText" SearchQueryType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ?orderBy ?filters ?additionalResponseFields
        ?organizationId ?queryScopes ?queryText ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Searches metadata and the content of folders, documents, document versions, and comments."]
module RestoreDocumentVersionsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."]}
    let context_ = "RestoreDocumentVersionsRequest"
    let make ?authenticationToken =
      fun ~documentId -> fun () -> { authenticationToken; documentId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Recovers a deleted version of an Amazon WorkDocs document."]
module RemoveResourcePermissionRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      principalId: IdType.t [@ocaml.doc "The principal ID of the resource."];
      principalType: PrincipalType.t option
        [@ocaml.doc "The principal type of the resource."]}
    let context_ = "RemoveResourcePermissionRequest"
    let make ?authenticationToken =
      fun ?principalType ->
        fun ~resourceId ->
          fun ~principalId ->
            fun () ->
              { authenticationToken; principalType; resourceId; principalId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("PrincipalId", (Some (IdType.to_value x.principalId)));
        ("type", (Option.map x.principalType ~f:PrincipalType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principalType =
        (Option.map ~f:PrincipalType.of_xml) (Xml.child xml_arg0 "type") in
      let principalId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "PrincipalId") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?principalType ~principalId ~resourceId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principalType =
        field_map json__ "PrincipalType" PrincipalType.of_json in
      let principalId = field_map_exn json__ "PrincipalId" IdType.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?principalType ~principalId ~resourceId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes the permission for the specified principal from the specified resource."]
module RemoveAllResourcePermissionsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."]}
    let context_ = "RemoveAllResourcePermissionsRequest"
    let make ?authenticationToken =
      fun ~resourceId -> fun () -> { authenticationToken; resourceId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~resourceId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~resourceId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes all the permissions from the specified resource."]
module InvalidOperationException =
  struct
    type nonrec t = {
      message: ErrorMessageType.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:ErrorMessageType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessageType.of_xml)
          (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" ErrorMessageType.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The operation is invalid."]
module InitiateDocumentVersionUploadResponse =
  struct
    type nonrec t =
      {
      metadata: DocumentMetadata.t option
        [@ocaml.doc "The document metadata."];
      uploadMetadata: UploadMetadata.t option
        [@ocaml.doc "The upload metadata."]}
    type nonrec error =
      [ `DraftUploadOutOfSyncException of DraftUploadOutOfSyncException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidPasswordException of InvalidPasswordException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ResourceAlreadyCheckedOutException of
          ResourceAlreadyCheckedOutException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `StorageLimitExceededException of StorageLimitExceededException.t 
      | `StorageLimitWillExceedException of StorageLimitWillExceedException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metadata =
      fun ?uploadMetadata -> fun () -> { metadata; uploadMetadata }
    let error_of_json name json =
      match name with
      | "DraftUploadOutOfSyncException" ->
          `DraftUploadOutOfSyncException
            (DraftUploadOutOfSyncException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ResourceAlreadyCheckedOutException" ->
          `ResourceAlreadyCheckedOutException
            (ResourceAlreadyCheckedOutException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "StorageLimitExceededException" ->
          `StorageLimitExceededException
            (StorageLimitExceededException.of_json json)
      | "StorageLimitWillExceedException" ->
          `StorageLimitWillExceedException
            (StorageLimitWillExceedException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DraftUploadOutOfSyncException" ->
          `DraftUploadOutOfSyncException
            (DraftUploadOutOfSyncException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ResourceAlreadyCheckedOutException" ->
          `ResourceAlreadyCheckedOutException
            (ResourceAlreadyCheckedOutException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "StorageLimitExceededException" ->
          `StorageLimitExceededException
            (StorageLimitExceededException.of_xml xml)
      | "StorageLimitWillExceedException" ->
          `StorageLimitWillExceedException
            (StorageLimitWillExceedException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DraftUploadOutOfSyncException e ->
          `Assoc
            [("error", (`String "DraftUploadOutOfSyncException"));
            ("details", (DraftUploadOutOfSyncException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidPasswordException e ->
          `Assoc
            [("error", (`String "InvalidPasswordException"));
            ("details", (InvalidPasswordException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ResourceAlreadyCheckedOutException e ->
          `Assoc
            [("error", (`String "ResourceAlreadyCheckedOutException"));
            ("details", (ResourceAlreadyCheckedOutException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `StorageLimitExceededException e ->
          `Assoc
            [("error", (`String "StorageLimitExceededException"));
            ("details", (StorageLimitExceededException.to_json e))]
      | `StorageLimitWillExceedException e ->
          `Assoc
            [("error", (`String "StorageLimitWillExceedException"));
            ("details", (StorageLimitWillExceedException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Metadata", (Option.map x.metadata ~f:DocumentMetadata.to_value));
        ("UploadMetadata",
          (Option.map x.uploadMetadata ~f:UploadMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let uploadMetadata =
        (Option.map ~f:UploadMetadata.of_xml)
          (Xml.child xml_arg0 "UploadMetadata") in
      let metadata =
        (Option.map ~f:DocumentMetadata.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      make ?uploadMetadata ?metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let uploadMetadata =
        field_map json__ "UploadMetadata" UploadMetadata.of_json in
      let metadata = field_map json__ "Metadata" DocumentMetadata.of_json in
      make ?uploadMetadata ?metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new document object and version object. The client specifies the parent folder ID and name of the document to upload. The ID is optionally specified when creating a new version of an existing document. This is the first step to upload a document. Next, upload the document to the URL returned from the call, and then call UpdateDocumentVersion. To cancel the document upload, call AbortDocumentVersionUpload."]
module InitiateDocumentVersionUploadRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      id: ResourceIdType.t option [@ocaml.doc "The ID of the document."];
      name: ResourceNameType.t option
        [@ocaml.doc "The name of the document."];
      contentCreatedTimestamp: TimestampType.t option
        [@ocaml.doc
          "The timestamp when the content of the document was originally created."];
      contentModifiedTimestamp: TimestampType.t option
        [@ocaml.doc
          "The timestamp when the content of the document was modified."];
      contentType: DocumentContentType.t option
        [@ocaml.doc "The content type of the document."];
      documentSizeInBytes: SizeType.t option
        [@ocaml.doc "The size of the document, in bytes."];
      parentFolderId: ResourceIdType.t option
        [@ocaml.doc "The ID of the parent folder."]}
    let make ?authenticationToken =
      fun ?id ->
        fun ?name ->
          fun ?contentCreatedTimestamp ->
            fun ?contentModifiedTimestamp ->
              fun ?contentType ->
                fun ?documentSizeInBytes ->
                  fun ?parentFolderId ->
                    fun () ->
                      {
                        authenticationToken;
                        id;
                        name;
                        contentCreatedTimestamp;
                        contentModifiedTimestamp;
                        contentType;
                        documentSizeInBytes;
                        parentFolderId
                      }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("Id", (Option.map x.id ~f:ResourceIdType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("ContentCreatedTimestamp",
          (Option.map x.contentCreatedTimestamp ~f:TimestampType.to_value));
        ("ContentModifiedTimestamp",
          (Option.map x.contentModifiedTimestamp ~f:TimestampType.to_value));
        ("ContentType",
          (Option.map x.contentType ~f:DocumentContentType.to_value));
        ("DocumentSizeInBytes",
          (Option.map x.documentSizeInBytes ~f:SizeType.to_value));
        ("ParentFolderId",
          (Option.map x.parentFolderId ~f:ResourceIdType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentFolderId =
        (Option.map ~f:ResourceIdType.of_xml)
          (Xml.child xml_arg0 "ParentFolderId") in
      let documentSizeInBytes =
        (Option.map ~f:SizeType.of_xml)
          (Xml.child xml_arg0 "DocumentSizeInBytes") in
      let contentType =
        (Option.map ~f:DocumentContentType.of_xml)
          (Xml.child xml_arg0 "ContentType") in
      let contentModifiedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ContentModifiedTimestamp") in
      let contentCreatedTimestamp =
        (Option.map ~f:TimestampType.of_xml)
          (Xml.child xml_arg0 "ContentCreatedTimestamp") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let id =
        (Option.map ~f:ResourceIdType.of_xml) (Xml.child xml_arg0 "Id") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?parentFolderId ?documentSizeInBytes ?contentType
        ?contentModifiedTimestamp ?contentCreatedTimestamp ?name ?id
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentFolderId =
        field_map json__ "ParentFolderId" ResourceIdType.of_json in
      let documentSizeInBytes =
        field_map json__ "DocumentSizeInBytes" SizeType.of_json in
      let contentType =
        field_map json__ "ContentType" DocumentContentType.of_json in
      let contentModifiedTimestamp =
        field_map json__ "ContentModifiedTimestamp" TimestampType.of_json in
      let contentCreatedTimestamp =
        field_map json__ "ContentCreatedTimestamp" TimestampType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let id = field_map json__ "Id" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?parentFolderId ?documentSizeInBytes ?contentType
        ?contentModifiedTimestamp ?contentCreatedTimestamp ?name ?id
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new document object and version object. The client specifies the parent folder ID and name of the document to upload. The ID is optionally specified when creating a new version of an existing document. This is the first step to upload a document. Next, upload the document to the URL returned from the call, and then call UpdateDocumentVersion. To cancel the document upload, call AbortDocumentVersionUpload."]
module GetResourcesResponse =
  struct
    type nonrec t =
      {
      folders: FolderMetadataList.t option
        [@ocaml.doc "The folders in the specified folder."];
      documents: DocumentMetadataList.t option
        [@ocaml.doc "The documents in the specified collection."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?folders =
      fun ?documents ->
        fun ?marker -> fun () -> { folders; documents; marker }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Folders", (Option.map x.folders ~f:FolderMetadataList.to_value));
        ("Documents",
          (Option.map x.documents ~f:DocumentMetadataList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let documents =
        (Option.map ~f:DocumentMetadataList.of_xml)
          (Xml.child xml_arg0 "Documents") in
      let folders =
        (Option.map ~f:FolderMetadataList.of_xml)
          (Xml.child xml_arg0 "Folders") in
      make ?marker ?documents ?folders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let documents =
        field_map json__ "Documents" DocumentMetadataList.of_json in
      let folders = field_map json__ "Folders" FolderMetadataList.of_json in
      make ?marker ?documents ?folders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a collection of resources, including folders and documents. The only CollectionType supported is SHARED_WITH_ME."]
module GetResourcesRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "The Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      userId: IdType.t option
        [@ocaml.doc
          "The user ID for the resource collection. This is a required field for accessing the API operation using IAM credentials."];
      collectionType: ResourceCollectionType.t option
        [@ocaml.doc "The collection type."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of resources to return."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. This marker was received from a previous call."]}
    let make ?authenticationToken =
      fun ?userId ->
        fun ?collectionType ->
          fun ?limit ->
            fun ?marker ->
              fun () ->
                { authenticationToken; userId; collectionType; limit; marker
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("userId", (Option.map x.userId ~f:IdType.to_value));
        ("collectionType",
          (Option.map x.collectionType ~f:ResourceCollectionType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let collectionType =
        (Option.map ~f:ResourceCollectionType.of_xml)
          (Xml.child xml_arg0 "collectionType") in
      let userId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "userId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?limit ?collectionType ?userId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let collectionType =
        field_map json__ "CollectionType" ResourceCollectionType.of_json in
      let userId = field_map json__ "UserId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ?collectionType ?userId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves a collection of resources, including folders and documents. The only CollectionType supported is SHARED_WITH_ME."]
module GetFolderResponse =
  struct
    type nonrec t =
      {
      metadata: FolderMetadata.t option
        [@ocaml.doc "The metadata of the folder."];
      customMetadata: CustomMetadataMap.t option
        [@ocaml.doc "The custom metadata on the folder."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metadata =
      fun ?customMetadata -> fun () -> { metadata; customMetadata }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Metadata", (Option.map x.metadata ~f:FolderMetadata.to_value));
        ("CustomMetadata",
          (Option.map x.customMetadata ~f:CustomMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customMetadata =
        (Option.map ~f:CustomMetadataMap.of_xml)
          (Xml.child xml_arg0 "CustomMetadata") in
      let metadata =
        (Option.map ~f:FolderMetadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      make ?customMetadata ?metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customMetadata =
        field_map json__ "CustomMetadata" CustomMetadataMap.of_json in
      let metadata = field_map json__ "Metadata" FolderMetadata.of_json in
      make ?customMetadata ?metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the metadata of the specified folder."]
module GetFolderRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: ResourceIdType.t [@ocaml.doc "The ID of the folder."];
      includeCustomMetadata: BooleanType.t option
        [@ocaml.doc
          "Set to TRUE to include custom metadata in the response."]}
    let context_ = "GetFolderRequest"
    let make ?authenticationToken =
      fun ?includeCustomMetadata ->
        fun ~folderId ->
          fun () -> { authenticationToken; includeCustomMetadata; folderId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (ResourceIdType.to_value x.folderId)));
        ("includeCustomMetadata",
          (Option.map x.includeCustomMetadata ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeCustomMetadata =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "includeCustomMetadata") in
      let folderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?includeCustomMetadata ~folderId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeCustomMetadata =
        field_map json__ "IncludeCustomMetadata" BooleanType.of_json in
      let folderId = field_map_exn json__ "FolderId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?includeCustomMetadata ~folderId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the metadata of the specified folder."]
module GetFolderPathResponse =
  struct
    type nonrec t =
      {
      path: ResourcePath.t option [@ocaml.doc "The path information."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?path = fun () -> { path }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Path", (Option.map x.path ~f:ResourcePath.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path =
        (Option.map ~f:ResourcePath.of_xml) (Xml.child xml_arg0 "Path") in
      make ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "Path" ResourcePath.of_json in
      make ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the path information (the hierarchy from the root folder) for the specified folder. By default, Amazon WorkDocs returns a maximum of 100 levels upwards from the requested folder and only includes the IDs of the parent folders in the path. You can limit the maximum number of levels. You can also request the parent folder names."]
module GetFolderPathRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: IdType.t [@ocaml.doc "The ID of the folder."];
      limit: LimitType.t option
        [@ocaml.doc
          "The maximum number of levels in the hierarchy to return."];
      fields: FieldNamesType.t option
        [@ocaml.doc
          "A comma-separated list of values. Specify \"NAME\" to include the names of the parent folders."];
      marker: PageMarkerType.t option
        [@ocaml.doc "This value is not supported."]}
    let context_ = "GetFolderPathRequest"
    let make ?authenticationToken =
      fun ?limit ->
        fun ?fields ->
          fun ?marker ->
            fun ~folderId ->
              fun () ->
                { authenticationToken; limit; fields; marker; folderId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (IdType.to_value x.folderId)));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("fields", (Option.map x.fields ~f:FieldNamesType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let fields =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "fields") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let folderId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?fields ?limit ~folderId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let fields = field_map json__ "Fields" FieldNamesType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let folderId = field_map_exn json__ "FolderId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?fields ?limit ~folderId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the path information (the hierarchy from the root folder) for the specified folder. By default, Amazon WorkDocs returns a maximum of 100 levels upwards from the requested folder and only includes the IDs of the parent folders in the path. You can limit the maximum number of levels. You can also request the parent folder names."]
module GetDocumentVersionResponse =
  struct
    type nonrec t =
      {
      metadata: DocumentVersionMetadata.t option
        [@ocaml.doc "The version metadata."];
      customMetadata: CustomMetadataMap.t option
        [@ocaml.doc "The custom metadata on the document version."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidPasswordException of InvalidPasswordException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metadata =
      fun ?customMetadata -> fun () -> { metadata; customMetadata }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidPasswordException e ->
          `Assoc
            [("error", (`String "InvalidPasswordException"));
            ("details", (InvalidPasswordException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Metadata",
           (Option.map x.metadata ~f:DocumentVersionMetadata.to_value));
        ("CustomMetadata",
          (Option.map x.customMetadata ~f:CustomMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customMetadata =
        (Option.map ~f:CustomMetadataMap.of_xml)
          (Xml.child xml_arg0 "CustomMetadata") in
      let metadata =
        (Option.map ~f:DocumentVersionMetadata.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      make ?customMetadata ?metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customMetadata =
        field_map json__ "CustomMetadata" CustomMetadataMap.of_json in
      let metadata =
        field_map json__ "Metadata" DocumentVersionMetadata.of_json in
      make ?customMetadata ?metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves version metadata for the specified document."]
module GetDocumentVersionRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The version ID of the document."];
      fields: FieldNamesType.t option
        [@ocaml.doc
          "A comma-separated list of values. Specify \"SOURCE\" to include a URL for the source document."];
      includeCustomMetadata: BooleanType.t option
        [@ocaml.doc
          "Set this to TRUE to include custom metadata in the response."]}
    let context_ = "GetDocumentVersionRequest"
    let make ?authenticationToken =
      fun ?fields ->
        fun ?includeCustomMetadata ->
          fun ~documentId ->
            fun ~versionId ->
              fun () ->
                {
                  authenticationToken;
                  fields;
                  includeCustomMetadata;
                  documentId;
                  versionId
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("fields", (Option.map x.fields ~f:FieldNamesType.to_value));
        ("includeCustomMetadata",
          (Option.map x.includeCustomMetadata ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeCustomMetadata =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "includeCustomMetadata") in
      let fields =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "fields") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?includeCustomMetadata ?fields ~versionId ~documentId
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeCustomMetadata =
        field_map json__ "IncludeCustomMetadata" BooleanType.of_json in
      let fields = field_map json__ "Fields" FieldNamesType.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?includeCustomMetadata ?fields ~versionId ~documentId
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves version metadata for the specified document."]
module GetDocumentResponse =
  struct
    type nonrec t =
      {
      metadata: DocumentMetadata.t option
        [@ocaml.doc "The metadata details of the document."];
      customMetadata: CustomMetadataMap.t option
        [@ocaml.doc "The custom metadata on the document."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidPasswordException of InvalidPasswordException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metadata =
      fun ?customMetadata -> fun () -> { metadata; customMetadata }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidPasswordException e ->
          `Assoc
            [("error", (`String "InvalidPasswordException"));
            ("details", (InvalidPasswordException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Metadata", (Option.map x.metadata ~f:DocumentMetadata.to_value));
        ("CustomMetadata",
          (Option.map x.customMetadata ~f:CustomMetadataMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customMetadata =
        (Option.map ~f:CustomMetadataMap.of_xml)
          (Xml.child xml_arg0 "CustomMetadata") in
      let metadata =
        (Option.map ~f:DocumentMetadata.of_xml)
          (Xml.child xml_arg0 "Metadata") in
      make ?customMetadata ?metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customMetadata =
        field_map json__ "CustomMetadata" CustomMetadataMap.of_json in
      let metadata = field_map json__ "Metadata" DocumentMetadata.of_json in
      make ?customMetadata ?metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of a document."]
module GetDocumentRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      includeCustomMetadata: BooleanType.t option
        [@ocaml.doc
          "Set this to TRUE to include custom metadata in the response."]}
    let context_ = "GetDocumentRequest"
    let make ?authenticationToken =
      fun ?includeCustomMetadata ->
        fun ~documentId ->
          fun () ->
            { authenticationToken; includeCustomMetadata; documentId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("includeCustomMetadata",
          (Option.map x.includeCustomMetadata ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let includeCustomMetadata =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "includeCustomMetadata") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?includeCustomMetadata ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let includeCustomMetadata =
        field_map json__ "IncludeCustomMetadata" BooleanType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?includeCustomMetadata ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details of a document."]
module GetDocumentPathResponse =
  struct
    type nonrec t =
      {
      path: ResourcePath.t option [@ocaml.doc "The path information."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?path = fun () -> { path }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Path", (Option.map x.path ~f:ResourcePath.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let path =
        (Option.map ~f:ResourcePath.of_xml) (Xml.child xml_arg0 "Path") in
      make ?path ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let path = field_map json__ "Path" ResourcePath.of_json in
      make ?path ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the path information (the hierarchy from the root folder) for the requested document. By default, Amazon WorkDocs returns a maximum of 100 levels upwards from the requested document and only includes the IDs of the parent folders in the path. You can limit the maximum number of levels. You can also request the names of the parent folders."]
module GetDocumentPathRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: IdType.t [@ocaml.doc "The ID of the document."];
      limit: LimitType.t option
        [@ocaml.doc
          "The maximum number of levels in the hierarchy to return."];
      fields: FieldNamesType.t option
        [@ocaml.doc
          "A comma-separated list of values. Specify NAME to include the names of the parent folders."];
      marker: PageMarkerType.t option
        [@ocaml.doc "This value is not supported."]}
    let context_ = "GetDocumentPathRequest"
    let make ?authenticationToken =
      fun ?limit ->
        fun ?fields ->
          fun ?marker ->
            fun ~documentId ->
              fun () ->
                { authenticationToken; limit; fields; marker; documentId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (IdType.to_value x.documentId)));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("fields", (Option.map x.fields ~f:FieldNamesType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let fields =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "fields") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let documentId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?fields ?limit ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let fields = field_map json__ "Fields" FieldNamesType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let documentId = field_map_exn json__ "DocumentId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?fields ?limit ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the path information (the hierarchy from the root folder) for the requested document. By default, Amazon WorkDocs returns a maximum of 100 levels upwards from the requested document and only includes the IDs of the parent folders in the path. You can limit the maximum number of levels. You can also request the names of the parent folders."]
module GetCurrentUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option [@ocaml.doc "Metadata of the user."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of the current user for whom the authentication token was generated. This is not a valid action for SigV4 (administrative API) clients. This action requires an authentication token. To get an authentication token, register an application with Amazon WorkDocs. For more information, see Authentication and Access Control for User Applications in the Amazon WorkDocs Developer Guide."]
module GetCurrentUserRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t
        [@ocaml.doc "Amazon WorkDocs authentication token."]}
    let context_ = "GetCurrentUserRequest"
    let make ~authenticationToken = fun () -> { authenticationToken }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~authenticationToken:(AuthenticationHeaderType.of_string
                                    ((List.Assoc.find_exn
                                        ~equal:String.Caseless.equal) xs
                                       "Authentication")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("Authentication",
           (Some (AuthenticationHeaderType.to_value x.authenticationToken)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationToken =
        AuthenticationHeaderType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Authentication") in
      make ~authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationToken =
        field_map_exn json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details of the current user for whom the authentication token was generated. This is not a valid action for SigV4 (administrative API) clients. This action requires an authentication token. To get an authentication token, register an application with Amazon WorkDocs. For more information, see Authentication and Access Control for User Applications in the Amazon WorkDocs Developer Guide."]
module DescribeUsersResponse =
  struct
    type nonrec t =
      {
      users: OrganizationUserList.t option [@ocaml.doc "The users."];
      totalNumberOfUsers: SizeType.t option
        [@ocaml.doc "The total number of users included in the results."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `RequestedEntityTooLargeException of
          RequestedEntityTooLargeException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?users =
      fun ?totalNumberOfUsers ->
        fun ?marker -> fun () -> { users; totalNumberOfUsers; marker }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "RequestedEntityTooLargeException" ->
          `RequestedEntityTooLargeException
            (RequestedEntityTooLargeException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "RequestedEntityTooLargeException" ->
          `RequestedEntityTooLargeException
            (RequestedEntityTooLargeException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `RequestedEntityTooLargeException e ->
          `Assoc
            [("error", (`String "RequestedEntityTooLargeException"));
            ("details", (RequestedEntityTooLargeException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Users", (Option.map x.users ~f:OrganizationUserList.to_value));
        ("TotalNumberOfUsers",
          (Option.map x.totalNumberOfUsers ~f:SizeType.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let totalNumberOfUsers =
        (Option.map ~f:SizeType.of_xml)
          (Xml.child xml_arg0 "TotalNumberOfUsers") in
      let users =
        (Option.map ~f:OrganizationUserList.of_xml)
          (Xml.child xml_arg0 "Users") in
      make ?marker ?totalNumberOfUsers ?users ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let totalNumberOfUsers =
        field_map json__ "TotalNumberOfUsers" SizeType.of_json in
      let users = field_map json__ "Users" OrganizationUserList.of_json in
      make ?marker ?totalNumberOfUsers ?users ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified users. You can describe all users or filter the results (for example, by status or organization). By default, Amazon WorkDocs returns the first 24 active or pending users. If there are more results, the response includes a marker that you can use to request the next set of results."]
module DescribeUsersRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      organizationId: IdType.t option
        [@ocaml.doc "The ID of the organization."];
      userIds: UserIdsType.t option [@ocaml.doc "The IDs of the users."];
      query: SearchQueryType.t option
        [@ocaml.doc
          "A query to filter users by user name. Remember the following about the Userids and Query parameters: If you don't use either parameter, the API returns a paginated list of all users on the site. If you use both parameters, the API ignores the Query parameter. The Userid parameter only returns user names that match a corresponding user ID. The Query parameter runs a \"prefix\" search for users by the GivenName, SurName, or UserName fields included in a CreateUser API call. For example, querying on Ma returns M\195\161rcia Oliveira, Mar\195\173a Garc\195\173a, and Mateo Jackson. If you use multiple characters, the API only returns data that matches all characters. For example, querying on Ma J only returns Mateo Jackson."];
      include_: UserFilterType.t option
        [@ocaml.doc
          "The state of the users. Specify \"ALL\" to include inactive users."];
      order: OrderType.t option [@ocaml.doc "The order for the results."];
      sort: UserSortType.t option [@ocaml.doc "The sorting criteria."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call.)"];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return."];
      fields: FieldNamesType.t option
        [@ocaml.doc
          "A comma-separated list of values. Specify \"STORAGE_METADATA\" to include the user storage quota and utilization information."]}
    let make ?authenticationToken =
      fun ?organizationId ->
        fun ?userIds ->
          fun ?query ->
            fun ?include_ ->
              fun ?order ->
                fun ?sort ->
                  fun ?marker ->
                    fun ?limit ->
                      fun ?fields ->
                        fun () ->
                          {
                            authenticationToken;
                            organizationId;
                            userIds;
                            query;
                            include_;
                            order;
                            sort;
                            marker;
                            limit;
                            fields
                          }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("organizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("userIds", (Option.map x.userIds ~f:UserIdsType.to_value));
        ("query", (Option.map x.query ~f:SearchQueryType.to_value));
        ("include", (Option.map x.include_ ~f:UserFilterType.to_value));
        ("order", (Option.map x.order ~f:OrderType.to_value));
        ("sort", (Option.map x.sort ~f:UserSortType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("fields", (Option.map x.fields ~f:FieldNamesType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "fields") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let sort =
        (Option.map ~f:UserSortType.of_xml) (Xml.child xml_arg0 "sort") in
      let order =
        (Option.map ~f:OrderType.of_xml) (Xml.child xml_arg0 "order") in
      let include_ =
        (Option.map ~f:UserFilterType.of_xml) (Xml.child xml_arg0 "include") in
      let query =
        (Option.map ~f:SearchQueryType.of_xml) (Xml.child xml_arg0 "query") in
      let userIds =
        (Option.map ~f:UserIdsType.of_xml) (Xml.child xml_arg0 "userIds") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "organizationId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?fields ?limit ?marker ?sort ?order ?include_ ?query ?userIds
        ?organizationId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map json__ "Fields" FieldNamesType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let sort = field_map json__ "Sort" UserSortType.of_json in
      let order = field_map json__ "Order" OrderType.of_json in
      let include_ = field_map json__ "Include" UserFilterType.of_json in
      let query = field_map json__ "Query" SearchQueryType.of_json in
      let userIds = field_map json__ "UserIds" UserIdsType.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?fields ?limit ?marker ?sort ?order ?include_ ?query ?userIds
        ?organizationId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the specified users. You can describe all users or filter the results (for example, by status or organization). By default, Amazon WorkDocs returns the first 24 active or pending users. If there are more results, the response includes a marker that you can use to request the next set of results."]
module DescribeRootFoldersResponse =
  struct
    type nonrec t =
      {
      folders: FolderMetadataList.t option
        [@ocaml.doc "The user's special folders."];
      marker: PageMarkerType.t option
        [@ocaml.doc "The marker for the next set of results."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?folders = fun ?marker -> fun () -> { folders; marker }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Folders", (Option.map x.folders ~f:FolderMetadataList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let folders =
        (Option.map ~f:FolderMetadataList.of_xml)
          (Xml.child xml_arg0 "Folders") in
      make ?marker ?folders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let folders = field_map json__ "Folders" FolderMetadataList.of_json in
      make ?marker ?folders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current user's special folders; the RootFolder and the RecycleBin. RootFolder is the root of user's files and folders and RecycleBin is the root of recycled items. This is not a valid action for SigV4 (administrative API) clients. This action requires an authentication token. To get an authentication token, register an application with Amazon WorkDocs. For more information, see Authentication and Access Control for User Applications in the Amazon WorkDocs Developer Guide."]
module DescribeRootFoldersRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t
        [@ocaml.doc "Amazon WorkDocs authentication token."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call.)"]}
    let context_ = "DescribeRootFoldersRequest"
    let make ?limit =
      fun ?marker ->
        fun ~authenticationToken ->
          fun () -> { limit; marker; authenticationToken }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Some (AuthenticationHeaderType.to_value x.authenticationToken)));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let authenticationToken =
        AuthenticationHeaderType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Authentication") in
      make ?marker ?limit ~authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let authenticationToken =
        field_map_exn json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ~authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the current user's special folders; the RootFolder and the RecycleBin. RootFolder is the root of user's files and folders and RecycleBin is the root of recycled items. This is not a valid action for SigV4 (administrative API) clients. This action requires an authentication token. To get an authentication token, register an application with Amazon WorkDocs. For more information, see Authentication and Access Control for User Applications in the Amazon WorkDocs Developer Guide."]
module DescribeResourcePermissionsResponse =
  struct
    type nonrec t =
      {
      principals: PrincipalList.t option [@ocaml.doc "The principals."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?principals = fun ?marker -> fun () -> { principals; marker }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Principals", (Option.map x.principals ~f:PrincipalList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let principals =
        (Option.map ~f:PrincipalList.of_xml)
          (Xml.child xml_arg0 "Principals") in
      make ?marker ?principals ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let principals = field_map json__ "Principals" PrincipalList.of_json in
      make ?marker ?principals ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the permissions of a specified resource."]
module DescribeResourcePermissionsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      principalId: IdType.t option
        [@ocaml.doc "The ID of the principal to filter permissions by."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return with this call."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call)"]}
    let context_ = "DescribeResourcePermissionsRequest"
    let make ?authenticationToken =
      fun ?principalId ->
        fun ?limit ->
          fun ?marker ->
            fun ~resourceId ->
              fun () ->
                { authenticationToken; principalId; limit; marker; resourceId
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("principalId", (Option.map x.principalId ~f:IdType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let principalId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "principalId") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?limit ?principalId ~resourceId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let principalId = field_map json__ "PrincipalId" IdType.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ?principalId ~resourceId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes the permissions of a specified resource."]
module DescribeNotificationSubscriptionsResponse =
  struct
    type nonrec t =
      {
      subscriptions: SubscriptionList.t option
        [@ocaml.doc "The subscriptions."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?subscriptions =
      fun ?marker -> fun () -> { subscriptions; marker }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Subscriptions",
           (Option.map x.subscriptions ~f:SubscriptionList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let subscriptions =
        (Option.map ~f:SubscriptionList.of_xml)
          (Xml.child xml_arg0 "Subscriptions") in
      make ?marker ?subscriptions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let subscriptions =
        field_map json__ "Subscriptions" SubscriptionList.of_json in
      make ?marker ?subscriptions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the specified notification subscriptions."]
module DescribeNotificationSubscriptionsRequest =
  struct
    type nonrec t =
      {
      organizationId: IdType.t [@ocaml.doc "The ID of the organization."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call.)"];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return with this call."]}
    let context_ = "DescribeNotificationSubscriptionsRequest"
    let make ?marker =
      fun ?limit ->
        fun ~organizationId -> fun () -> { marker; limit; organizationId }
    let to_value x =
      structure_to_value
        [("OrganizationId", (Some (IdType.to_value x.organizationId)));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let organizationId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OrganizationId") in
      make ?limit ?marker ~organizationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" LimitType.of_json in
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let organizationId =
        field_map_exn json__ "OrganizationId" IdType.of_json in
      make ?limit ?marker ~organizationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists the specified notification subscriptions."]
module DescribeGroupsResponse =
  struct
    type nonrec t =
      {
      groups: GroupMetadataList.t option [@ocaml.doc "The list of groups."];
      marker: MarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?groups = fun ?marker -> fun () -> { groups; marker }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Groups", (Option.map x.groups ~f:GroupMetadataList.to_value));
        ("Marker", (Option.map x.marker ~f:MarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:MarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let groups =
        (Option.map ~f:GroupMetadataList.of_xml)
          (Xml.child xml_arg0 "Groups") in
      make ?marker ?groups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" MarkerType.of_json in
      let groups = field_map json__ "Groups" GroupMetadataList.of_json in
      make ?marker ?groups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the groups specified by the query. Groups are defined by the underlying Active Directory."]
module DescribeGroupsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      searchQuery: SearchQueryType.t
        [@ocaml.doc "A query to describe groups by group name."];
      organizationId: IdType.t option
        [@ocaml.doc "The ID of the organization."];
      marker: MarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call.)"];
      limit: PositiveIntegerType.t option
        [@ocaml.doc "The maximum number of items to return with this call."]}
    let context_ = "DescribeGroupsRequest"
    let make ?authenticationToken =
      fun ?organizationId ->
        fun ?marker ->
          fun ?limit ->
            fun ~searchQuery ->
              fun () ->
                {
                  authenticationToken;
                  organizationId;
                  marker;
                  limit;
                  searchQuery
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("searchQuery", (Some (SearchQueryType.to_value x.searchQuery)));
        ("organizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("marker", (Option.map x.marker ~f:MarkerType.to_value));
        ("limit", (Option.map x.limit ~f:PositiveIntegerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let limit =
        (Option.map ~f:PositiveIntegerType.of_xml)
          (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:MarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "organizationId") in
      let searchQuery =
        SearchQueryType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "searchQuery") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?limit ?marker ?organizationId ~searchQuery ?authenticationToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let limit = field_map json__ "Limit" PositiveIntegerType.of_json in
      let marker = field_map json__ "Marker" MarkerType.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let searchQuery =
        field_map_exn json__ "SearchQuery" SearchQueryType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?limit ?marker ?organizationId ~searchQuery ?authenticationToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the groups specified by the query. Groups are defined by the underlying Active Directory."]
module DescribeFolderContentsResponse =
  struct
    type nonrec t =
      {
      folders: FolderMetadataList.t option
        [@ocaml.doc "The subfolders in the specified folder."];
      documents: DocumentMetadataList.t option
        [@ocaml.doc "The documents in the specified folder."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?folders =
      fun ?documents ->
        fun ?marker -> fun () -> { folders; documents; marker }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Folders", (Option.map x.folders ~f:FolderMetadataList.to_value));
        ("Documents",
          (Option.map x.documents ~f:DocumentMetadataList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let documents =
        (Option.map ~f:DocumentMetadataList.of_xml)
          (Xml.child xml_arg0 "Documents") in
      let folders =
        (Option.map ~f:FolderMetadataList.of_xml)
          (Xml.child xml_arg0 "Folders") in
      make ?marker ?documents ?folders ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let documents =
        field_map json__ "Documents" DocumentMetadataList.of_json in
      let folders = field_map json__ "Folders" FolderMetadataList.of_json in
      make ?marker ?documents ?folders ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the contents of the specified folder, including its documents and subfolders. By default, Amazon WorkDocs returns the first 100 active document and folder metadata items. If there are more results, the response includes a marker that you can use to request the next set of results. You can also request initialized documents."]
module DescribeFolderContentsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: ResourceIdType.t [@ocaml.doc "The ID of the folder."];
      sort: ResourceSortType.t option [@ocaml.doc "The sorting criteria."];
      order: OrderType.t option
        [@ocaml.doc "The order for the contents of the folder."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return with this call."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. This marker was received from a previous call."];
      type_: FolderContentType.t option [@ocaml.doc "The type of items."];
      include_: FieldNamesType.t option
        [@ocaml.doc
          "The contents to include. Specify \"INITIALIZED\" to include initialized documents."]}
    let context_ = "DescribeFolderContentsRequest"
    let make ?authenticationToken =
      fun ?sort ->
        fun ?order ->
          fun ?limit ->
            fun ?marker ->
              fun ?type_ ->
                fun ?include_ ->
                  fun ~folderId ->
                    fun () ->
                      {
                        authenticationToken;
                        sort;
                        order;
                        limit;
                        marker;
                        type_;
                        include_;
                        folderId
                      }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (ResourceIdType.to_value x.folderId)));
        ("sort", (Option.map x.sort ~f:ResourceSortType.to_value));
        ("order", (Option.map x.order ~f:OrderType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value));
        ("type", (Option.map x.type_ ~f:FolderContentType.to_value));
        ("include", (Option.map x.include_ ~f:FieldNamesType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let include_ =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "include") in
      let type_ =
        (Option.map ~f:FolderContentType.of_xml) (Xml.child xml_arg0 "type") in
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let order =
        (Option.map ~f:OrderType.of_xml) (Xml.child xml_arg0 "order") in
      let sort =
        (Option.map ~f:ResourceSortType.of_xml) (Xml.child xml_arg0 "sort") in
      let folderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?include_ ?type_ ?marker ?limit ?order ?sort ~folderId
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let include_ = field_map json__ "Include" FieldNamesType.of_json in
      let type_ = field_map json__ "Type" FolderContentType.of_json in
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let order = field_map json__ "Order" OrderType.of_json in
      let sort = field_map json__ "Sort" ResourceSortType.of_json in
      let folderId = field_map_exn json__ "FolderId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?include_ ?type_ ?marker ?limit ?order ?sort ~folderId
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the contents of the specified folder, including its documents and subfolders. By default, Amazon WorkDocs returns the first 100 active document and folder metadata items. If there are more results, the response includes a marker that you can use to request the next set of results. You can also request initialized documents."]
module DescribeDocumentVersionsResponse =
  struct
    type nonrec t =
      {
      documentVersions: DocumentVersionMetadataList.t option
        [@ocaml.doc "The document versions."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker to use when requesting the next set of results. If there are no additional results, the string is empty."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `InvalidPasswordException of InvalidPasswordException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?documentVersions =
      fun ?marker -> fun () -> { documentVersions; marker }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "InvalidPasswordException" ->
          `InvalidPasswordException (InvalidPasswordException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `InvalidPasswordException e ->
          `Assoc
            [("error", (`String "InvalidPasswordException"));
            ("details", (InvalidPasswordException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("DocumentVersions",
           (Option.map x.documentVersions
              ~f:DocumentVersionMetadataList.to_value));
        ("Marker", (Option.map x.marker ~f:PageMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let documentVersions =
        (Option.map ~f:DocumentVersionMetadataList.of_xml)
          (Xml.child xml_arg0 "DocumentVersions") in
      make ?marker ?documentVersions ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let documentVersions =
        field_map json__ "DocumentVersions"
          DocumentVersionMetadataList.of_json in
      make ?marker ?documentVersions ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the document versions for the specified document. By default, only active versions are returned."]
module DescribeDocumentVersionsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      marker: PageMarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. (You received this marker from a previous call.)"];
      limit: LimitType.t option
        [@ocaml.doc
          "The maximum number of versions to return with this call."];
      include_: FieldNamesType.t option
        [@ocaml.doc
          "A comma-separated list of values. Specify \"INITIALIZED\" to include incomplete versions."];
      fields: FieldNamesType.t option
        [@ocaml.doc
          "Specify \"SOURCE\" to include initialized versions and a URL for the source document."]}
    let context_ = "DescribeDocumentVersionsRequest"
    let make ?authenticationToken =
      fun ?marker ->
        fun ?limit ->
          fun ?include_ ->
            fun ?fields ->
              fun ~documentId ->
                fun () ->
                  {
                    authenticationToken;
                    marker;
                    limit;
                    include_;
                    fields;
                    documentId
                  }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("marker", (Option.map x.marker ~f:PageMarkerType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("include", (Option.map x.include_ ~f:FieldNamesType.to_value));
        ("fields", (Option.map x.fields ~f:FieldNamesType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fields =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "fields") in
      let include_ =
        (Option.map ~f:FieldNamesType.of_xml) (Xml.child xml_arg0 "include") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let marker =
        (Option.map ~f:PageMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?fields ?include_ ?limit ?marker ~documentId ?authenticationToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fields = field_map json__ "Fields" FieldNamesType.of_json in
      let include_ = field_map json__ "Include" FieldNamesType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let marker = field_map json__ "Marker" PageMarkerType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?fields ?include_ ?limit ?marker ~documentId ?authenticationToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the document versions for the specified document. By default, only active versions are returned."]
module DescribeCommentsResponse =
  struct
    type nonrec t =
      {
      comments: CommentList.t option
        [@ocaml.doc
          "The list of comments for the specified document version."];
      marker: MarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. This marker was received from a previous call."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comments = fun ?marker -> fun () -> { comments; marker }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Comments", (Option.map x.comments ~f:CommentList.to_value));
        ("Marker", (Option.map x.marker ~f:MarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:MarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let comments =
        (Option.map ~f:CommentList.of_xml) (Xml.child xml_arg0 "Comments") in
      make ?marker ?comments ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" MarkerType.of_json in
      let comments = field_map json__ "Comments" CommentList.of_json in
      make ?marker ?comments ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all the comments for the specified document version."]
module DescribeCommentsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The ID of the document version."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return."];
      marker: MarkerType.t option
        [@ocaml.doc
          "The marker for the next set of results. This marker was received from a previous call."]}
    let context_ = "DescribeCommentsRequest"
    let make ?authenticationToken =
      fun ?limit ->
        fun ?marker ->
          fun ~documentId ->
            fun ~versionId ->
              fun () ->
                { authenticationToken; limit; marker; documentId; versionId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:MarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:MarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?limit ~versionId ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" MarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ~versionId ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "List all the comments for the specified document version."]
module DescribeActivitiesResponse =
  struct
    type nonrec t =
      {
      userActivities: UserActivities.t option
        [@ocaml.doc
          "The list of activities for the specified user and time period."];
      marker: SearchMarkerType.t option
        [@ocaml.doc "The marker for the next set of results."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userActivities =
      fun ?marker -> fun () -> { userActivities; marker }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("UserActivities",
           (Option.map x.userActivities ~f:UserActivities.to_value));
        ("Marker", (Option.map x.marker ~f:SearchMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:SearchMarkerType.of_xml) (Xml.child xml_arg0 "Marker") in
      let userActivities =
        (Option.map ~f:UserActivities.of_xml)
          (Xml.child xml_arg0 "UserActivities") in
      make ?marker ?userActivities ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" SearchMarkerType.of_json in
      let userActivities =
        field_map json__ "UserActivities" UserActivities.of_json in
      make ?marker ?userActivities ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the user activities in a specified time period."]
module DescribeActivitiesRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      startTime: TimestampType.t option
        [@ocaml.doc
          "The timestamp that determines the starting time of the activities. The response includes the activities performed after the specified timestamp."];
      endTime: TimestampType.t option
        [@ocaml.doc
          "The timestamp that determines the end time of the activities. The response includes the activities performed before the specified timestamp."];
      organizationId: IdType.t option
        [@ocaml.doc
          "The ID of the organization. This is a mandatory parameter when using administrative API (SigV4) requests."];
      activityTypes: ActivityNamesFilterType.t option
        [@ocaml.doc
          "Specifies which activity types to include in the response. If this field is left empty, all activity types are returned."];
      resourceId: IdType.t option
        [@ocaml.doc
          "The document or folder ID for which to describe activity types."];
      userId: IdType.t option
        [@ocaml.doc
          "The ID of the user who performed the action. The response includes activities pertaining to this user. This is an optional parameter and is only applicable for administrative API (SigV4) requests."];
      includeIndirectActivities: BooleanType.t option
        [@ocaml.doc
          "Includes indirect activities. An indirect activity results from a direct activity performed on a parent resource. For example, sharing a parent folder (the direct activity) shares all of the subfolders and documents within the parent folder (the indirect activity)."];
      limit: LimitType.t option
        [@ocaml.doc "The maximum number of items to return."];
      marker: SearchMarkerType.t option
        [@ocaml.doc "The marker for the next set of results."]}
    let make ?authenticationToken =
      fun ?startTime ->
        fun ?endTime ->
          fun ?organizationId ->
            fun ?activityTypes ->
              fun ?resourceId ->
                fun ?userId ->
                  fun ?includeIndirectActivities ->
                    fun ?limit ->
                      fun ?marker ->
                        fun () ->
                          {
                            authenticationToken;
                            startTime;
                            endTime;
                            organizationId;
                            activityTypes;
                            resourceId;
                            userId;
                            includeIndirectActivities;
                            limit;
                            marker
                          }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("startTime", (Option.map x.startTime ~f:TimestampType.to_value));
        ("endTime", (Option.map x.endTime ~f:TimestampType.to_value));
        ("organizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("activityTypes",
          (Option.map x.activityTypes ~f:ActivityNamesFilterType.to_value));
        ("resourceId", (Option.map x.resourceId ~f:IdType.to_value));
        ("userId", (Option.map x.userId ~f:IdType.to_value));
        ("includeIndirectActivities",
          (Option.map x.includeIndirectActivities ~f:BooleanType.to_value));
        ("limit", (Option.map x.limit ~f:LimitType.to_value));
        ("marker", (Option.map x.marker ~f:SearchMarkerType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let marker =
        (Option.map ~f:SearchMarkerType.of_xml) (Xml.child xml_arg0 "marker") in
      let limit =
        (Option.map ~f:LimitType.of_xml) (Xml.child xml_arg0 "limit") in
      let includeIndirectActivities =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "includeIndirectActivities") in
      let userId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "userId") in
      let resourceId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "resourceId") in
      let activityTypes =
        (Option.map ~f:ActivityNamesFilterType.of_xml)
          (Xml.child xml_arg0 "activityTypes") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "organizationId") in
      let endTime =
        (Option.map ~f:TimestampType.of_xml) (Xml.child xml_arg0 "endTime") in
      let startTime =
        (Option.map ~f:TimestampType.of_xml) (Xml.child xml_arg0 "startTime") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?marker ?limit ?includeIndirectActivities ?userId ?resourceId
        ?activityTypes ?organizationId ?endTime ?startTime
        ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let marker = field_map json__ "Marker" SearchMarkerType.of_json in
      let limit = field_map json__ "Limit" LimitType.of_json in
      let includeIndirectActivities =
        field_map json__ "IncludeIndirectActivities" BooleanType.of_json in
      let userId = field_map json__ "UserId" IdType.of_json in
      let resourceId = field_map json__ "ResourceId" IdType.of_json in
      let activityTypes =
        field_map json__ "ActivityTypes" ActivityNamesFilterType.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      let endTime = field_map json__ "EndTime" TimestampType.of_json in
      let startTime = field_map json__ "StartTime" TimestampType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?marker ?limit ?includeIndirectActivities ?userId ?resourceId
        ?activityTypes ?organizationId ?endTime ?startTime
        ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the user activities in a specified time period."]
module DeleteUserRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using Amazon Web Services credentials."];
      userId: IdType.t [@ocaml.doc "The ID of the user."]}
    let context_ = "DeleteUserRequest"
    let make ?authenticationToken =
      fun ~userId -> fun () -> { authenticationToken; userId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("UserId", (Some (IdType.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~userId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "UserId" IdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~userId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified user from a Simple AD or Microsoft AD directory. Deleting a user immediately and permanently deletes all content in that user's folder structure. Site retention policies do NOT apply to this type of deletion."]
module DeleteNotificationSubscriptionRequest =
  struct
    type nonrec t =
      {
      subscriptionId: IdType.t [@ocaml.doc "The ID of the subscription."];
      organizationId: IdType.t [@ocaml.doc "The ID of the organization."]}
    let context_ = "DeleteNotificationSubscriptionRequest"
    let make ~subscriptionId =
      fun ~organizationId -> fun () -> { subscriptionId; organizationId }
    let to_value x =
      structure_to_value
        [("SubscriptionId", (Some (IdType.to_value x.subscriptionId)));
        ("OrganizationId", (Some (IdType.to_value x.organizationId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let organizationId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OrganizationId") in
      let subscriptionId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionId") in
      make ~organizationId ~subscriptionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let organizationId =
        field_map_exn json__ "OrganizationId" IdType.of_json in
      let subscriptionId =
        field_map_exn json__ "SubscriptionId" IdType.of_json in
      make ~organizationId ~subscriptionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes the specified subscription from the specified organization."]
module DeleteLabelsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified list of labels from a resource."]
module DeleteLabelsRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      labels: SharedLabels.t option
        [@ocaml.doc "List of labels to delete from the resource."];
      deleteAll: BooleanType.t option
        [@ocaml.doc
          "Flag to request removal of all labels from the specified resource."]}
    let context_ = "DeleteLabelsRequest"
    let make ?authenticationToken =
      fun ?labels ->
        fun ?deleteAll ->
          fun ~resourceId ->
            fun () -> { authenticationToken; labels; deleteAll; resourceId }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("Authentication",
          (Option.map x.authenticationToken
             ~f:AuthenticationHeaderType.to_value));
        ("labels", (Option.map x.labels ~f:SharedLabels.to_value));
        ("deleteAll", (Option.map x.deleteAll ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteAll =
        (Option.map ~f:BooleanType.of_xml) (Xml.child xml_arg0 "deleteAll") in
      let labels =
        (Option.map ~f:SharedLabels.of_xml) (Xml.child xml_arg0 "labels") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?deleteAll ?labels ?authenticationToken ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteAll = field_map json__ "DeleteAll" BooleanType.of_json in
      let labels = field_map json__ "Labels" SharedLabels.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      make ?deleteAll ?labels ?authenticationToken ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified list of labels from a resource."]
module DeleteFolderRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: ResourceIdType.t [@ocaml.doc "The ID of the folder."]}
    let context_ = "DeleteFolderRequest"
    let make ?authenticationToken =
      fun ~folderId -> fun () -> { authenticationToken; folderId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (ResourceIdType.to_value x.folderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let folderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~folderId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let folderId = field_map_exn json__ "FolderId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~folderId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently deletes the specified folder and its contents."]
module DeleteFolderContentsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      folderId: ResourceIdType.t [@ocaml.doc "The ID of the folder."]}
    let context_ = "DeleteFolderContentsRequest"
    let make ?authenticationToken =
      fun ~folderId -> fun () -> { authenticationToken; folderId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("FolderId", (Some (ResourceIdType.to_value x.folderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let folderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "FolderId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~folderId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let folderId = field_map_exn json__ "FolderId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~folderId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the contents of the specified folder."]
module DeleteDocumentVersionRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t
        [@ocaml.doc
          "The ID of the document associated with the version being deleted."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The ID of the version being deleted."];
      deletePriorVersions: BooleanType.t
        [@ocaml.doc
          "Deletes all versions of a document prior to the current version."]}
    let context_ = "DeleteDocumentVersionRequest"
    let make ?authenticationToken =
      fun ~documentId ->
        fun ~versionId ->
          fun ~deletePriorVersions ->
            fun () ->
              {
                authenticationToken;
                documentId;
                versionId;
                deletePriorVersions
              }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("deletePriorVersions",
          (Some (BooleanType.to_value x.deletePriorVersions)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deletePriorVersions =
        BooleanType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "deletePriorVersions") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~deletePriorVersions ~versionId ~documentId ?authenticationToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deletePriorVersions =
        field_map_exn json__ "DeletePriorVersions" BooleanType.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~deletePriorVersions ~versionId ~documentId ?authenticationToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a specific version of a document."]
module DeleteDocumentRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."]}
    let context_ = "DeleteDocumentRequest"
    let make ?authenticationToken =
      fun ~documentId -> fun () -> { authenticationToken; documentId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permanently deletes the specified document and its associated metadata."]
module DeleteCustomMetadataResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes custom metadata from the specified resource."]
module DeleteCustomMetadataRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t
        [@ocaml.doc "The ID of the resource, either a document or folder."];
      versionId: DocumentVersionIdType.t option
        [@ocaml.doc
          "The ID of the version, if the custom metadata is being deleted from a document version."];
      keys: CustomMetadataKeyList.t option
        [@ocaml.doc "List of properties to remove."];
      deleteAll: BooleanType.t option
        [@ocaml.doc
          "Flag to indicate removal of all custom metadata properties from the specified resource."]}
    let context_ = "DeleteCustomMetadataRequest"
    let make ?authenticationToken =
      fun ?versionId ->
        fun ?keys ->
          fun ?deleteAll ->
            fun ~resourceId ->
              fun () ->
                { authenticationToken; versionId; keys; deleteAll; resourceId
                }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("versionId",
          (Option.map x.versionId ~f:DocumentVersionIdType.to_value));
        ("keys", (Option.map x.keys ~f:CustomMetadataKeyList.to_value));
        ("deleteAll", (Option.map x.deleteAll ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deleteAll =
        (Option.map ~f:BooleanType.of_xml) (Xml.child xml_arg0 "deleteAll") in
      let keys =
        (Option.map ~f:CustomMetadataKeyList.of_xml)
          (Xml.child xml_arg0 "keys") in
      let versionId =
        (Option.map ~f:DocumentVersionIdType.of_xml)
          (Xml.child xml_arg0 "versionId") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?deleteAll ?keys ?versionId ~resourceId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deleteAll = field_map json__ "DeleteAll" BooleanType.of_json in
      let keys = field_map json__ "Keys" CustomMetadataKeyList.of_json in
      let versionId =
        field_map json__ "VersionId" DocumentVersionIdType.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?deleteAll ?keys ?versionId ~resourceId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes custom metadata from the specified resource."]
module DeleteCommentRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The ID of the document version."];
      commentId: CommentIdType.t [@ocaml.doc "The ID of the comment."]}
    let context_ = "DeleteCommentRequest"
    let make ?authenticationToken =
      fun ~documentId ->
        fun ~versionId ->
          fun ~commentId ->
            fun () ->
              { authenticationToken; documentId; versionId; commentId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("CommentId", (Some (CommentIdType.to_value x.commentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let commentId =
        CommentIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CommentId") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~commentId ~versionId ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let commentId = field_map_exn json__ "CommentId" CommentIdType.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~commentId ~versionId ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes the specified comment from the document version."]
module DeactivateUserRequest =
  struct
    type nonrec t =
      {
      userId: IdType.t [@ocaml.doc "The ID of the user."];
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."]}
    let context_ = "DeactivateUserRequest"
    let make ?authenticationToken =
      fun ~userId -> fun () -> { authenticationToken; userId }
    let to_value x =
      structure_to_value
        [("UserId", (Some (IdType.to_value x.userId)));
        ("Authentication",
          (Option.map x.authenticationToken
             ~f:AuthenticationHeaderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let userId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      make ?authenticationToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      let userId = field_map_exn json__ "UserId" IdType.of_json in
      make ?authenticationToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deactivates the specified user, which revokes the user's access to Amazon WorkDocs."]
module CreateUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option [@ocaml.doc "The user information."]}
    type nonrec error =
      [ `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a user in a Simple AD or Microsoft AD directory. The status of a newly created user is \"ACTIVE\". New users can access Amazon WorkDocs."]
module CreateUserRequest =
  struct
    type nonrec t =
      {
      organizationId: IdType.t option
        [@ocaml.doc "The ID of the organization."];
      username: UsernameType.t [@ocaml.doc "The login name of the user."];
      emailAddress: EmailAddressType.t option
        [@ocaml.doc "The email address of the user."];
      givenName: UserAttributeValueType.t
        [@ocaml.doc "The given name of the user."];
      surname: UserAttributeValueType.t
        [@ocaml.doc "The surname of the user."];
      password: PasswordType.t [@ocaml.doc "The password of the user."];
      timeZoneId: TimeZoneIdType.t option
        [@ocaml.doc "The time zone ID of the user."];
      storageRule: StorageRuleType.t option
        [@ocaml.doc "The amount of storage for the user."];
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."]}
    let context_ = "CreateUserRequest"
    let make ?organizationId =
      fun ?emailAddress ->
        fun ?timeZoneId ->
          fun ?storageRule ->
            fun ?authenticationToken ->
              fun ~username ->
                fun ~givenName ->
                  fun ~surname ->
                    fun ~password ->
                      fun () ->
                        {
                          organizationId;
                          emailAddress;
                          timeZoneId;
                          storageRule;
                          authenticationToken;
                          username;
                          givenName;
                          surname;
                          password
                        }
    let to_value x =
      structure_to_value
        [("OrganizationId", (Option.map x.organizationId ~f:IdType.to_value));
        ("Username", (Some (UsernameType.to_value x.username)));
        ("EmailAddress",
          (Option.map x.emailAddress ~f:EmailAddressType.to_value));
        ("GivenName", (Some (UserAttributeValueType.to_value x.givenName)));
        ("Surname", (Some (UserAttributeValueType.to_value x.surname)));
        ("Password", (Some (PasswordType.to_value x.password)));
        ("TimeZoneId", (Option.map x.timeZoneId ~f:TimeZoneIdType.to_value));
        ("StorageRule",
          (Option.map x.storageRule ~f:StorageRuleType.to_value));
        ("Authentication",
          (Option.map x.authenticationToken
             ~f:AuthenticationHeaderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let storageRule =
        (Option.map ~f:StorageRuleType.of_xml)
          (Xml.child xml_arg0 "StorageRule") in
      let timeZoneId =
        (Option.map ~f:TimeZoneIdType.of_xml)
          (Xml.child xml_arg0 "TimeZoneId") in
      let password =
        PasswordType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Password") in
      let surname =
        UserAttributeValueType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Surname") in
      let givenName =
        UserAttributeValueType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "GivenName") in
      let emailAddress =
        (Option.map ~f:EmailAddressType.of_xml)
          (Xml.child xml_arg0 "EmailAddress") in
      let username =
        UsernameType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Username") in
      let organizationId =
        (Option.map ~f:IdType.of_xml) (Xml.child xml_arg0 "OrganizationId") in
      make ?authenticationToken ?storageRule ?timeZoneId ~password ~surname
        ~givenName ?emailAddress ~username ?organizationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      let storageRule =
        field_map json__ "StorageRule" StorageRuleType.of_json in
      let timeZoneId = field_map json__ "TimeZoneId" TimeZoneIdType.of_json in
      let password = field_map_exn json__ "Password" PasswordType.of_json in
      let surname =
        field_map_exn json__ "Surname" UserAttributeValueType.of_json in
      let givenName =
        field_map_exn json__ "GivenName" UserAttributeValueType.of_json in
      let emailAddress =
        field_map json__ "EmailAddress" EmailAddressType.of_json in
      let username = field_map_exn json__ "Username" UsernameType.of_json in
      let organizationId = field_map json__ "OrganizationId" IdType.of_json in
      make ?authenticationToken ?storageRule ?timeZoneId ~password ~surname
        ~givenName ?emailAddress ~username ?organizationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a user in a Simple AD or Microsoft AD directory. The status of a newly created user is \"ACTIVE\". New users can access Amazon WorkDocs."]
module CreateNotificationSubscriptionResponse =
  struct
    type nonrec t =
      {
      subscription: Subscription.t option [@ocaml.doc "The subscription."]}
    type nonrec error =
      [ `InvalidArgumentException of InvalidArgumentException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManySubscriptionsException of TooManySubscriptionsException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?subscription = fun () -> { subscription }
    let error_of_json name json =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManySubscriptionsException" ->
          `TooManySubscriptionsException
            (TooManySubscriptionsException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManySubscriptionsException" ->
          `TooManySubscriptionsException
            (TooManySubscriptionsException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManySubscriptionsException e ->
          `Assoc
            [("error", (`String "TooManySubscriptionsException"));
            ("details", (TooManySubscriptionsException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Subscription",
           (Option.map x.subscription ~f:Subscription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscription =
        (Option.map ~f:Subscription.of_xml)
          (Xml.child xml_arg0 "Subscription") in
      make ?subscription ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscription = field_map json__ "Subscription" Subscription.of_json in
      make ?subscription ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configure Amazon WorkDocs to use Amazon SNS notifications. The endpoint receives a confirmation message, and must confirm the subscription. For more information, see Setting up notifications for an IAM user or role in the Amazon WorkDocs Developer Guide."]
module CreateNotificationSubscriptionRequest =
  struct
    type nonrec t =
      {
      organizationId: IdType.t [@ocaml.doc "The ID of the organization."];
      endpoint: SubscriptionEndPointType.t
        [@ocaml.doc
          "The endpoint to receive the notifications. If the protocol is HTTPS, the endpoint is a URL that begins with https."];
      protocol: SubscriptionProtocolType.t
        [@ocaml.doc
          "The protocol to use. The supported value is https, which delivers JSON-encoded messages using HTTPS POST."];
      subscriptionType: SubscriptionType.t
        [@ocaml.doc "The notification type."]}
    let context_ = "CreateNotificationSubscriptionRequest"
    let make ~organizationId =
      fun ~endpoint ->
        fun ~protocol ->
          fun ~subscriptionType ->
            fun () ->
              { organizationId; endpoint; protocol; subscriptionType }
    let to_value x =
      structure_to_value
        [("OrganizationId", (Some (IdType.to_value x.organizationId)));
        ("Endpoint", (Some (SubscriptionEndPointType.to_value x.endpoint)));
        ("Protocol", (Some (SubscriptionProtocolType.to_value x.protocol)));
        ("SubscriptionType",
          (Some (SubscriptionType.to_value x.subscriptionType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let subscriptionType =
        SubscriptionType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SubscriptionType") in
      let protocol =
        SubscriptionProtocolType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Protocol") in
      let endpoint =
        SubscriptionEndPointType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Endpoint") in
      let organizationId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "OrganizationId") in
      make ~subscriptionType ~protocol ~endpoint ~organizationId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let subscriptionType =
        field_map_exn json__ "SubscriptionType" SubscriptionType.of_json in
      let protocol =
        field_map_exn json__ "Protocol" SubscriptionProtocolType.of_json in
      let endpoint =
        field_map_exn json__ "Endpoint" SubscriptionEndPointType.of_json in
      let organizationId =
        field_map_exn json__ "OrganizationId" IdType.of_json in
      make ~subscriptionType ~protocol ~endpoint ~organizationId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configure Amazon WorkDocs to use Amazon SNS notifications. The endpoint receives a confirmation message, and must confirm the subscription. For more information, see Setting up notifications for an IAM user or role in the Amazon WorkDocs Developer Guide."]
module CreateLabelsResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `TooManyLabelsException of TooManyLabelsException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "TooManyLabelsException" ->
          `TooManyLabelsException (TooManyLabelsException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "TooManyLabelsException" ->
          `TooManyLabelsException (TooManyLabelsException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `TooManyLabelsException e ->
          `Assoc
            [("error", (`String "TooManyLabelsException"));
            ("details", (TooManyLabelsException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 the specified list of labels to the given resource (a document or folder)"]
module CreateLabelsRequest =
  struct
    type nonrec t =
      {
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      labels: SharedLabels.t
        [@ocaml.doc "List of labels to add to the resource."];
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."]}
    let context_ = "CreateLabelsRequest"
    let make ?authenticationToken =
      fun ~resourceId ->
        fun ~labels -> fun () -> { authenticationToken; resourceId; labels }
    let to_value x =
      structure_to_value
        [("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("Labels", (Some (SharedLabels.to_value x.labels)));
        ("Authentication",
          (Option.map x.authenticationToken
             ~f:AuthenticationHeaderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let labels =
        SharedLabels.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Labels") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      make ?authenticationToken ~labels ~resourceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      let labels = field_map_exn json__ "Labels" SharedLabels.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      make ?authenticationToken ~labels ~resourceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds the specified list of labels to the given resource (a document or folder)"]
module CreateFolderResponse =
  struct
    type nonrec t =
      {
      metadata: FolderMetadata.t option
        [@ocaml.doc "The metadata of the folder."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `ConflictingOperationException of ConflictingOperationException.t 
      | `EntityAlreadyExistsException of EntityAlreadyExistsException.t 
      | `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?metadata = fun () -> { metadata }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "ConflictingOperationException" ->
          `ConflictingOperationException
            (ConflictingOperationException.of_json json)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_json json)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "ConflictingOperationException" ->
          `ConflictingOperationException
            (ConflictingOperationException.of_xml xml)
      | "EntityAlreadyExistsException" ->
          `EntityAlreadyExistsException
            (EntityAlreadyExistsException.of_xml xml)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `ConflictingOperationException e ->
          `Assoc
            [("error", (`String "ConflictingOperationException"));
            ("details", (ConflictingOperationException.to_json e))]
      | `EntityAlreadyExistsException e ->
          `Assoc
            [("error", (`String "EntityAlreadyExistsException"));
            ("details", (EntityAlreadyExistsException.to_json e))]
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("Metadata", (Option.map x.metadata ~f:FolderMetadata.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let metadata =
        (Option.map ~f:FolderMetadata.of_xml) (Xml.child xml_arg0 "Metadata") in
      make ?metadata ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let metadata = field_map json__ "Metadata" FolderMetadata.of_json in
      make ?metadata ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a folder with the specified name and parent folder."]
module CreateFolderRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      name: ResourceNameType.t option
        [@ocaml.doc "The name of the new folder."];
      parentFolderId: ResourceIdType.t
        [@ocaml.doc "The ID of the parent folder."]}
    let context_ = "CreateFolderRequest"
    let make ?authenticationToken =
      fun ?name ->
        fun ~parentFolderId ->
          fun () -> { authenticationToken; name; parentFolderId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("Name", (Option.map x.name ~f:ResourceNameType.to_value));
        ("ParentFolderId", (Some (ResourceIdType.to_value x.parentFolderId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let parentFolderId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ParentFolderId") in
      let name =
        (Option.map ~f:ResourceNameType.of_xml) (Xml.child xml_arg0 "Name") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~parentFolderId ?name ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let parentFolderId =
        field_map_exn json__ "ParentFolderId" ResourceIdType.of_json in
      let name = field_map json__ "Name" ResourceNameType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~parentFolderId ?name ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a folder with the specified name and parent folder."]
module CreateCustomMetadataResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `CustomMetadataLimitExceededException of
          CustomMetadataLimitExceededException.t 
      | `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "CustomMetadataLimitExceededException" ->
          `CustomMetadataLimitExceededException
            (CustomMetadataLimitExceededException.of_json json)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CustomMetadataLimitExceededException" ->
          `CustomMetadataLimitExceededException
            (CustomMetadataLimitExceededException.of_xml xml)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CustomMetadataLimitExceededException e ->
          `Assoc
            [("error", (`String "CustomMetadataLimitExceededException"));
            ("details", (CustomMetadataLimitExceededException.to_json e))]
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 custom properties to the specified resource (a folder, document, or version)."]
module CreateCustomMetadataRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      versionId: DocumentVersionIdType.t option
        [@ocaml.doc
          "The ID of the version, if the custom metadata is being added to a document version."];
      customMetadata: CustomMetadataMap.t
        [@ocaml.doc "Custom metadata in the form of name-value pairs."]}
    let context_ = "CreateCustomMetadataRequest"
    let make ?authenticationToken =
      fun ?versionId ->
        fun ~resourceId ->
          fun ~customMetadata ->
            fun () ->
              { authenticationToken; versionId; resourceId; customMetadata }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("versionid",
          (Option.map x.versionId ~f:DocumentVersionIdType.to_value));
        ("CustomMetadata",
          (Some (CustomMetadataMap.to_value x.customMetadata)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let customMetadata =
        CustomMetadataMap.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CustomMetadata") in
      let versionId =
        (Option.map ~f:DocumentVersionIdType.of_xml)
          (Xml.child xml_arg0 "versionid") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~customMetadata ?versionId ~resourceId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let customMetadata =
        field_map_exn json__ "CustomMetadata" CustomMetadataMap.of_json in
      let versionId =
        field_map json__ "VersionId" DocumentVersionIdType.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~customMetadata ?versionId ~resourceId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more custom properties to the specified resource (a folder, document, or version)."]
module CreateCommentResponse =
  struct
    type nonrec t =
      {
      comment: Comment.t option
        [@ocaml.doc "The comment that has been created."]}
    type nonrec error =
      [
        `DocumentLockedForCommentsException of
          DocumentLockedForCommentsException.t 
      | `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `InvalidCommentOperationException of
          InvalidCommentOperationException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?comment = fun () -> { comment }
    let error_of_json name json =
      match name with
      | "DocumentLockedForCommentsException" ->
          `DocumentLockedForCommentsException
            (DocumentLockedForCommentsException.of_json json)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "InvalidCommentOperationException" ->
          `InvalidCommentOperationException
            (InvalidCommentOperationException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "DocumentLockedForCommentsException" ->
          `DocumentLockedForCommentsException
            (DocumentLockedForCommentsException.of_xml xml)
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "InvalidCommentOperationException" ->
          `InvalidCommentOperationException
            (InvalidCommentOperationException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `DocumentLockedForCommentsException e ->
          `Assoc
            [("error", (`String "DocumentLockedForCommentsException"));
            ("details", (DocumentLockedForCommentsException.to_json e))]
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `InvalidCommentOperationException e ->
          `Assoc
            [("error", (`String "InvalidCommentOperationException"));
            ("details", (InvalidCommentOperationException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Comment", (Option.map x.comment ~f:Comment.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let comment =
        (Option.map ~f:Comment.of_xml) (Xml.child xml_arg0 "Comment") in
      make ?comment ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let comment = field_map json__ "Comment" Comment.of_json in
      make ?comment ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a new comment to the specified document version."]
module CreateCommentRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The ID of the document version."];
      parentId: CommentIdType.t option
        [@ocaml.doc "The ID of the parent comment."];
      threadId: CommentIdType.t option
        [@ocaml.doc "The ID of the root comment in the thread."];
      text: CommentTextType.t [@ocaml.doc "The text of the comment."];
      visibility: CommentVisibilityType.t option
        [@ocaml.doc
          "The visibility of the comment. Options are either PRIVATE, where the comment is visible only to the comment author and document owner and co-owners, or PUBLIC, where the comment is visible to document owners, co-owners, and contributors."];
      notifyCollaborators: BooleanType.t option
        [@ocaml.doc
          "Set this parameter to TRUE to send an email out to the document collaborators after the comment is created."]}
    let context_ = "CreateCommentRequest"
    let make ?authenticationToken =
      fun ?parentId ->
        fun ?threadId ->
          fun ?visibility ->
            fun ?notifyCollaborators ->
              fun ~documentId ->
                fun ~versionId ->
                  fun ~text ->
                    fun () ->
                      {
                        authenticationToken;
                        parentId;
                        threadId;
                        visibility;
                        notifyCollaborators;
                        documentId;
                        versionId;
                        text
                      }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)));
        ("ParentId", (Option.map x.parentId ~f:CommentIdType.to_value));
        ("ThreadId", (Option.map x.threadId ~f:CommentIdType.to_value));
        ("Text", (Some (CommentTextType.to_value x.text)));
        ("Visibility",
          (Option.map x.visibility ~f:CommentVisibilityType.to_value));
        ("NotifyCollaborators",
          (Option.map x.notifyCollaborators ~f:BooleanType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notifyCollaborators =
        (Option.map ~f:BooleanType.of_xml)
          (Xml.child xml_arg0 "NotifyCollaborators") in
      let visibility =
        (Option.map ~f:CommentVisibilityType.of_xml)
          (Xml.child xml_arg0 "Visibility") in
      let text =
        CommentTextType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Text") in
      let threadId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "ThreadId") in
      let parentId =
        (Option.map ~f:CommentIdType.of_xml) (Xml.child xml_arg0 "ParentId") in
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?notifyCollaborators ?visibility ~text ?threadId ?parentId
        ~versionId ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notifyCollaborators =
        field_map json__ "NotifyCollaborators" BooleanType.of_json in
      let visibility =
        field_map json__ "Visibility" CommentVisibilityType.of_json in
      let text = field_map_exn json__ "Text" CommentTextType.of_json in
      let threadId = field_map json__ "ThreadId" CommentIdType.of_json in
      let parentId = field_map json__ "ParentId" CommentIdType.of_json in
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?notifyCollaborators ?visibility ~text ?threadId ?parentId
        ~versionId ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Adds a new comment to the specified document version."]
module AddResourcePermissionsResponse =
  struct
    type nonrec t =
      {
      shareResults: ShareResultsList.t option
        [@ocaml.doc "The share results."]}
    type nonrec error =
      [ `FailedDependencyException of FailedDependencyException.t 
      | `ProhibitedStateException of ProhibitedStateException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?shareResults = fun () -> { shareResults }
    let error_of_json name json =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ProhibitedStateException" ->
          `ProhibitedStateException (ProhibitedStateException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ProhibitedStateException e ->
          `Assoc
            [("error", (`String "ProhibitedStateException"));
            ("details", (ProhibitedStateException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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
        [("ShareResults",
           (Option.map x.shareResults ~f:ShareResultsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let shareResults =
        (Option.map ~f:ShareResultsList.of_xml)
          (Xml.child xml_arg0 "ShareResults") in
      make ?shareResults ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let shareResults =
        field_map json__ "ShareResults" ShareResultsList.of_json in
      make ?shareResults ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a set of permissions for the specified folder or document. The resource permissions are overwritten if the principals already have different permissions."]
module AddResourcePermissionsRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      resourceId: ResourceIdType.t [@ocaml.doc "The ID of the resource."];
      principals: SharePrincipalList.t
        [@ocaml.doc
          "The users, groups, or organization being granted permission."];
      notificationOptions: NotificationOptions.t option
        [@ocaml.doc "The notification options."]}
    let context_ = "AddResourcePermissionsRequest"
    let make ?authenticationToken =
      fun ?notificationOptions ->
        fun ~resourceId ->
          fun ~principals ->
            fun () ->
              {
                authenticationToken;
                notificationOptions;
                resourceId;
                principals
              }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("ResourceId", (Some (ResourceIdType.to_value x.resourceId)));
        ("Principals", (Some (SharePrincipalList.to_value x.principals)));
        ("NotificationOptions",
          (Option.map x.notificationOptions ~f:NotificationOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let notificationOptions =
        (Option.map ~f:NotificationOptions.of_xml)
          (Xml.child xml_arg0 "NotificationOptions") in
      let principals =
        SharePrincipalList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Principals") in
      let resourceId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ?notificationOptions ~principals ~resourceId ?authenticationToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let notificationOptions =
        field_map json__ "NotificationOptions" NotificationOptions.of_json in
      let principals =
        field_map_exn json__ "Principals" SharePrincipalList.of_json in
      let resourceId =
        field_map_exn json__ "ResourceId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ?notificationOptions ~principals ~resourceId ?authenticationToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a set of permissions for the specified folder or document. The resource permissions are overwritten if the principals already have different permissions."]
module ActivateUserResponse =
  struct
    type nonrec t =
      {
      user: User.t option [@ocaml.doc "The user information."]}
    type nonrec error =
      [ `EntityNotExistsException of EntityNotExistsException.t 
      | `FailedDependencyException of FailedDependencyException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnauthorizedOperationException of UnauthorizedOperationException.t 
      | `UnauthorizedResourceAccessException of
          UnauthorizedResourceAccessException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?user = fun () -> { user }
    let error_of_json name json =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_json json)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_json json)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "EntityNotExistsException" ->
          `EntityNotExistsException (EntityNotExistsException.of_xml xml)
      | "FailedDependencyException" ->
          `FailedDependencyException (FailedDependencyException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnauthorizedOperationException" ->
          `UnauthorizedOperationException
            (UnauthorizedOperationException.of_xml xml)
      | "UnauthorizedResourceAccessException" ->
          `UnauthorizedResourceAccessException
            (UnauthorizedResourceAccessException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `EntityNotExistsException e ->
          `Assoc
            [("error", (`String "EntityNotExistsException"));
            ("details", (EntityNotExistsException.to_json e))]
      | `FailedDependencyException e ->
          `Assoc
            [("error", (`String "FailedDependencyException"));
            ("details", (FailedDependencyException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnauthorizedOperationException e ->
          `Assoc
            [("error", (`String "UnauthorizedOperationException"));
            ("details", (UnauthorizedOperationException.to_json e))]
      | `UnauthorizedResourceAccessException e ->
          `Assoc
            [("error", (`String "UnauthorizedResourceAccessException"));
            ("details", (UnauthorizedResourceAccessException.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 [("User", (Option.map x.user ~f:User.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "User") in
      make ?user ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let user = field_map json__ "User" User.of_json in make ?user ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates the specified user. Only active users can access Amazon WorkDocs."]
module ActivateUserRequest =
  struct
    type nonrec t =
      {
      userId: IdType.t [@ocaml.doc "The ID of the user."];
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."]}
    let context_ = "ActivateUserRequest"
    let make ?authenticationToken =
      fun ~userId -> fun () -> { authenticationToken; userId }
    let to_value x =
      structure_to_value
        [("UserId", (Some (IdType.to_value x.userId)));
        ("Authentication",
          (Option.map x.authenticationToken
             ~f:AuthenticationHeaderType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      let userId =
        IdType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "UserId") in
      make ?authenticationToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      let userId = field_map_exn json__ "UserId" IdType.of_json in
      make ?authenticationToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Activates the specified user. Only active users can access Amazon WorkDocs."]
module AbortDocumentVersionUploadRequest =
  struct
    type nonrec t =
      {
      authenticationToken: AuthenticationHeaderType.t option
        [@ocaml.doc
          "Amazon WorkDocs authentication token. Not required when using Amazon Web Services administrator credentials to access the API."];
      documentId: ResourceIdType.t [@ocaml.doc "The ID of the document."];
      versionId: DocumentVersionIdType.t
        [@ocaml.doc "The ID of the version."]}
    let context_ = "AbortDocumentVersionUploadRequest"
    let make ?authenticationToken =
      fun ~documentId ->
        fun ~versionId ->
          fun () -> { authenticationToken; documentId; versionId }
    let to_value x =
      structure_to_value
        [("Authentication",
           (Option.map x.authenticationToken
              ~f:AuthenticationHeaderType.to_value));
        ("DocumentId", (Some (ResourceIdType.to_value x.documentId)));
        ("VersionId", (Some (DocumentVersionIdType.to_value x.versionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let versionId =
        DocumentVersionIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "VersionId") in
      let documentId =
        ResourceIdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DocumentId") in
      let authenticationToken =
        (Option.map ~f:AuthenticationHeaderType.of_xml)
          (Xml.child xml_arg0 "Authentication") in
      make ~versionId ~documentId ?authenticationToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let versionId =
        field_map_exn json__ "VersionId" DocumentVersionIdType.of_json in
      let documentId =
        field_map_exn json__ "DocumentId" ResourceIdType.of_json in
      let authenticationToken =
        field_map json__ "AuthenticationToken"
          AuthenticationHeaderType.of_json in
      make ~versionId ~documentId ?authenticationToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Aborts the upload of the specified document version that was previously initiated by InitiateDocumentVersionUpload. The client should make this call only when it no longer intends to upload the document version, or fails to do so."]