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.cognito_sync
let apiVersion = "2014-06-30"
let endpointPrefix = "cognito-sync"
let serviceFullName = "Amazon Cognito Sync"
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 Date =
  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 Long =
  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 RecordKey =
  struct
    type nonrec t = string
    let context_ = "RecordKey"
    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:"RecordKey" j
    let to_json = simple_to_json to_value
  end
module RecordValue =
  struct
    type nonrec t = string
    let context_ = "RecordValue"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1048575); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RecordValue" j
    let to_json = simple_to_json to_value
  end
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module Operation =
  struct
    type nonrec t =
      | Replace 
      | Remove 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Replace -> "replace"
      | Remove -> "remove"
      | Non_static_id s -> s
    let of_string =
      function
      | "replace" -> Replace
      | "remove" -> Remove
      | 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 Operation" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Operation" j)
    let to_json = simple_to_json to_value
  end
module ApplicationArn =
  struct
    type nonrec t = string
    let context_ = "ApplicationArn"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"arn:aws:sns:[-0-9a-z]+:\\d+:app/[A-Z_]+/[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:"ApplicationArn" j
    let to_json = simple_to_json to_value
  end
module IdentityPoolId =
  struct
    type nonrec t = string
    let context_ = "IdentityPoolId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+:[0-9a-f-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityPoolId" j
    let to_json = simple_to_json to_value
  end
module DatasetName =
  struct
    type nonrec t = string
    let context_ = "DatasetName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.:-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DatasetName" j
    let to_json = simple_to_json to_value
  end
module IdentityId =
  struct
    type nonrec t = string
    let context_ = "IdentityId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:55) >>=
                  (fun () -> check_pattern i ~pattern:"[\\w-]+:[0-9a-f-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"IdentityId" j
    let to_json = simple_to_json to_value
  end
module ExceptionMessage =
  struct
    type nonrec t = string
    let context_ = "ExceptionMessage"
    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:"ExceptionMessage" j
    let to_json = simple_to_json to_value
  end
module Record =
  struct
    type nonrec t =
      {
      key: RecordKey.t option [@ocaml.doc "The key for the record."];
      value: RecordValue.t option [@ocaml.doc "The value for the record."];
      syncCount: Long.t option
        [@ocaml.doc "The server sync count for this record."];
      lastModifiedDate: Date.t option
        [@ocaml.doc "The date on which the record was last modified."];
      lastModifiedBy: String_.t option
        [@ocaml.doc
          "The user/device that made the last change to this record."];
      deviceLastModifiedDate: Date.t option
        [@ocaml.doc "The last modified date of the client device."]}
    let make ?key =
      fun ?value ->
        fun ?syncCount ->
          fun ?lastModifiedDate ->
            fun ?lastModifiedBy ->
              fun ?deviceLastModifiedDate ->
                fun () ->
                  {
                    key;
                    value;
                    syncCount;
                    lastModifiedDate;
                    lastModifiedBy;
                    deviceLastModifiedDate
                  }
    let to_value x =
      structure_to_value
        [("Key", (Option.map x.key ~f:RecordKey.to_value));
        ("Value", (Option.map x.value ~f:RecordValue.to_value));
        ("SyncCount", (Option.map x.syncCount ~f:Long.to_value));
        ("LastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Date.to_value));
        ("LastModifiedBy", (Option.map x.lastModifiedBy ~f:String_.to_value));
        ("DeviceLastModifiedDate",
          (Option.map x.deviceLastModifiedDate ~f:Date.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceLastModifiedDate =
        (Option.map ~f:Date.of_xml)
          (Xml.child xml_arg0 "DeviceLastModifiedDate") in
      let lastModifiedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LastModifiedBy") in
      let lastModifiedDate =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "LastModifiedDate") in
      let syncCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SyncCount") in
      let value =
        (Option.map ~f:RecordValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key = (Option.map ~f:RecordKey.of_xml) (Xml.child xml_arg0 "Key") in
      make ?deviceLastModifiedDate ?lastModifiedBy ?lastModifiedDate
        ?syncCount ?value ?key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceLastModifiedDate =
        field_map json__ "DeviceLastModifiedDate" Date.of_json in
      let lastModifiedBy = field_map json__ "LastModifiedBy" String_.of_json in
      let lastModifiedDate = field_map json__ "LastModifiedDate" Date.of_json in
      let syncCount = field_map json__ "SyncCount" Long.of_json in
      let value = field_map json__ "Value" RecordValue.of_json in
      let key = field_map json__ "Key" RecordKey.of_json in
      make ?deviceLastModifiedDate ?lastModifiedBy ?lastModifiedDate
        ?syncCount ?value ?key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The basic data structure of a dataset."]
module RecordPatch =
  struct
    type nonrec t =
      {
      op: Operation.t [@ocaml.doc "An operation, either replace or remove."];
      key: RecordKey.t
        [@ocaml.doc "The key associated with the record patch."];
      value: RecordValue.t option
        [@ocaml.doc "The value associated with the record patch."];
      syncCount: Long.t
        [@ocaml.doc
          "Last known server sync count for this record. Set to 0 if unknown."];
      deviceLastModifiedDate: Date.t option
        [@ocaml.doc "The last modified date of the client device."]}
    let context_ = "RecordPatch"
    let make ?value =
      fun ?deviceLastModifiedDate ->
        fun ~op ->
          fun ~key ->
            fun ~syncCount ->
              fun () -> { value; deviceLastModifiedDate; op; key; syncCount }
    let to_value x =
      structure_to_value
        [("Op", (Some (Operation.to_value x.op)));
        ("Key", (Some (RecordKey.to_value x.key)));
        ("Value", (Option.map x.value ~f:RecordValue.to_value));
        ("SyncCount", (Some (Long.to_value x.syncCount)));
        ("DeviceLastModifiedDate",
          (Option.map x.deviceLastModifiedDate ~f:Date.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceLastModifiedDate =
        (Option.map ~f:Date.of_xml)
          (Xml.child xml_arg0 "DeviceLastModifiedDate") in
      let syncCount =
        Long.of_xml (Xml.child_exn ~context:context_ xml_arg0 "SyncCount") in
      let value =
        (Option.map ~f:RecordValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key =
        RecordKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      let op =
        Operation.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Op") in
      make ?deviceLastModifiedDate ~syncCount ?value ~key ~op ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceLastModifiedDate =
        field_map json__ "DeviceLastModifiedDate" Date.of_json in
      let syncCount = field_map_exn json__ "SyncCount" Long.of_json in
      let value = field_map json__ "Value" RecordValue.of_json in
      let key = field_map_exn json__ "Key" RecordKey.of_json in
      let op = field_map_exn json__ "Op" Operation.of_json in
      make ?deviceLastModifiedDate ~syncCount ?value ~key ~op ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "An update operation for a record."]
module AssumeRoleArn =
  struct
    type nonrec t = string
    let context_ = "AssumeRoleArn"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:20) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i ~pattern:"arn:aws:iam::\\d+:role/.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AssumeRoleArn" j
    let to_json = simple_to_json to_value
  end
module StreamName =
  struct
    type nonrec t = string
    let context_ = "StreamName"
    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:"StreamName" j
    let to_json = simple_to_json to_value
  end
module StreamingStatus =
  struct
    type nonrec t =
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "ENABLED" -> ENABLED
      | "DISABLED" -> DISABLED
      | 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 StreamingStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"StreamingStatus" j)
    let to_json = simple_to_json to_value
  end
module ApplicationArnList =
  struct
    type nonrec t = ApplicationArn.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:ApplicationArn.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:ApplicationArn.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationArnList" ~of_json:ApplicationArn.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module CognitoEventType =
  struct
    type nonrec t = string
    let context_ = "CognitoEventType"
    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:"CognitoEventType" j
    let to_json = simple_to_json to_value
  end
module LambdaFunctionArn =
  struct
    type nonrec t = string
    let context_ = "LambdaFunctionArn"
    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:"LambdaFunctionArn" j
    let to_json = simple_to_json to_value
  end
module IdentityPoolUsage =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      syncSessionsCount: Long.t option
        [@ocaml.doc "Number of sync sessions for the identity pool."];
      dataStorage: Long.t option
        [@ocaml.doc "Data storage information for the identity pool."];
      lastModifiedDate: Date.t option
        [@ocaml.doc "Date on which the identity pool was last modified."]}
    let make ?identityPoolId =
      fun ?syncSessionsCount ->
        fun ?dataStorage ->
          fun ?lastModifiedDate ->
            fun () ->
              {
                identityPoolId;
                syncSessionsCount;
                dataStorage;
                lastModifiedDate
              }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("SyncSessionsCount",
          (Option.map x.syncSessionsCount ~f:Long.to_value));
        ("DataStorage", (Option.map x.dataStorage ~f:Long.to_value));
        ("LastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Date.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedDate =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "LastModifiedDate") in
      let dataStorage =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DataStorage") in
      let syncSessionsCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "SyncSessionsCount") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?lastModifiedDate ?dataStorage ?syncSessionsCount ?identityPoolId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedDate = field_map json__ "LastModifiedDate" Date.of_json in
      let dataStorage = field_map json__ "DataStorage" Long.of_json in
      let syncSessionsCount =
        field_map json__ "SyncSessionsCount" Long.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?lastModifiedDate ?dataStorage ?syncSessionsCount ?identityPoolId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Usage information for the identity pool."]
module Dataset =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      datasetName: DatasetName.t option
        [@ocaml.doc
          "A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot)."];
      creationDate: Date.t option
        [@ocaml.doc "Date on which the dataset was created."];
      lastModifiedDate: Date.t option
        [@ocaml.doc "Date when the dataset was last modified."];
      lastModifiedBy: String_.t option
        [@ocaml.doc "The device that made the last change to this dataset."];
      dataStorage: Long.t option
        [@ocaml.doc "Total size in bytes of the records in this dataset."];
      numRecords: Long.t option
        [@ocaml.doc "Number of records in this dataset."]}
    let make ?identityId =
      fun ?datasetName ->
        fun ?creationDate ->
          fun ?lastModifiedDate ->
            fun ?lastModifiedBy ->
              fun ?dataStorage ->
                fun ?numRecords ->
                  fun () ->
                    {
                      identityId;
                      datasetName;
                      creationDate;
                      lastModifiedDate;
                      lastModifiedBy;
                      dataStorage;
                      numRecords
                    }
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("DatasetName", (Option.map x.datasetName ~f:DatasetName.to_value));
        ("CreationDate", (Option.map x.creationDate ~f:Date.to_value));
        ("LastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Date.to_value));
        ("LastModifiedBy", (Option.map x.lastModifiedBy ~f:String_.to_value));
        ("DataStorage", (Option.map x.dataStorage ~f:Long.to_value));
        ("NumRecords", (Option.map x.numRecords ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let numRecords =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "NumRecords") in
      let dataStorage =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DataStorage") in
      let lastModifiedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LastModifiedBy") in
      let lastModifiedDate =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "LastModifiedDate") in
      let creationDate =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "CreationDate") in
      let datasetName =
        (Option.map ~f:DatasetName.of_xml) (Xml.child xml_arg0 "DatasetName") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?numRecords ?dataStorage ?lastModifiedBy ?lastModifiedDate
        ?creationDate ?datasetName ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let numRecords = field_map json__ "NumRecords" Long.of_json in
      let dataStorage = field_map json__ "DataStorage" Long.of_json in
      let lastModifiedBy = field_map json__ "LastModifiedBy" String_.of_json in
      let lastModifiedDate = field_map json__ "LastModifiedDate" Date.of_json in
      let creationDate = field_map json__ "CreationDate" Date.of_json in
      let datasetName = field_map json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?numRecords ?dataStorage ?lastModifiedBy ?lastModifiedDate
        ?creationDate ?datasetName ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A collection of data for an identity pool. An identity pool can have multiple datasets. A dataset is per identity and can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs."]
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module InternalErrorException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by InternalErrorException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Indicates an internal service error."]
module InvalidLambdaFunctionOutputException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc
          "A message returned when an InvalidLambdaFunctionOutputException occurs"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The AWS Lambda function returned invalid output or an exception."]
module InvalidParameterException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by InvalidParameterException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when a request parameter does not comply with the associated constraints."]
module LambdaThrottledException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc
          "A message returned when an LambdaThrottledException is thrown"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "AWS Lambda throttled your account, please contact AWS Support"]
module LimitExceededException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by LimitExceededException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when the limit on the number of objects or operations has been exceeded."]
module NotAuthorizedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The message returned by a NotAuthorizedException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown when a user is not authorized to access the requested resource."]
module RecordList =
  struct
    type nonrec t = Record.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:Record.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:Record.of_xml)
    let of_json j = list_of_json ~kind:"RecordList" ~of_json:Record.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceConflictException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "The message returned by a ResourceConflictException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown if an update can't be applied because the resource was changed by another call and this would result in a conflict."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by a ResourceNotFoundException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Thrown if the resource doesn't exist."]
module TooManyRequestsException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by a TooManyRequestsException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Thrown if the request is throttled."]
module ClientContext =
  struct
    type nonrec t = string
    let context_ = "ClientContext"
    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:"ClientContext" j
    let to_json = simple_to_json to_value
  end
module DeviceId =
  struct
    type nonrec t = string
    let context_ = "DeviceId"
    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:"DeviceId" j
    let to_json = simple_to_json to_value
  end
module RecordPatchList =
  struct
    type nonrec t = RecordPatch.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:RecordPatch.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:RecordPatch.of_xml)
    let of_json j =
      list_of_json ~kind:"RecordPatchList" ~of_json:RecordPatch.of_json j
    let to_json v = composed_to_json to_value v
  end
module SyncSessionToken =
  struct
    type nonrec t = string
    let context_ = "SyncSessionToken"
    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:"SyncSessionToken" j
    let to_json = simple_to_json to_value
  end
module InvalidConfigurationException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc "Message returned by InvalidConfigurationException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end
module CognitoStreams =
  struct
    type nonrec t =
      {
      streamName: StreamName.t option
        [@ocaml.doc
          "The name of the Cognito stream to receive updates. This stream must be in the developers account and in the same region as the identity pool."];
      roleArn: AssumeRoleArn.t option
        [@ocaml.doc
          "The ARN of the role Amazon Cognito can assume in order to publish to the stream. This role must grant access to Amazon Cognito (cognito-sync) to invoke PutRecord on your Cognito stream."];
      streamingStatus: StreamingStatus.t option
        [@ocaml.doc
          "Status of the Cognito streams. Valid values are: ENABLED - Streaming of updates to identity pool is enabled. DISABLED - Streaming of updates to identity pool is disabled. Bulk publish will also fail if StreamingStatus is DISABLED."]}
    let make ?streamName =
      fun ?roleArn ->
        fun ?streamingStatus ->
          fun () -> { streamName; roleArn; streamingStatus }
    let to_value x =
      structure_to_value
        [("StreamName", (Option.map x.streamName ~f:StreamName.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:AssumeRoleArn.to_value));
        ("StreamingStatus",
          (Option.map x.streamingStatus ~f:StreamingStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let streamingStatus =
        (Option.map ~f:StreamingStatus.of_xml)
          (Xml.child xml_arg0 "StreamingStatus") in
      let roleArn =
        (Option.map ~f:AssumeRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let streamName =
        (Option.map ~f:StreamName.of_xml) (Xml.child xml_arg0 "StreamName") in
      make ?streamingStatus ?roleArn ?streamName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let streamingStatus =
        field_map json__ "StreamingStatus" StreamingStatus.of_json in
      let roleArn = field_map json__ "RoleArn" AssumeRoleArn.of_json in
      let streamName = field_map json__ "StreamName" StreamName.of_json in
      make ?streamingStatus ?roleArn ?streamName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Configuration options for configure Cognito streams."]
module ConcurrentModificationException =
  struct
    type nonrec t =
      {
      message: String_.t option
        [@ocaml.doc
          "The message returned by a ConcurrentModicationException."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Thrown if there are parallel requests to modify a resource."]
module PushSync =
  struct
    type nonrec t =
      {
      applicationArns: ApplicationArnList.t option
        [@ocaml.doc
          "List of SNS platform application ARNs that could be used by clients."];
      roleArn: AssumeRoleArn.t option
        [@ocaml.doc
          "A role configured to allow Cognito to call SNS on behalf of the developer."]}
    let make ?applicationArns =
      fun ?roleArn -> fun () -> { applicationArns; roleArn }
    let to_value x =
      structure_to_value
        [("ApplicationArns",
           (Option.map x.applicationArns ~f:ApplicationArnList.to_value));
        ("RoleArn", (Option.map x.roleArn ~f:AssumeRoleArn.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleArn =
        (Option.map ~f:AssumeRoleArn.of_xml) (Xml.child xml_arg0 "RoleArn") in
      let applicationArns =
        (Option.map ~f:ApplicationArnList.of_xml)
          (Xml.child xml_arg0 "ApplicationArns") in
      make ?roleArn ?applicationArns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleArn = field_map json__ "RoleArn" AssumeRoleArn.of_json in
      let applicationArns =
        field_map json__ "ApplicationArns" ApplicationArnList.of_json in
      make ?roleArn ?applicationArns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Configuration options to be applied to the identity pool."]
module Events =
  struct
    type nonrec t = (CognitoEventType.t * LambdaFunctionArn.t) list
    let make i =
      let open Result in ok_or_failwith (check_list_max i ~max: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 ->
                            ((CognitoEventType.of_string chopped),
                              (LambdaFunctionArn.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (CognitoEventType.to_value x) |>
                    (fun x ->
                       (LambdaFunctionArn.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:CognitoEventType.of_string
        ~of_json:LambdaFunctionArn.of_json j
    let to_json v = composed_to_json to_value v
  end
module Platform =
  struct
    type nonrec t =
      | APNS 
      | APNS_SANDBOX 
      | GCM 
      | ADM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APNS -> "APNS"
      | APNS_SANDBOX -> "APNS_SANDBOX"
      | GCM -> "GCM"
      | ADM -> "ADM"
      | Non_static_id s -> s
    let of_string =
      function
      | "APNS" -> APNS
      | "APNS_SANDBOX" -> APNS_SANDBOX
      | "GCM" -> GCM
      | "ADM" -> ADM
      | 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 Platform" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Platform" j)
    let to_json = simple_to_json to_value
  end
module PushToken =
  struct
    type nonrec t = string
    let context_ = "PushToken"
    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:"PushToken" j
    let to_json = simple_to_json to_value
  end
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module MergedDatasetNameList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"MergedDatasetNameList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module IntegerString =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for IntegerString" 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 IdentityPoolUsageList =
  struct
    type nonrec t = IdentityPoolUsage.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:IdentityPoolUsage.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:IdentityPoolUsage.of_xml)
    let of_json j =
      list_of_json ~kind:"IdentityPoolUsageList"
        ~of_json:IdentityPoolUsage.of_json j
    let to_json v = composed_to_json to_value v
  end
module DatasetList =
  struct
    type nonrec t = Dataset.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:Dataset.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:Dataset.of_xml)
    let of_json j =
      list_of_json ~kind:"DatasetList" ~of_json:Dataset.of_json j
    let to_json v = composed_to_json to_value v
  end
module BulkPublishStatus =
  struct
    type nonrec t =
      | NOT_STARTED 
      | IN_PROGRESS 
      | FAILED 
      | SUCCEEDED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOT_STARTED -> "NOT_STARTED"
      | IN_PROGRESS -> "IN_PROGRESS"
      | FAILED -> "FAILED"
      | SUCCEEDED -> "SUCCEEDED"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOT_STARTED" -> NOT_STARTED
      | "IN_PROGRESS" -> IN_PROGRESS
      | "FAILED" -> FAILED
      | "SUCCEEDED" -> SUCCEEDED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string
        (string_of_xml ~kind:"enumeration BulkPublishStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"BulkPublishStatus" j)
    let to_json = simple_to_json to_value
  end
module IdentityUsage =
  struct
    type nonrec t =
      {
      identityId: IdentityId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      lastModifiedDate: Date.t option
        [@ocaml.doc "Date on which the identity was last modified."];
      datasetCount: Integer.t option
        [@ocaml.doc "Number of datasets for the identity."];
      dataStorage: Long.t option
        [@ocaml.doc "Total data storage for this identity."]}
    let make ?identityId =
      fun ?identityPoolId ->
        fun ?lastModifiedDate ->
          fun ?datasetCount ->
            fun ?dataStorage ->
              fun () ->
                {
                  identityId;
                  identityPoolId;
                  lastModifiedDate;
                  datasetCount;
                  dataStorage
                }
    let to_value x =
      structure_to_value
        [("IdentityId", (Option.map x.identityId ~f:IdentityId.to_value));
        ("IdentityPoolId",
          (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("LastModifiedDate",
          (Option.map x.lastModifiedDate ~f:Date.to_value));
        ("DatasetCount", (Option.map x.datasetCount ~f:Integer.to_value));
        ("DataStorage", (Option.map x.dataStorage ~f:Long.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataStorage =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DataStorage") in
      let datasetCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "DatasetCount") in
      let lastModifiedDate =
        (Option.map ~f:Date.of_xml) (Xml.child xml_arg0 "LastModifiedDate") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      let identityId =
        (Option.map ~f:IdentityId.of_xml) (Xml.child xml_arg0 "IdentityId") in
      make ?dataStorage ?datasetCount ?lastModifiedDate ?identityPoolId
        ?identityId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataStorage = field_map json__ "DataStorage" Long.of_json in
      let datasetCount = field_map json__ "DatasetCount" Integer.of_json in
      let lastModifiedDate = field_map json__ "LastModifiedDate" Date.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      let identityId = field_map json__ "IdentityId" IdentityId.of_json in
      make ?dataStorage ?datasetCount ?lastModifiedDate ?identityPoolId
        ?identityId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Usage information for the identity."]
module AlreadyStreamedException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc
          "The message associated with the AlreadyStreamedException exception."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception thrown when a bulk publish operation is requested less than 24 hours after a previous bulk publish operation completed successfully."]
module DuplicateRequestException =
  struct
    type nonrec t =
      {
      message: ExceptionMessage.t option
        [@ocaml.doc
          "The message associated with the DuplicateRequestException exception."]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ExceptionMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ExceptionMessage.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" ExceptionMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An exception thrown when there is an IN_PROGRESS bulk publish operation for the given identity pool."]
module UpdateRecordsResponse =
  struct
    type nonrec t =
      {
      records: RecordList.t option
        [@ocaml.doc "A list of records that have been updated."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidLambdaFunctionOutputException of
          InvalidLambdaFunctionOutputException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `LambdaThrottledException of LambdaThrottledException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?records = fun () -> { records }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidLambdaFunctionOutputException" ->
          `InvalidLambdaFunctionOutputException
            (InvalidLambdaFunctionOutputException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "LambdaThrottledException" ->
          `LambdaThrottledException (LambdaThrottledException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidLambdaFunctionOutputException" ->
          `InvalidLambdaFunctionOutputException
            (InvalidLambdaFunctionOutputException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "LambdaThrottledException" ->
          `LambdaThrottledException (LambdaThrottledException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidLambdaFunctionOutputException e ->
          `Assoc
            [("error", (`String "InvalidLambdaFunctionOutputException"));
            ("details", (InvalidLambdaFunctionOutputException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `LambdaThrottledException e ->
          `Assoc
            [("error", (`String "LambdaThrottledException"));
            ("details", (LambdaThrottledException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Records", (Option.map x.records ~f:RecordList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let records =
        (Option.map ~f:RecordList.of_xml) (Xml.child xml_arg0 "Records") in
      make ?records ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let records = field_map json__ "Records" RecordList.of_json in
      make ?records ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned for a successful UpdateRecordsRequest."]
module UpdateRecordsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      datasetName: DatasetName.t
        [@ocaml.doc
          "A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot)."];
      deviceId: DeviceId.t option
        [@ocaml.doc "The unique ID generated for this device by Cognito."];
      recordPatches: RecordPatchList.t option
        [@ocaml.doc "A list of patch operations."];
      syncSessionToken: SyncSessionToken.t
        [@ocaml.doc
          "The SyncSessionToken returned by a previous call to ListRecords for this dataset and identity."];
      clientContext: ClientContext.t option
        [@ocaml.doc
          "Intended to supply a device ID that will populate the lastModifiedBy field referenced in other methods. The ClientContext field is not yet implemented."]}
    let context_ = "UpdateRecordsRequest"
    let make ?deviceId =
      fun ?recordPatches ->
        fun ?clientContext ->
          fun ~identityPoolId ->
            fun ~identityId ->
              fun ~datasetName ->
                fun ~syncSessionToken ->
                  fun () ->
                    {
                      deviceId;
                      recordPatches;
                      clientContext;
                      identityPoolId;
                      identityId;
                      datasetName;
                      syncSessionToken
                    }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)));
        ("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value));
        ("RecordPatches",
          (Option.map x.recordPatches ~f:RecordPatchList.to_value));
        ("SyncSessionToken",
          (Some (SyncSessionToken.to_value x.syncSessionToken)));
        ("x-amz-Client-Context",
          (Option.map x.clientContext ~f:ClientContext.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientContext =
        (Option.map ~f:ClientContext.of_xml)
          (Xml.child xml_arg0 "x-amz-Client-Context") in
      let syncSessionToken =
        SyncSessionToken.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SyncSessionToken") in
      let recordPatches =
        (Option.map ~f:RecordPatchList.of_xml)
          (Xml.child xml_arg0 "RecordPatches") in
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?clientContext ~syncSessionToken ?recordPatches ?deviceId
        ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientContext =
        field_map json__ "ClientContext" ClientContext.of_json in
      let syncSessionToken =
        field_map_exn json__ "SyncSessionToken" SyncSessionToken.of_json in
      let recordPatches =
        field_map json__ "RecordPatches" RecordPatchList.of_json in
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?clientContext ~syncSessionToken ?recordPatches ?deviceId
        ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request to post updates to records or add and delete records for a dataset and user."]
module UnsubscribeFromDatasetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidConfigurationException of InvalidConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidConfigurationException e ->
          `Assoc
            [("error", (`String "InvalidConfigurationException"));
            ("details", (InvalidConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Response to an UnsubscribeFromDataset request."]
module UnsubscribeFromDatasetRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which this identity belongs."];
      identityId: IdentityId.t [@ocaml.doc "Unique ID for this identity."];
      datasetName: DatasetName.t
        [@ocaml.doc "The name of the dataset from which to unsubcribe."];
      deviceId: DeviceId.t
        [@ocaml.doc "The unique ID generated for this device by Cognito."]}
    let context_ = "UnsubscribeFromDatasetRequest"
    let make ~identityPoolId =
      fun ~identityId ->
        fun ~datasetName ->
          fun ~deviceId ->
            fun () -> { identityPoolId; identityId; datasetName; deviceId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~deviceId ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~deviceId ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to UnsubscribeFromDataset."]
module SubscribeToDatasetResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidConfigurationException of InvalidConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidConfigurationException e ->
          `Assoc
            [("error", (`String "InvalidConfigurationException"));
            ("details", (InvalidConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let 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 "Response to a SubscribeToDataset request."]
module SubscribeToDatasetRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which the identity belongs."];
      identityId: IdentityId.t [@ocaml.doc "Unique ID for this identity."];
      datasetName: DatasetName.t
        [@ocaml.doc "The name of the dataset to subcribe to."];
      deviceId: DeviceId.t
        [@ocaml.doc "The unique ID generated for this device by Cognito."]}
    let context_ = "SubscribeToDatasetRequest"
    let make ~identityPoolId =
      fun ~identityId ->
        fun ~datasetName ->
          fun ~deviceId ->
            fun () -> { identityPoolId; identityId; datasetName; deviceId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)));
        ("DeviceId", (Some (DeviceId.to_value x.deviceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceId =
        DeviceId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "DeviceId") in
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~deviceId ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceId = field_map_exn json__ "DeviceId" DeviceId.of_json in
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~deviceId ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to SubscribeToDatasetRequest."]
module SetIdentityPoolConfigurationResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito."];
      pushSync: PushSync.t option
        [@ocaml.doc
          "Options to apply to this identity pool for push synchronization."];
      cognitoStreams: CognitoStreams.t option
        [@ocaml.doc
          "Options to apply to this identity pool for Amazon Cognito streams."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?pushSync ->
        fun ?cognitoStreams ->
          fun () -> { identityPoolId; pushSync; cognitoStreams }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("PushSync", (Option.map x.pushSync ~f:PushSync.to_value));
        ("CognitoStreams",
          (Option.map x.cognitoStreams ~f:CognitoStreams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cognitoStreams =
        (Option.map ~f:CognitoStreams.of_xml)
          (Xml.child xml_arg0 "CognitoStreams") in
      let pushSync =
        (Option.map ~f:PushSync.of_xml) (Xml.child xml_arg0 "PushSync") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?cognitoStreams ?pushSync ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cognitoStreams =
        field_map json__ "CognitoStreams" CognitoStreams.of_json in
      let pushSync = field_map json__ "PushSync" PushSync.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?cognitoStreams ?pushSync ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The output for the SetIdentityPoolConfiguration operation"]
module SetIdentityPoolConfigurationRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. This is the ID of the pool to modify."];
      pushSync: PushSync.t option
        [@ocaml.doc
          "Options to apply to this identity pool for push synchronization."];
      cognitoStreams: CognitoStreams.t option
        [@ocaml.doc
          "Options to apply to this identity pool for Amazon Cognito streams."]}
    let context_ = "SetIdentityPoolConfigurationRequest"
    let make ?pushSync =
      fun ?cognitoStreams ->
        fun ~identityPoolId ->
          fun () -> { pushSync; cognitoStreams; identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("PushSync", (Option.map x.pushSync ~f:PushSync.to_value));
        ("CognitoStreams",
          (Option.map x.cognitoStreams ~f:CognitoStreams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cognitoStreams =
        (Option.map ~f:CognitoStreams.of_xml)
          (Xml.child xml_arg0 "CognitoStreams") in
      let pushSync =
        (Option.map ~f:PushSync.of_xml) (Xml.child xml_arg0 "PushSync") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?cognitoStreams ?pushSync ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cognitoStreams =
        field_map json__ "CognitoStreams" CognitoStreams.of_json in
      let pushSync = field_map json__ "PushSync" PushSync.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?cognitoStreams ?pushSync ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input for the SetIdentityPoolConfiguration operation."]
module SetCognitoEventsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "The Cognito Identity Pool to use when configuring Cognito Events"];
      events: Events.t [@ocaml.doc "The events to configure"]}
    let context_ = "SetCognitoEventsRequest"
    let make ~identityPoolId =
      fun ~events -> fun () -> { identityPoolId; events }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("Events", (Some (Events.to_value x.events)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        Events.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Events") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~events ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map_exn json__ "Events" Events.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~events ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to configure Cognito Events\"\""]
module RegisterDeviceResponse =
  struct
    type nonrec t =
      {
      deviceId: DeviceId.t option
        [@ocaml.doc "The unique ID generated for this device by Cognito."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidConfigurationException of InvalidConfigurationException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?deviceId = fun () -> { deviceId }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidConfigurationException" ->
          `InvalidConfigurationException
            (InvalidConfigurationException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidConfigurationException e ->
          `Assoc
            [("error", (`String "InvalidConfigurationException"));
            ("details", (InvalidConfigurationException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("DeviceId", (Option.map x.deviceId ~f:DeviceId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let deviceId =
        (Option.map ~f:DeviceId.of_xml) (Xml.child xml_arg0 "DeviceId") in
      make ?deviceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let deviceId = field_map json__ "DeviceId" DeviceId.of_json in
      make ?deviceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response to a RegisterDevice request."]
module RegisterDeviceRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. Here, the ID of the pool that the identity belongs to."];
      identityId: IdentityId.t
        [@ocaml.doc "The unique ID for this identity."];
      platform: Platform.t
        [@ocaml.doc
          "The SNS platform type (e.g. GCM, SDM, APNS, APNS_SANDBOX)."];
      token: PushToken.t [@ocaml.doc "The push token."]}
    let context_ = "RegisterDeviceRequest"
    let make ~identityPoolId =
      fun ~identityId ->
        fun ~platform ->
          fun ~token ->
            fun () -> { identityPoolId; identityId; platform; token }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("Platform", (Some (Platform.to_value x.platform)));
        ("Token", (Some (PushToken.to_value x.token)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let token =
        PushToken.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Token") in
      let platform =
        Platform.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Platform") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~token ~platform ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let token = field_map_exn json__ "Token" PushToken.of_json in
      let platform = field_map_exn json__ "Platform" Platform.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~token ~platform ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to RegisterDevice."]
module ListRecordsResponse =
  struct
    type nonrec t =
      {
      records: RecordList.t option [@ocaml.doc "A list of all records."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."];
      count: Integer.t option [@ocaml.doc "Total number of records."];
      datasetSyncCount: Long.t option
        [@ocaml.doc "Server sync count for this dataset."];
      lastModifiedBy: String_.t option
        [@ocaml.doc
          "The user/device that made the last change to this record."];
      mergedDatasetNames: MergedDatasetNameList.t option
        [@ocaml.doc "Names of merged datasets."];
      datasetExists: Boolean.t option
        [@ocaml.doc "Indicates whether the dataset exists."];
      datasetDeletedAfterRequestedSyncCount: Boolean.t option
        [@ocaml.doc
          "A boolean value specifying whether to delete the dataset locally."];
      syncSessionToken: String_.t option
        [@ocaml.doc
          "A token containing a session ID, identity ID, and expiration."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?records =
      fun ?nextToken ->
        fun ?count ->
          fun ?datasetSyncCount ->
            fun ?lastModifiedBy ->
              fun ?mergedDatasetNames ->
                fun ?datasetExists ->
                  fun ?datasetDeletedAfterRequestedSyncCount ->
                    fun ?syncSessionToken ->
                      fun () ->
                        {
                          records;
                          nextToken;
                          count;
                          datasetSyncCount;
                          lastModifiedBy;
                          mergedDatasetNames;
                          datasetExists;
                          datasetDeletedAfterRequestedSyncCount;
                          syncSessionToken
                        }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Records", (Option.map x.records ~f:RecordList.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("Count", (Option.map x.count ~f:Integer.to_value));
        ("DatasetSyncCount",
          (Option.map x.datasetSyncCount ~f:Long.to_value));
        ("LastModifiedBy", (Option.map x.lastModifiedBy ~f:String_.to_value));
        ("MergedDatasetNames",
          (Option.map x.mergedDatasetNames ~f:MergedDatasetNameList.to_value));
        ("DatasetExists", (Option.map x.datasetExists ~f:Boolean.to_value));
        ("DatasetDeletedAfterRequestedSyncCount",
          (Option.map x.datasetDeletedAfterRequestedSyncCount
             ~f:Boolean.to_value));
        ("SyncSessionToken",
          (Option.map x.syncSessionToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let syncSessionToken =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "SyncSessionToken") in
      let datasetDeletedAfterRequestedSyncCount =
        (Option.map ~f:Boolean.of_xml)
          (Xml.child xml_arg0 "DatasetDeletedAfterRequestedSyncCount") in
      let datasetExists =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "DatasetExists") in
      let mergedDatasetNames =
        (Option.map ~f:MergedDatasetNameList.of_xml)
          (Xml.child xml_arg0 "MergedDatasetNames") in
      let lastModifiedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "LastModifiedBy") in
      let datasetSyncCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "DatasetSyncCount") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Count") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let records =
        (Option.map ~f:RecordList.of_xml) (Xml.child xml_arg0 "Records") in
      make ?syncSessionToken ?datasetDeletedAfterRequestedSyncCount
        ?datasetExists ?mergedDatasetNames ?lastModifiedBy ?datasetSyncCount
        ?count ?nextToken ?records ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let syncSessionToken =
        field_map json__ "SyncSessionToken" String_.of_json in
      let datasetDeletedAfterRequestedSyncCount =
        field_map json__ "DatasetDeletedAfterRequestedSyncCount"
          Boolean.of_json in
      let datasetExists = field_map json__ "DatasetExists" Boolean.of_json in
      let mergedDatasetNames =
        field_map json__ "MergedDatasetNames" MergedDatasetNameList.of_json in
      let lastModifiedBy = field_map json__ "LastModifiedBy" String_.of_json in
      let datasetSyncCount = field_map json__ "DatasetSyncCount" Long.of_json in
      let count = field_map json__ "Count" Integer.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let records = field_map json__ "Records" RecordList.of_json in
      make ?syncSessionToken ?datasetDeletedAfterRequestedSyncCount
        ?datasetExists ?mergedDatasetNames ?lastModifiedBy ?datasetSyncCount
        ?count ?nextToken ?records ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned for a successful ListRecordsRequest."]
module ListRecordsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      datasetName: DatasetName.t
        [@ocaml.doc
          "A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot)."];
      lastSyncCount: Long.t option
        [@ocaml.doc "The last server sync count for this record."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."];
      maxResults: IntegerString.t option
        [@ocaml.doc "The maximum number of results to be returned."];
      syncSessionToken: SyncSessionToken.t option
        [@ocaml.doc
          "A token containing a session ID, identity ID, and expiration."]}
    let context_ = "ListRecordsRequest"
    let make ?lastSyncCount =
      fun ?nextToken ->
        fun ?maxResults ->
          fun ?syncSessionToken ->
            fun ~identityPoolId ->
              fun ~identityId ->
                fun ~datasetName ->
                  fun () ->
                    {
                      lastSyncCount;
                      nextToken;
                      maxResults;
                      syncSessionToken;
                      identityPoolId;
                      identityId;
                      datasetName
                    }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)));
        ("lastSyncCount", (Option.map x.lastSyncCount ~f:Long.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:IntegerString.to_value));
        ("syncSessionToken",
          (Option.map x.syncSessionToken ~f:SyncSessionToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let syncSessionToken =
        (Option.map ~f:SyncSessionToken.of_xml)
          (Xml.child xml_arg0 "syncSessionToken") in
      let maxResults =
        (Option.map ~f:IntegerString.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let lastSyncCount =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "lastSyncCount") in
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?syncSessionToken ?maxResults ?nextToken ?lastSyncCount
        ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let syncSessionToken =
        field_map json__ "SyncSessionToken" SyncSessionToken.of_json in
      let maxResults = field_map json__ "MaxResults" IntegerString.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let lastSyncCount = field_map json__ "LastSyncCount" Long.of_json in
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?syncSessionToken ?maxResults ?nextToken ?lastSyncCount
        ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request for a list of records."]
module ListIdentityPoolUsageResponse =
  struct
    type nonrec t =
      {
      identityPoolUsages: IdentityPoolUsageList.t option
        [@ocaml.doc "Usage information for the identity pools."];
      maxResults: Integer.t option
        [@ocaml.doc "The maximum number of results to be returned."];
      count: Integer.t option
        [@ocaml.doc "Total number of identities for the identity pool."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolUsages =
      fun ?maxResults ->
        fun ?count ->
          fun ?nextToken ->
            fun () -> { identityPoolUsages; maxResults; count; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolUsages",
           (Option.map x.identityPoolUsages ~f:IdentityPoolUsageList.to_value));
        ("MaxResults", (Option.map x.maxResults ~f:Integer.to_value));
        ("Count", (Option.map x.count ~f:Integer.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Count") in
      let maxResults =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "MaxResults") in
      let identityPoolUsages =
        (Option.map ~f:IdentityPoolUsageList.of_xml)
          (Xml.child xml_arg0 "IdentityPoolUsages") in
      make ?nextToken ?count ?maxResults ?identityPoolUsages ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let count = field_map json__ "Count" Integer.of_json in
      let maxResults = field_map json__ "MaxResults" Integer.of_json in
      let identityPoolUsages =
        field_map json__ "IdentityPoolUsages" IdentityPoolUsageList.of_json in
      make ?nextToken ?count ?maxResults ?identityPoolUsages ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned for a successful ListIdentityPoolUsage request."]
module ListIdentityPoolUsageRequest =
  struct
    type nonrec t =
      {
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."];
      maxResults: IntegerString.t option
        [@ocaml.doc "The maximum number of results to be returned."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:IntegerString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:IntegerString.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      make ?maxResults ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" IntegerString.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request for usage information on an identity pool."]
module ListDatasetsResponse =
  struct
    type nonrec t =
      {
      datasets: DatasetList.t option [@ocaml.doc "A set of datasets."];
      count: Integer.t option [@ocaml.doc "Number of datasets returned."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasets =
      fun ?count ->
        fun ?nextToken -> fun () -> { datasets; count; nextToken }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Datasets", (Option.map x.datasets ~f:DatasetList.to_value));
        ("Count", (Option.map x.count ~f:Integer.to_value));
        ("NextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "NextToken") in
      let count = (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Count") in
      let datasets =
        (Option.map ~f:DatasetList.of_xml) (Xml.child xml_arg0 "Datasets") in
      make ?nextToken ?count ?datasets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let count = field_map json__ "Count" Integer.of_json in
      let datasets = field_map json__ "Datasets" DatasetList.of_json in
      make ?nextToken ?count ?datasets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Returned for a successful ListDatasets request."]
module ListDatasetsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      nextToken: String_.t option
        [@ocaml.doc
          "A pagination token for obtaining the next page of results."];
      maxResults: IntegerString.t option
        [@ocaml.doc "The maximum number of results to be returned."]}
    let context_ = "ListDatasetsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~identityPoolId ->
          fun ~identityId ->
            fun () -> { nextToken; maxResults; identityPoolId; identityId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value));
        ("maxResults", (Option.map x.maxResults ~f:IntegerString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:IntegerString.of_xml)
          (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ?maxResults ?nextToken ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "MaxResults" IntegerString.of_json in
      let nextToken = field_map json__ "NextToken" String_.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?maxResults ?nextToken ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for a list of datasets for an identity."]
module GetIdentityPoolConfigurationResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito."];
      pushSync: PushSync.t option
        [@ocaml.doc
          "Options to apply to this identity pool for push synchronization."];
      cognitoStreams: CognitoStreams.t option
        [@ocaml.doc
          "Options to apply to this identity pool for Amazon Cognito streams."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?pushSync ->
        fun ?cognitoStreams ->
          fun () -> { identityPoolId; pushSync; cognitoStreams }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("PushSync", (Option.map x.pushSync ~f:PushSync.to_value));
        ("CognitoStreams",
          (Option.map x.cognitoStreams ~f:CognitoStreams.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cognitoStreams =
        (Option.map ~f:CognitoStreams.of_xml)
          (Xml.child xml_arg0 "CognitoStreams") in
      let pushSync =
        (Option.map ~f:PushSync.of_xml) (Xml.child xml_arg0 "PushSync") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?cognitoStreams ?pushSync ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cognitoStreams =
        field_map json__ "CognitoStreams" CognitoStreams.of_json in
      let pushSync = field_map json__ "PushSync" PushSync.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?cognitoStreams ?pushSync ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The output for the GetIdentityPoolConfiguration operation."]
module GetIdentityPoolConfigurationRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. This is the ID of the pool for which to return a configuration."]}
    let context_ = "GetIdentityPoolConfigurationRequest"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input for the GetIdentityPoolConfiguration operation."]
module GetCognitoEventsResponse =
  struct
    type nonrec t =
      {
      events: Events.t option
        [@ocaml.doc
          "The Cognito Events returned from the GetCognitoEvents request"]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?events = fun () -> { events }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Events", (Option.map x.events ~f:Events.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let events =
        (Option.map ~f:Events.of_xml) (Xml.child xml_arg0 "Events") in
      make ?events ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let events = field_map json__ "Events" Events.of_json in
      make ?events ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from the GetCognitoEvents request"]
module GetCognitoEventsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc "The Cognito Identity Pool ID for the request"]}
    let context_ = "GetCognitoEventsRequest"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request for a list of the configured Cognito Events"]
module GetBulkPublishDetailsResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      bulkPublishStartTime: Date.t option
        [@ocaml.doc
          "The date/time at which the last bulk publish was initiated."];
      bulkPublishCompleteTime: Date.t option
        [@ocaml.doc
          "If BulkPublishStatus is SUCCEEDED, the time the last bulk publish operation completed."];
      bulkPublishStatus: BulkPublishStatus.t option
        [@ocaml.doc
          "Status of the last bulk publish operation, valid values are: NOT_STARTED - No bulk publish has been requested for this identity pool IN_PROGRESS - Data is being published to the configured stream SUCCEEDED - All data for the identity pool has been published to the configured stream FAILED - Some portion of the data has failed to publish, check FailureMessage for the cause."];
      failureMessage: String_.t option
        [@ocaml.doc
          "If BulkPublishStatus is FAILED this field will contain the error message that caused the bulk publish to fail."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId =
      fun ?bulkPublishStartTime ->
        fun ?bulkPublishCompleteTime ->
          fun ?bulkPublishStatus ->
            fun ?failureMessage ->
              fun () ->
                {
                  identityPoolId;
                  bulkPublishStartTime;
                  bulkPublishCompleteTime;
                  bulkPublishStatus;
                  failureMessage
                }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value));
        ("BulkPublishStartTime",
          (Option.map x.bulkPublishStartTime ~f:Date.to_value));
        ("BulkPublishCompleteTime",
          (Option.map x.bulkPublishCompleteTime ~f:Date.to_value));
        ("BulkPublishStatus",
          (Option.map x.bulkPublishStatus ~f:BulkPublishStatus.to_value));
        ("FailureMessage", (Option.map x.failureMessage ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let failureMessage =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "FailureMessage") in
      let bulkPublishStatus =
        (Option.map ~f:BulkPublishStatus.of_xml)
          (Xml.child xml_arg0 "BulkPublishStatus") in
      let bulkPublishCompleteTime =
        (Option.map ~f:Date.of_xml)
          (Xml.child xml_arg0 "BulkPublishCompleteTime") in
      let bulkPublishStartTime =
        (Option.map ~f:Date.of_xml)
          (Xml.child xml_arg0 "BulkPublishStartTime") in
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?failureMessage ?bulkPublishStatus ?bulkPublishCompleteTime
        ?bulkPublishStartTime ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let failureMessage = field_map json__ "FailureMessage" String_.of_json in
      let bulkPublishStatus =
        field_map json__ "BulkPublishStatus" BulkPublishStatus.of_json in
      let bulkPublishCompleteTime =
        field_map json__ "BulkPublishCompleteTime" Date.of_json in
      let bulkPublishStartTime =
        field_map json__ "BulkPublishStartTime" Date.of_json in
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?failureMessage ?bulkPublishStatus ?bulkPublishCompleteTime
        ?bulkPublishStartTime ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the GetBulkPublishDetails operation."]
module GetBulkPublishDetailsRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."]}
    let context_ = "GetBulkPublishDetailsRequest"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the GetBulkPublishDetails operation."]
module DescribeIdentityUsageResponse =
  struct
    type nonrec t =
      {
      identityUsage: IdentityUsage.t option
        [@ocaml.doc "Usage information for the identity."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityUsage = fun () -> { identityUsage }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityUsage",
           (Option.map x.identityUsage ~f:IdentityUsage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityUsage =
        (Option.map ~f:IdentityUsage.of_xml)
          (Xml.child xml_arg0 "IdentityUsage") in
      make ?identityUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityUsage =
        field_map json__ "IdentityUsage" IdentityUsage.of_json in
      make ?identityUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response to a successful DescribeIdentityUsage request."]
module DescribeIdentityUsageRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."]}
    let context_ = "DescribeIdentityUsageRequest"
    let make ~identityPoolId =
      fun ~identityId -> fun () -> { identityPoolId; identityId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request for information about the usage of an identity pool."]
module DescribeIdentityPoolUsageResponse =
  struct
    type nonrec t =
      {
      identityPoolUsage: IdentityPoolUsage.t option
        [@ocaml.doc "Information about the usage of the identity pool."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolUsage = fun () -> { identityPoolUsage }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("IdentityPoolUsage",
           (Option.map x.identityPoolUsage ~f:IdentityPoolUsage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolUsage =
        (Option.map ~f:IdentityPoolUsage.of_xml)
          (Xml.child xml_arg0 "IdentityPoolUsage") in
      make ?identityPoolUsage ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolUsage =
        field_map json__ "IdentityPoolUsage" IdentityPoolUsage.of_json in
      make ?identityPoolUsage ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Response to a successful DescribeIdentityPoolUsage request."]
module DescribeIdentityPoolUsageRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."]}
    let context_ = "DescribeIdentityPoolUsageRequest"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request for usage information about the identity pool."]
module DescribeDatasetResponse =
  struct
    type nonrec t =
      {
      dataset: Dataset.t option
        [@ocaml.doc
          "Meta data for a collection of data for an identity. An identity can have multiple datasets. A dataset can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataset = fun () -> { dataset }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Dataset", (Option.map x.dataset ~f:Dataset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataset =
        (Option.map ~f:Dataset.of_xml) (Xml.child xml_arg0 "Dataset") in
      make ?dataset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataset = field_map json__ "Dataset" Dataset.of_json in
      make ?dataset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response to a successful DescribeDataset request."]
module DescribeDatasetRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      datasetName: DatasetName.t
        [@ocaml.doc
          "A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot)."]}
    let context_ = "DescribeDatasetRequest"
    let make ~identityPoolId =
      fun ~identityId ->
        fun ~datasetName ->
          fun () -> { identityPoolId; identityId; datasetName }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A request for meta data about a dataset (creation date, number of records, size) by owner and dataset name."]
module DeleteDatasetResponse =
  struct
    type nonrec t =
      {
      dataset: Dataset.t option
        [@ocaml.doc
          "A collection of data for an identity pool. An identity pool can have multiple datasets. A dataset is per identity and can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs."]}
    type nonrec error =
      [ `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceConflictException of ResourceConflictException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyRequestsException of TooManyRequestsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?dataset = fun () -> { dataset }
    let error_of_json name json =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceConflictException" ->
          `ResourceConflictException (ResourceConflictException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyRequestsException" ->
          `TooManyRequestsException (TooManyRequestsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceConflictException e ->
          `Assoc
            [("error", (`String "ResourceConflictException"));
            ("details", (ResourceConflictException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyRequestsException e ->
          `Assoc
            [("error", (`String "TooManyRequestsException"));
            ("details", (TooManyRequestsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("Dataset", (Option.map x.dataset ~f:Dataset.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataset =
        (Option.map ~f:Dataset.of_xml) (Xml.child xml_arg0 "Dataset") in
      make ?dataset ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataset = field_map json__ "Dataset" Dataset.of_json in
      make ?dataset ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response to a successful DeleteDataset request."]
module DeleteDatasetRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      identityId: IdentityId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."];
      datasetName: DatasetName.t
        [@ocaml.doc
          "A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot)."]}
    let context_ = "DeleteDatasetRequest"
    let make ~identityPoolId =
      fun ~identityId ->
        fun ~datasetName ->
          fun () -> { identityPoolId; identityId; datasetName }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)));
        ("IdentityId", (Some (IdentityId.to_value x.identityId)));
        ("DatasetName", (Some (DatasetName.to_value x.datasetName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetName =
        DatasetName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DatasetName") in
      let identityId =
        IdentityId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityId") in
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~datasetName ~identityId ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetName =
        field_map_exn json__ "DatasetName" DatasetName.of_json in
      let identityId = field_map_exn json__ "IdentityId" IdentityId.of_json in
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~datasetName ~identityId ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A request to delete the specific dataset."]
module BulkPublishResponse =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t option
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."]}
    type nonrec error =
      [ `AlreadyStreamedException of AlreadyStreamedException.t 
      | `DuplicateRequestException of DuplicateRequestException.t 
      | `InternalErrorException of InternalErrorException.t 
      | `InvalidParameterException of InvalidParameterException.t 
      | `NotAuthorizedException of NotAuthorizedException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?identityPoolId = fun () -> { identityPoolId }
    let error_of_json name json =
      match name with
      | "AlreadyStreamedException" ->
          `AlreadyStreamedException (AlreadyStreamedException.of_json json)
      | "DuplicateRequestException" ->
          `DuplicateRequestException (DuplicateRequestException.of_json json)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_json json)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_json json)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AlreadyStreamedException" ->
          `AlreadyStreamedException (AlreadyStreamedException.of_xml xml)
      | "DuplicateRequestException" ->
          `DuplicateRequestException (DuplicateRequestException.of_xml xml)
      | "InternalErrorException" ->
          `InternalErrorException (InternalErrorException.of_xml xml)
      | "InvalidParameterException" ->
          `InvalidParameterException (InvalidParameterException.of_xml xml)
      | "NotAuthorizedException" ->
          `NotAuthorizedException (NotAuthorizedException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AlreadyStreamedException e ->
          `Assoc
            [("error", (`String "AlreadyStreamedException"));
            ("details", (AlreadyStreamedException.to_json e))]
      | `DuplicateRequestException e ->
          `Assoc
            [("error", (`String "DuplicateRequestException"));
            ("details", (DuplicateRequestException.to_json e))]
      | `InternalErrorException e ->
          `Assoc
            [("error", (`String "InternalErrorException"));
            ("details", (InternalErrorException.to_json e))]
      | `InvalidParameterException e ->
          `Assoc
            [("error", (`String "InvalidParameterException"));
            ("details", (InvalidParameterException.to_json e))]
      | `NotAuthorizedException e ->
          `Assoc
            [("error", (`String "NotAuthorizedException"));
            ("details", (NotAuthorizedException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.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
        [("IdentityPoolId",
           (Option.map x.identityPoolId ~f:IdentityPoolId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        (Option.map ~f:IdentityPoolId.of_xml)
          (Xml.child xml_arg0 "IdentityPoolId") in
      make ?identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ?identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The output for the BulkPublish operation."]
module BulkPublishRequest =
  struct
    type nonrec t =
      {
      identityPoolId: IdentityPoolId.t
        [@ocaml.doc
          "A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region."]}
    let context_ = "BulkPublishRequest"
    let make ~identityPoolId = fun () -> { identityPoolId }
    let to_value x =
      structure_to_value
        [("IdentityPoolId",
           (Some (IdentityPoolId.to_value x.identityPoolId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let identityPoolId =
        IdentityPoolId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "IdentityPoolId") in
      make ~identityPoolId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let identityPoolId =
        field_map_exn json__ "IdentityPoolId" IdentityPoolId.of_json in
      make ~identityPoolId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for the BulkPublish operation."]