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.finspace_data
let apiVersion = "2020-07-13"
let endpointPrefix = "finspace-api"
let serviceFullName = "FinSpace Public API"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "FinSpace Data"
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 ColumnDataType =
  struct
    type nonrec t =
      | STRING 
      | CHAR 
      | INTEGER 
      | TINYINT 
      | SMALLINT 
      | BIGINT 
      | FLOAT 
      | DOUBLE 
      | DATE 
      | DATETIME 
      | BOOLEAN 
      | BINARY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | STRING -> "STRING"
      | CHAR -> "CHAR"
      | INTEGER -> "INTEGER"
      | TINYINT -> "TINYINT"
      | SMALLINT -> "SMALLINT"
      | BIGINT -> "BIGINT"
      | FLOAT -> "FLOAT"
      | DOUBLE -> "DOUBLE"
      | DATE -> "DATE"
      | DATETIME -> "DATETIME"
      | BOOLEAN -> "BOOLEAN"
      | BINARY -> "BINARY"
      | Non_static_id s -> s
    let of_string =
      function
      | "STRING" -> STRING
      | "CHAR" -> CHAR
      | "INTEGER" -> INTEGER
      | "TINYINT" -> TINYINT
      | "SMALLINT" -> SMALLINT
      | "BIGINT" -> BIGINT
      | "FLOAT" -> FLOAT
      | "DOUBLE" -> DOUBLE
      | "DATE" -> DATE
      | "DATETIME" -> DATETIME
      | "BOOLEAN" -> BOOLEAN
      | "BINARY" -> BINARY
      | 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 ColumnDataType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ColumnDataType" j)
    let to_json = simple_to_json to_value
  end
module ColumnDescription =
  struct
    type nonrec t = string[@@ocaml.doc "Column Description"]
    let context_ = "ColumnDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:512) >>=
             (fun () -> check_pattern i ~pattern:"[\\s\\S]*"));
        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:"ColumnDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Column Description"]
module ColumnName =
  struct
    type nonrec t = string[@@ocaml.doc "Column Name"]
    let context_ = "ColumnName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:126) >>=
             (fun () -> check_pattern i ~pattern:".*\\S.*"));
        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:"ColumnName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Column Name"]
module ColumnDefinition =
  struct
    type nonrec t =
      {
      dataType: ColumnDataType.t option
        [@ocaml.doc
          "Data type of a column. STRING \226\128\147 A String data type. CHAR \226\128\147 A char data type. INTEGER \226\128\147 An integer data type. TINYINT \226\128\147 A tinyint data type. SMALLINT \226\128\147 A smallint data type. BIGINT \226\128\147 A bigint data type. FLOAT \226\128\147 A float data type. DOUBLE \226\128\147 A double data type. DATE \226\128\147 A date data type. DATETIME \226\128\147 A datetime data type. BOOLEAN \226\128\147 A boolean data type. BINARY \226\128\147 A binary data type."];
      columnName: ColumnName.t option [@ocaml.doc "The name of a column."];
      columnDescription: ColumnDescription.t option
        [@ocaml.doc "Description for a column."]}
    let make ?dataType =
      fun ?columnName ->
        fun ?columnDescription ->
          fun () -> { dataType; columnName; columnDescription }
    let to_value x =
      structure_to_value
        [("dataType", (Option.map x.dataType ~f:ColumnDataType.to_value));
        ("columnName", (Option.map x.columnName ~f:ColumnName.to_value));
        ("columnDescription",
          (Option.map x.columnDescription ~f:ColumnDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let columnDescription =
        (Option.map ~f:ColumnDescription.of_xml)
          (Xml.child xml_arg0 "columnDescription") in
      let columnName =
        (Option.map ~f:ColumnName.of_xml) (Xml.child xml_arg0 "columnName") in
      let dataType =
        (Option.map ~f:ColumnDataType.of_xml) (Xml.child xml_arg0 "dataType") in
      make ?columnDescription ?columnName ?dataType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let columnDescription =
        field_map json__ "columnDescription" ColumnDescription.of_json in
      let columnName = field_map json__ "columnName" ColumnName.of_json in
      let dataType = field_map json__ "dataType" ColumnDataType.of_json in
      make ?columnDescription ?columnName ?dataType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The definition of a column in a tabular Dataset."]
module ColumnList =
  struct
    type nonrec t = ColumnDefinition.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:ColumnDefinition.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:ColumnDefinition.of_xml)
    let of_json j =
      list_of_json ~kind:"ColumnList" ~of_json:ColumnDefinition.of_json j
    let to_json v = composed_to_json to_value v
  end
module ColumnNameList =
  struct
    type nonrec t = ColumnName.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:ColumnName.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:ColumnName.of_xml)
    let of_json j =
      list_of_json ~kind:"ColumnNameList" ~of_json:ColumnName.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringMapKey =
  struct
    type nonrec t = string
    let context_ = "StringMapKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*"));
        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:"StringMapKey" j
    let to_json = simple_to_json to_value
  end
module StringMapValue =
  struct
    type nonrec t = string
    let context_ = "StringMapValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*"));
        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:"StringMapValue" j
    let to_json = simple_to_json to_value
  end
module ApplicationPermission =
  struct
    type nonrec t =
      | CreateDataset 
      | ManageClusters 
      | ManageUsersAndGroups 
      | ManageAttributeSets 
      | ViewAuditData 
      | AccessNotebooks 
      | GetTemporaryCredentials 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CreateDataset -> "CreateDataset"
      | ManageClusters -> "ManageClusters"
      | ManageUsersAndGroups -> "ManageUsersAndGroups"
      | ManageAttributeSets -> "ManageAttributeSets"
      | ViewAuditData -> "ViewAuditData"
      | AccessNotebooks -> "AccessNotebooks"
      | GetTemporaryCredentials -> "GetTemporaryCredentials"
      | Non_static_id s -> s
    let of_string =
      function
      | "CreateDataset" -> CreateDataset
      | "ManageClusters" -> ManageClusters
      | "ManageUsersAndGroups" -> ManageUsersAndGroups
      | "ManageAttributeSets" -> ManageAttributeSets
      | "ViewAuditData" -> ViewAuditData
      | "AccessNotebooks" -> AccessNotebooks
      | "GetTemporaryCredentials" -> GetTemporaryCredentials
      | 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 ApplicationPermission" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"ApplicationPermission" j)
    let to_json = simple_to_json to_value
  end
module Email =
  struct
    type nonrec t = string
    let context_ = "Email"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:320) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\\.[A-Za-z]{2,4}")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Email" j
    let to_json = simple_to_json to_value
  end
module OwnerName =
  struct
    type nonrec t = string[@@ocaml.doc "1 - 250 character String"]
    let context_ = "OwnerName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:250) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"OwnerName" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "1 - 250 character String"]
module PhoneNumber =
  struct
    type nonrec t = string[@@ocaml.doc "PhoneNumber of Dataset Owner"]
    let context_ = "PhoneNumber"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"^[\\+0-9\\#\\,\\(][\\+0-9\\-\\.\\/\\(\\)\\,\\#\\s]+$")));
        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:"PhoneNumber" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "PhoneNumber of Dataset Owner"]
module SchemaDefinition =
  struct
    type nonrec t =
      {
      columns: ColumnList.t option [@ocaml.doc "List of column definitions."];
      primaryKeyColumns: ColumnNameList.t option
        [@ocaml.doc "List of column names used for primary key."]}
    let make ?columns =
      fun ?primaryKeyColumns -> fun () -> { columns; primaryKeyColumns }
    let to_value x =
      structure_to_value
        [("columns", (Option.map x.columns ~f:ColumnList.to_value));
        ("primaryKeyColumns",
          (Option.map x.primaryKeyColumns ~f:ColumnNameList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let primaryKeyColumns =
        (Option.map ~f:ColumnNameList.of_xml)
          (Xml.child xml_arg0 "primaryKeyColumns") in
      let columns =
        (Option.map ~f:ColumnList.of_xml) (Xml.child xml_arg0 "columns") in
      make ?primaryKeyColumns ?columns ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let primaryKeyColumns =
        field_map json__ "primaryKeyColumns" ColumnNameList.of_json in
      let columns = field_map json__ "columns" ColumnList.of_json in
      make ?primaryKeyColumns ?columns ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Definition for a schema on a tabular Dataset."]
module DataViewDestinationType =
  struct
    type nonrec t = string[@@ocaml.doc "DataView Destination Type"]
    let context_ = "DataViewDestinationType"
    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:"DataViewDestinationType" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "DataView Destination Type"]
module ExportFileFormat =
  struct
    type nonrec t =
      | PARQUET 
      | DELIMITED_TEXT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PARQUET -> "PARQUET"
      | DELIMITED_TEXT -> "DELIMITED_TEXT"
      | Non_static_id s -> s
    let of_string =
      function
      | "PARQUET" -> PARQUET
      | "DELIMITED_TEXT" -> DELIMITED_TEXT
      | 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 ExportFileFormat" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExportFileFormat" j)
    let to_json = simple_to_json to_value
  end
module S3DestinationFormatOptions =
  struct
    type nonrec t = (StringMapKey.t * StringMapValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((StringMapKey.of_string chopped),
                              (StringMapValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (StringMapKey.to_value x) |>
                    (fun x ->
                       (StringMapValue.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:StringMapKey.of_string
        ~of_json:StringMapValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ErrorCategory =
  struct
    type nonrec t =
      | VALIDATION 
      | SERVICE_QUOTA_EXCEEDED 
      | ACCESS_DENIED 
      | RESOURCE_NOT_FOUND 
      | THROTTLING 
      | INTERNAL_SERVICE_EXCEPTION 
      | CANCELLED 
      | USER_RECOVERABLE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | VALIDATION -> "VALIDATION"
      | SERVICE_QUOTA_EXCEEDED -> "SERVICE_QUOTA_EXCEEDED"
      | ACCESS_DENIED -> "ACCESS_DENIED"
      | RESOURCE_NOT_FOUND -> "RESOURCE_NOT_FOUND"
      | THROTTLING -> "THROTTLING"
      | INTERNAL_SERVICE_EXCEPTION -> "INTERNAL_SERVICE_EXCEPTION"
      | CANCELLED -> "CANCELLED"
      | USER_RECOVERABLE -> "USER_RECOVERABLE"
      | Non_static_id s -> s
    let of_string =
      function
      | "VALIDATION" -> VALIDATION
      | "SERVICE_QUOTA_EXCEEDED" -> SERVICE_QUOTA_EXCEEDED
      | "ACCESS_DENIED" -> ACCESS_DENIED
      | "RESOURCE_NOT_FOUND" -> RESOURCE_NOT_FOUND
      | "THROTTLING" -> THROTTLING
      | "INTERNAL_SERVICE_EXCEPTION" -> INTERNAL_SERVICE_EXCEPTION
      | "CANCELLED" -> CANCELLED
      | "USER_RECOVERABLE" -> USER_RECOVERABLE
      | 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 ErrorCategory" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ErrorCategory" j)
    let to_json = simple_to_json to_value
  end
module ErrorMessage =
  struct
    type nonrec t = string[@@ocaml.doc "Changeset Error Message"]
    let context_ = "ErrorMessage"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Changeset Error Message"]
module StringValueLength1to255 =
  struct
    type nonrec t = string[@@ocaml.doc "1 - 255 character String"]
    let context_ = "StringValueLength1to255"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*")));
        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:"StringValueLength1to255" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "1 - 255 character String"]
module StringValueLength1to250 =
  struct
    type nonrec t = string[@@ocaml.doc "1 - 250 character String"]
    let context_ = "StringValueLength1to250"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:250) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*")));
        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:"StringValueLength1to250" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "1 - 250 character String"]
module ApiAccess =
  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 ApiAccess" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApiAccess" j)
    let to_json = simple_to_json to_value
  end
module FirstName =
  struct
    type nonrec t = string
    let context_ = "FirstName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"FirstName" j
    let to_json = simple_to_json to_value
  end
module LastName =
  struct
    type nonrec t = string
    let context_ = "LastName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"LastName" j
    let to_json = simple_to_json to_value
  end
module RoleArn =
  struct
    type nonrec t = string
    let context_ = "RoleArn"
    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[a-z\\-]*:iam::\\d{12}:role/?[a-zA-Z_0-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:"RoleArn" j
    let to_json = simple_to_json to_value
  end
module TimestampEpoch =
  struct
    type nonrec t = Int64.t[@@ocaml.doc "Milliseconds since UTC epoch"]
    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[@@ocaml.doc "Milliseconds since UTC epoch"]
module UserId =
  struct
    type nonrec t = string
    let context_ = "UserId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:26) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"UserId" j
    let to_json = simple_to_json to_value
  end
module UserStatus =
  struct
    type nonrec t =
      | CREATING 
      | ENABLED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | CREATING -> "CREATING"
      | ENABLED -> "ENABLED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "CREATING" -> CREATING
      | "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 UserStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserStatus" j)
    let to_json = simple_to_json to_value
  end
module UserType =
  struct
    type nonrec t =
      | SUPER_USER 
      | APP_USER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SUPER_USER -> "SUPER_USER"
      | APP_USER -> "APP_USER"
      | Non_static_id s -> s
    let of_string =
      function
      | "SUPER_USER" -> SUPER_USER
      | "APP_USER" -> APP_USER
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration UserType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"UserType" j)
    let to_json = simple_to_json to_value
  end
module PermissionGroupMembershipStatus =
  struct
    type nonrec t =
      | ADDITION_IN_PROGRESS 
      | ADDITION_SUCCESS 
      | REMOVAL_IN_PROGRESS 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | ADDITION_IN_PROGRESS -> "ADDITION_IN_PROGRESS"
      | ADDITION_SUCCESS -> "ADDITION_SUCCESS"
      | REMOVAL_IN_PROGRESS -> "REMOVAL_IN_PROGRESS"
      | Non_static_id s -> s
    let of_string =
      function
      | "ADDITION_IN_PROGRESS" -> ADDITION_IN_PROGRESS
      | "ADDITION_SUCCESS" -> ADDITION_SUCCESS
      | "REMOVAL_IN_PROGRESS" -> REMOVAL_IN_PROGRESS
      | 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 PermissionGroupMembershipStatus"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PermissionGroupMembershipStatus" j)
    let to_json = simple_to_json to_value
  end
module ApplicationPermissionList =
  struct
    type nonrec t = ApplicationPermission.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:ApplicationPermission.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:ApplicationPermission.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationPermissionList"
        ~of_json:ApplicationPermission.of_json j
    let to_json v = composed_to_json to_value v
  end
module PermissionGroupDescription =
  struct
    type nonrec t = string
    let context_ = "PermissionGroupDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:4000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*")));
        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:"PermissionGroupDescription" j
    let to_json = simple_to_json to_value
  end
module PermissionGroupId =
  struct
    type nonrec t = string
    let context_ = "PermissionGroupId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:26) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"PermissionGroupId" j
    let to_json = simple_to_json to_value
  end
module PermissionGroupName =
  struct
    type nonrec t = string
    let context_ = "PermissionGroupName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"PermissionGroupName" j
    let to_json = simple_to_json to_value
  end
module AliasString =
  struct
    type nonrec t = string
    let context_ = "AliasString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"^alias\\/\\S+")));
        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:"AliasString" j
    let to_json = simple_to_json to_value
  end
module DatasetArn =
  struct
    type nonrec t = string[@@ocaml.doc "Arn of a Dataset"]
    let context_ = "DatasetArn"
    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:"DatasetArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Arn of a Dataset"]
module DatasetDescription =
  struct
    type nonrec t = string[@@ocaml.doc "Description of a dataset"]
    let context_ = "DatasetDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1000) >>=
             (fun () -> check_pattern i ~pattern:"[\\s\\S]*"));
        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:"DatasetDescription" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Description of a dataset"]
module DatasetId =
  struct
    type nonrec t = string[@@ocaml.doc "ID for a given Dataset"]
    let context_ = "DatasetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:26) >>=
             (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:"DatasetId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ID for a given Dataset"]
module DatasetKind =
  struct
    type nonrec t =
      | TABULAR 
      | NON_TABULAR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | TABULAR -> "TABULAR"
      | NON_TABULAR -> "NON_TABULAR"
      | Non_static_id s -> s
    let of_string =
      function
      | "TABULAR" -> TABULAR
      | "NON_TABULAR" -> NON_TABULAR
      | 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 DatasetKind" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DatasetKind" j)
    let to_json = simple_to_json to_value
  end
module DatasetOwnerInfo =
  struct
    type nonrec t =
      {
      name: OwnerName.t option [@ocaml.doc "The name of the Dataset owner."];
      phoneNumber: PhoneNumber.t option
        [@ocaml.doc "Phone number for the Dataset owner."];
      email: Email.t option
        [@ocaml.doc "Email address for the Dataset owner."]}
    let make ?name =
      fun ?phoneNumber ->
        fun ?email -> fun () -> { name; phoneNumber; email }
    let to_value x =
      structure_to_value
        [("name", (Option.map x.name ~f:OwnerName.to_value));
        ("phoneNumber", (Option.map x.phoneNumber ~f:PhoneNumber.to_value));
        ("email", (Option.map x.email ~f:Email.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email = (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "email") in
      let phoneNumber =
        (Option.map ~f:PhoneNumber.of_xml) (Xml.child xml_arg0 "phoneNumber") in
      let name = (Option.map ~f:OwnerName.of_xml) (Xml.child xml_arg0 "name") in
      make ?email ?phoneNumber ?name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map json__ "email" Email.of_json in
      let phoneNumber = field_map json__ "phoneNumber" PhoneNumber.of_json in
      let name = field_map json__ "name" OwnerName.of_json in
      make ?email ?phoneNumber ?name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A structure for Dataset owner info."]
module DatasetTitle =
  struct
    type nonrec t = string[@@ocaml.doc "Title for a given Dataset"]
    let context_ = "DatasetTitle"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"DatasetTitle" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Title for a given Dataset"]
module SchemaUnion =
  struct
    type nonrec t =
      {
      tabularSchemaConfig: SchemaDefinition.t option
        [@ocaml.doc "The configuration for a schema on a tabular Dataset."]}
    let make ?tabularSchemaConfig = fun () -> { tabularSchemaConfig }
    let to_value x =
      structure_to_value
        [("tabularSchemaConfig",
           (Option.map x.tabularSchemaConfig ~f:SchemaDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tabularSchemaConfig =
        (Option.map ~f:SchemaDefinition.of_xml)
          (Xml.child xml_arg0 "tabularSchemaConfig") in
      make ?tabularSchemaConfig ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tabularSchemaConfig =
        field_map json__ "tabularSchemaConfig" SchemaDefinition.of_json in
      make ?tabularSchemaConfig ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A union of schema types."]
module Boolean =
  struct
    type nonrec t = bool[@@ocaml.doc "Common Boolean data type"]
    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[@@ocaml.doc "Common Boolean data type"]
module DataViewArn =
  struct
    type nonrec t = string[@@ocaml.doc "Arn of a DataView"]
    let context_ = "DataViewArn"
    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:"DataViewArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Arn of a DataView"]
module DataViewDestinationTypeParams =
  struct
    type nonrec t =
      {
      destinationType: DataViewDestinationType.t
        [@ocaml.doc
          "Destination type for a Dataview. GLUE_TABLE \226\128\147 Glue table destination type. S3 \226\128\147 S3 destination type."];
      s3DestinationExportFileFormat: ExportFileFormat.t option
        [@ocaml.doc
          "Dataview export file format. PARQUET \226\128\147 Parquet export file format. DELIMITED_TEXT \226\128\147 Delimited text export file format."];
      s3DestinationExportFileFormatOptions:
        S3DestinationFormatOptions.t option
        [@ocaml.doc
          "Format Options for S3 Destination type. Here is an example of how you could specify the s3DestinationExportFileFormatOptions \\{ \"header\": \"true\", \"delimiter\": \",\", \"compression\": \"gzip\" \\}"]}
    let context_ = "DataViewDestinationTypeParams"
    let make ?s3DestinationExportFileFormat =
      fun ?s3DestinationExportFileFormatOptions ->
        fun ~destinationType ->
          fun () ->
            {
              s3DestinationExportFileFormat;
              s3DestinationExportFileFormatOptions;
              destinationType
            }
    let to_value x =
      structure_to_value
        [("destinationType",
           (Some (DataViewDestinationType.to_value x.destinationType)));
        ("s3DestinationExportFileFormat",
          (Option.map x.s3DestinationExportFileFormat
             ~f:ExportFileFormat.to_value));
        ("s3DestinationExportFileFormatOptions",
          (Option.map x.s3DestinationExportFileFormatOptions
             ~f:S3DestinationFormatOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3DestinationExportFileFormatOptions =
        (Option.map ~f:S3DestinationFormatOptions.of_xml)
          (Xml.child xml_arg0 "s3DestinationExportFileFormatOptions") in
      let s3DestinationExportFileFormat =
        (Option.map ~f:ExportFileFormat.of_xml)
          (Xml.child xml_arg0 "s3DestinationExportFileFormat") in
      let destinationType =
        DataViewDestinationType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationType") in
      make ?s3DestinationExportFileFormatOptions
        ?s3DestinationExportFileFormat ~destinationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3DestinationExportFileFormatOptions =
        field_map json__ "s3DestinationExportFileFormatOptions"
          S3DestinationFormatOptions.of_json in
      let s3DestinationExportFileFormat =
        field_map json__ "s3DestinationExportFileFormat"
          ExportFileFormat.of_json in
      let destinationType =
        field_map_exn json__ "destinationType"
          DataViewDestinationType.of_json in
      make ?s3DestinationExportFileFormatOptions
        ?s3DestinationExportFileFormat ~destinationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Structure for the Dataview destination type parameters."]
module DataViewErrorInfo =
  struct
    type nonrec t =
      {
      errorMessage__lc1: ErrorMessage.t option
        [@ocaml.doc "The text of the error message."];
      errorCategory: ErrorCategory.t option
        [@ocaml.doc
          "The category of the error. VALIDATION \226\128\147 The inputs to this request are invalid. SERVICE_QUOTA_EXCEEDED \226\128\147 Service quotas have been exceeded. Please contact AWS support to increase quotas. ACCESS_DENIED \226\128\147 Missing required permission to perform this request. RESOURCE_NOT_FOUND \226\128\147 One or more inputs to this request were not found. THROTTLING \226\128\147 The system temporarily lacks sufficient resources to process the request. INTERNAL_SERVICE_EXCEPTION \226\128\147 An internal service error has occurred. CANCELLED \226\128\147 Cancelled. USER_RECOVERABLE \226\128\147 A user recoverable error has occurred."]}
    let make ?errorMessage__lc1 =
      fun ?errorCategory -> fun () -> { errorMessage__lc1; errorCategory }
    let to_value x =
      structure_to_value
        [("ErrorMessage__lc1",
           (Option.map x.errorMessage__lc1 ~f:ErrorMessage.to_value));
        ("errorCategory",
          (Option.map x.errorCategory ~f:ErrorCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCategory =
        (Option.map ~f:ErrorCategory.of_xml)
          (Xml.child xml_arg0 "errorCategory") in
      let errorMessage__lc1 =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage__lc1") in
      make ?errorCategory ?errorMessage__lc1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCategory =
        field_map json__ "errorCategory" ErrorCategory.of_json in
      let errorMessage__lc1 =
        field_map json__ "ErrorMessage__lc1" ErrorMessage.of_json in
      make ?errorCategory ?errorMessage__lc1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure with error messages."]
module DataViewId =
  struct
    type nonrec t = string[@@ocaml.doc "DataView ID"]
    let context_ = "DataViewId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:26) >>=
             (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:"DataViewId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "DataView ID"]
module DataViewStatus =
  struct
    type nonrec t =
      | RUNNING 
      | STARTING 
      | FAILED 
      | CANCELLED 
      | TIMEOUT 
      | SUCCESS 
      | PENDING 
      | FAILED_CLEANUP_FAILED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | RUNNING -> "RUNNING"
      | STARTING -> "STARTING"
      | FAILED -> "FAILED"
      | CANCELLED -> "CANCELLED"
      | TIMEOUT -> "TIMEOUT"
      | SUCCESS -> "SUCCESS"
      | PENDING -> "PENDING"
      | FAILED_CLEANUP_FAILED -> "FAILED_CLEANUP_FAILED"
      | Non_static_id s -> s
    let of_string =
      function
      | "RUNNING" -> RUNNING
      | "STARTING" -> STARTING
      | "FAILED" -> FAILED
      | "CANCELLED" -> CANCELLED
      | "TIMEOUT" -> TIMEOUT
      | "SUCCESS" -> SUCCESS
      | "PENDING" -> PENDING
      | "FAILED_CLEANUP_FAILED" -> FAILED_CLEANUP_FAILED
      | 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 DataViewStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DataViewStatus" j)
    let to_json = simple_to_json to_value
  end
module PartitionColumnList =
  struct
    type nonrec t = StringValueLength1to255.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:StringValueLength1to255.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:StringValueLength1to255.of_xml)
    let of_json j =
      list_of_json ~kind:"PartitionColumnList"
        ~of_json:StringValueLength1to255.of_json j
    let to_json v = composed_to_json to_value v
  end
module SortColumnList =
  struct
    type nonrec t = StringValueLength1to255.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:StringValueLength1to255.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:StringValueLength1to255.of_xml)
    let of_json j =
      list_of_json ~kind:"SortColumnList"
        ~of_json:StringValueLength1to255.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangeType =
  struct
    type nonrec t =
      | REPLACE 
      | APPEND 
      | MODIFY 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | REPLACE -> "REPLACE"
      | APPEND -> "APPEND"
      | MODIFY -> "MODIFY"
      | Non_static_id s -> s
    let of_string =
      function
      | "REPLACE" -> REPLACE
      | "APPEND" -> APPEND
      | "MODIFY" -> MODIFY
      | 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 ChangeType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ChangeType" j)
    let to_json = simple_to_json to_value
  end
module ChangesetArn =
  struct
    type nonrec t = string[@@ocaml.doc "Arn for a given Changeset"]
    let context_ = "ChangesetArn"
    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:"ChangesetArn" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Arn for a given Changeset"]
module ChangesetErrorInfo =
  struct
    type nonrec t =
      {
      errorMessage__lc1: ErrorMessage.t option
        [@ocaml.doc "The text of the error message."];
      errorCategory: ErrorCategory.t option
        [@ocaml.doc
          "The category of the error. VALIDATION \226\128\147 The inputs to this request are invalid. SERVICE_QUOTA_EXCEEDED \226\128\147 Service quotas have been exceeded. Please contact AWS support to increase quotas. ACCESS_DENIED \226\128\147 Missing required permission to perform this request. RESOURCE_NOT_FOUND \226\128\147 One or more inputs to this request were not found. THROTTLING \226\128\147 The system temporarily lacks sufficient resources to process the request. INTERNAL_SERVICE_EXCEPTION \226\128\147 An internal service error has occurred. CANCELLED \226\128\147 Cancelled. USER_RECOVERABLE \226\128\147 A user recoverable error has occurred."]}
    let make ?errorMessage__lc1 =
      fun ?errorCategory -> fun () -> { errorMessage__lc1; errorCategory }
    let to_value x =
      structure_to_value
        [("ErrorMessage__lc1",
           (Option.map x.errorMessage__lc1 ~f:ErrorMessage.to_value));
        ("errorCategory",
          (Option.map x.errorCategory ~f:ErrorCategory.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let errorCategory =
        (Option.map ~f:ErrorCategory.of_xml)
          (Xml.child xml_arg0 "errorCategory") in
      let errorMessage__lc1 =
        (Option.map ~f:ErrorMessage.of_xml)
          (Xml.child xml_arg0 "ErrorMessage__lc1") in
      make ?errorCategory ?errorMessage__lc1 ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let errorCategory =
        field_map json__ "errorCategory" ErrorCategory.of_json in
      let errorMessage__lc1 =
        field_map json__ "ErrorMessage__lc1" ErrorMessage.of_json in
      make ?errorCategory ?errorMessage__lc1 ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure with error messages."]
module ChangesetId =
  struct
    type nonrec t = string[@@ocaml.doc "ID used to identify a Changeset"]
    let context_ = "ChangesetId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:26) >>=
             (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:"ChangesetId" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "ID used to identify a Changeset"]
module FormatParams =
  struct
    type nonrec t = (StringMapKey.t * StringMapValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((StringMapKey.of_string chopped),
                              (StringMapValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (StringMapKey.to_value x) |>
                    (fun x ->
                       (StringMapValue.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:StringMapKey.of_string
        ~of_json:StringMapValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module IngestionStatus =
  struct
    type nonrec t =
      | PENDING 
      | FAILED 
      | SUCCESS 
      | RUNNING 
      | STOP_REQUESTED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | FAILED -> "FAILED"
      | SUCCESS -> "SUCCESS"
      | RUNNING -> "RUNNING"
      | STOP_REQUESTED -> "STOP_REQUESTED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "FAILED" -> FAILED
      | "SUCCESS" -> SUCCESS
      | "RUNNING" -> RUNNING
      | "STOP_REQUESTED" -> STOP_REQUESTED
      | 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 IngestionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"IngestionStatus" j)
    let to_json = simple_to_json to_value
  end
module SourceParams =
  struct
    type nonrec t = (StringMapKey.t * StringMapValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((StringMapKey.of_string chopped),
                              (StringMapValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (StringMapKey.to_value x) |>
                    (fun x ->
                       (StringMapValue.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:StringMapKey.of_string
        ~of_json:StringMapValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourcePermission =
  struct
    type nonrec t =
      {
      permission: StringValueLength1to250.t option
        [@ocaml.doc "Permission for a resource."]}
    let make ?permission = fun () -> { permission }
    let to_value x =
      structure_to_value
        [("permission",
           (Option.map x.permission ~f:StringValueLength1to250.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permission =
        (Option.map ~f:StringValueLength1to250.of_xml)
          (Xml.child xml_arg0 "permission") in
      make ?permission ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permission =
        field_map json__ "permission" StringValueLength1to250.of_json in
      make ?permission ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resource permission for a dataset. When you create a dataset, all the other members of the same user group inherit access to the dataset. You can only create a dataset if your user group has application permission for Create Datasets. The following is a list of valid dataset permissions that you can apply: ViewDatasetDetails ReadDatasetDetails AddDatasetData CreateDataView EditDatasetMetadata DeleteDataset For more information on the dataset permissions, see Supported Dataset Permissions in the FinSpace User Guide."]
module ErrorMessage__lc1 =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage__lc1"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage__lc1" j
    let to_json = simple_to_json to_value
  end
module User =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the user."];
      status: UserStatus.t option
        [@ocaml.doc
          "The current status of the user. CREATING \226\128\147 The user creation is in progress. ENABLED \226\128\147 The user is created and is currently active. DISABLED \226\128\147 The user is currently inactive."];
      firstName: FirstName.t option
        [@ocaml.doc "The first name of the user."];
      lastName: LastName.t option [@ocaml.doc "The last name of the user."];
      emailAddress: Email.t option
        [@ocaml.doc
          "The email address of the user. The email address serves as a uniquer identifier for each user and cannot be changed after it's created."];
      type_: UserType.t option
        [@ocaml.doc
          "Indicates the type of user. SUPER_USER \226\128\147 A user with permission to all the functionality and data in FinSpace. APP_USER \226\128\147 A user with specific permissions in FinSpace. The users are assigned permissions by adding them to a permission group."];
      apiAccess: ApiAccess.t option
        [@ocaml.doc
          "Indicates whether the user can use the GetProgrammaticAccessCredentials API to obtain credentials that can then be used to access other FinSpace Data API operations. ENABLED \226\128\147 The user has permissions to use the APIs. DISABLED \226\128\147 The user does not have permissions to use any APIs."];
      apiAccessPrincipalArn: RoleArn.t option
        [@ocaml.doc
          "The ARN identifier of an AWS user or role that is allowed to call the GetProgrammaticAccessCredentials API to obtain a credentials token for a specific FinSpace user. This must be an IAM role within your FinSpace account."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the user was created in FinSpace. The value is determined as epoch time in milliseconds."];
      lastEnabledTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user was activated. The value is determined as epoch time in milliseconds."];
      lastDisabledTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user was deactivated. The value is determined as epoch time in milliseconds."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user was updated. The value is determined as epoch time in milliseconds."];
      lastLoginTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time that the user logged into their account. The value is determined as epoch time in milliseconds."]}
    let make ?userId =
      fun ?status ->
        fun ?firstName ->
          fun ?lastName ->
            fun ?emailAddress ->
              fun ?type_ ->
                fun ?apiAccess ->
                  fun ?apiAccessPrincipalArn ->
                    fun ?createTime ->
                      fun ?lastEnabledTime ->
                        fun ?lastDisabledTime ->
                          fun ?lastModifiedTime ->
                            fun ?lastLoginTime ->
                              fun () ->
                                {
                                  userId;
                                  status;
                                  firstName;
                                  lastName;
                                  emailAddress;
                                  type_;
                                  apiAccess;
                                  apiAccessPrincipalArn;
                                  createTime;
                                  lastEnabledTime;
                                  lastDisabledTime;
                                  lastModifiedTime;
                                  lastLoginTime
                                }
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value));
        ("status", (Option.map x.status ~f:UserStatus.to_value));
        ("firstName", (Option.map x.firstName ~f:FirstName.to_value));
        ("lastName", (Option.map x.lastName ~f:LastName.to_value));
        ("emailAddress", (Option.map x.emailAddress ~f:Email.to_value));
        ("type", (Option.map x.type_ ~f:UserType.to_value));
        ("apiAccess", (Option.map x.apiAccess ~f:ApiAccess.to_value));
        ("apiAccessPrincipalArn",
          (Option.map x.apiAccessPrincipalArn ~f:RoleArn.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastEnabledTime",
          (Option.map x.lastEnabledTime ~f:TimestampEpoch.to_value));
        ("lastDisabledTime",
          (Option.map x.lastDisabledTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("lastLoginTime",
          (Option.map x.lastLoginTime ~f:TimestampEpoch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastLoginTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastLoginTime") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let lastDisabledTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastDisabledTime") in
      let lastEnabledTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastEnabledTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let apiAccessPrincipalArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "apiAccessPrincipalArn") in
      let apiAccess =
        (Option.map ~f:ApiAccess.of_xml) (Xml.child xml_arg0 "apiAccess") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "type") in
      let emailAddress =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "emailAddress") in
      let lastName =
        (Option.map ~f:LastName.of_xml) (Xml.child xml_arg0 "lastName") in
      let firstName =
        (Option.map ~f:FirstName.of_xml) (Xml.child xml_arg0 "firstName") in
      let status =
        (Option.map ~f:UserStatus.of_xml) (Xml.child xml_arg0 "status") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?lastLoginTime ?lastModifiedTime ?lastDisabledTime
        ?lastEnabledTime ?createTime ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastLoginTime =
        field_map json__ "lastLoginTime" TimestampEpoch.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let lastDisabledTime =
        field_map json__ "lastDisabledTime" TimestampEpoch.of_json in
      let lastEnabledTime =
        field_map json__ "lastEnabledTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let apiAccessPrincipalArn =
        field_map json__ "apiAccessPrincipalArn" RoleArn.of_json in
      let apiAccess = field_map json__ "apiAccess" ApiAccess.of_json in
      let type_ = field_map json__ "type" UserType.of_json in
      let emailAddress = field_map json__ "emailAddress" Email.of_json in
      let lastName = field_map json__ "lastName" LastName.of_json in
      let firstName = field_map json__ "firstName" FirstName.of_json in
      let status = field_map json__ "status" UserStatus.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      make ?lastLoginTime ?lastModifiedTime ?lastDisabledTime
        ?lastEnabledTime ?createTime ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The details of the user."]
module UserByPermissionGroup =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the user."];
      status: UserStatus.t option
        [@ocaml.doc
          "The current status of the user. CREATING \226\128\147 The user creation is in progress. ENABLED \226\128\147 The user is created and is currently active. DISABLED \226\128\147 The user is currently inactive."];
      firstName: FirstName.t option
        [@ocaml.doc "The first name of the user."];
      lastName: LastName.t option [@ocaml.doc "The last name of the user."];
      emailAddress: Email.t option
        [@ocaml.doc
          "The email address of the user. The email address serves as a unique identifier for each user and cannot be changed after it's created."];
      type_: UserType.t option
        [@ocaml.doc
          "Indicates the type of user. SUPER_USER \226\128\147 A user with permission to all the functionality and data in FinSpace. APP_USER \226\128\147 A user with specific permissions in FinSpace. The users are assigned permissions by adding them to a permission group."];
      apiAccess: ApiAccess.t option
        [@ocaml.doc
          "Indicates whether the user can access FinSpace API operations. ENABLED \226\128\147 The user has permissions to use the API operations. DISABLED \226\128\147 The user does not have permissions to use any API operations."];
      apiAccessPrincipalArn: RoleArn.t option
        [@ocaml.doc
          "The IAM ARN identifier that is attached to FinSpace API calls."];
      membershipStatus: PermissionGroupMembershipStatus.t option
        [@ocaml.doc
          "Indicates the status of the user within a permission group. ADDITION_IN_PROGRESS \226\128\147 The user is currently being added to the permission group. ADDITION_SUCCESS \226\128\147 The user is successfully added to the permission group. REMOVAL_IN_PROGRESS \226\128\147 The user is currently being removed from the permission group."]}
    let make ?userId =
      fun ?status ->
        fun ?firstName ->
          fun ?lastName ->
            fun ?emailAddress ->
              fun ?type_ ->
                fun ?apiAccess ->
                  fun ?apiAccessPrincipalArn ->
                    fun ?membershipStatus ->
                      fun () ->
                        {
                          userId;
                          status;
                          firstName;
                          lastName;
                          emailAddress;
                          type_;
                          apiAccess;
                          apiAccessPrincipalArn;
                          membershipStatus
                        }
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value));
        ("status", (Option.map x.status ~f:UserStatus.to_value));
        ("firstName", (Option.map x.firstName ~f:FirstName.to_value));
        ("lastName", (Option.map x.lastName ~f:LastName.to_value));
        ("emailAddress", (Option.map x.emailAddress ~f:Email.to_value));
        ("type", (Option.map x.type_ ~f:UserType.to_value));
        ("apiAccess", (Option.map x.apiAccess ~f:ApiAccess.to_value));
        ("apiAccessPrincipalArn",
          (Option.map x.apiAccessPrincipalArn ~f:RoleArn.to_value));
        ("membershipStatus",
          (Option.map x.membershipStatus
             ~f:PermissionGroupMembershipStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipStatus =
        (Option.map ~f:PermissionGroupMembershipStatus.of_xml)
          (Xml.child xml_arg0 "membershipStatus") in
      let apiAccessPrincipalArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "apiAccessPrincipalArn") in
      let apiAccess =
        (Option.map ~f:ApiAccess.of_xml) (Xml.child xml_arg0 "apiAccess") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "type") in
      let emailAddress =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "emailAddress") in
      let lastName =
        (Option.map ~f:LastName.of_xml) (Xml.child xml_arg0 "lastName") in
      let firstName =
        (Option.map ~f:FirstName.of_xml) (Xml.child xml_arg0 "firstName") in
      let status =
        (Option.map ~f:UserStatus.of_xml) (Xml.child xml_arg0 "status") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?membershipStatus ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipStatus =
        field_map json__ "membershipStatus"
          PermissionGroupMembershipStatus.of_json in
      let apiAccessPrincipalArn =
        field_map json__ "apiAccessPrincipalArn" RoleArn.of_json in
      let apiAccess = field_map json__ "apiAccess" ApiAccess.of_json in
      let type_ = field_map json__ "type" UserType.of_json in
      let emailAddress = field_map json__ "emailAddress" Email.of_json in
      let lastName = field_map json__ "lastName" LastName.of_json in
      let firstName = field_map json__ "firstName" FirstName.of_json in
      let status = field_map json__ "status" UserStatus.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      make ?membershipStatus ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure of a user associated with a permission group."]
module PermissionGroup =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc "The unique identifier for the permission group."];
      name: PermissionGroupName.t option
        [@ocaml.doc "The name of the permission group."];
      description: PermissionGroupDescription.t option
        [@ocaml.doc "A brief description for the permission group."];
      applicationPermissions: ApplicationPermissionList.t option
        [@ocaml.doc
          "Indicates the permissions that are granted to a specific group for accessing the FinSpace application. When assigning application permissions, be aware that the permission ManageUsersAndGroups allows users to grant themselves or others access to any functionality in their FinSpace environment's application. It should only be granted to trusted users. CreateDataset \226\128\147 Group members can create new datasets. ManageClusters \226\128\147 Group members can manage Apache Spark clusters from FinSpace notebooks. ManageUsersAndGroups \226\128\147 Group members can manage users and permission groups. This is a privileged permission that allows users to grant themselves or others access to any functionality in the application. It should only be granted to trusted users. ManageAttributeSets \226\128\147 Group members can manage attribute sets. ViewAuditData \226\128\147 Group members can view audit data. AccessNotebooks \226\128\147 Group members will have access to FinSpace notebooks. GetTemporaryCredentials \226\128\147 Group members can get temporary API credentials."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the group was created in FinSpace. The value is determined as epoch time in milliseconds."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the permission group was updated. The value is determined as epoch time in milliseconds."];
      membershipStatus: PermissionGroupMembershipStatus.t option
        [@ocaml.doc
          "Indicates the status of the user within a permission group. ADDITION_IN_PROGRESS \226\128\147 The user is currently being added to the permission group. ADDITION_SUCCESS \226\128\147 The user is successfully added to the permission group. REMOVAL_IN_PROGRESS \226\128\147 The user is currently being removed from the permission group."]}
    let make ?permissionGroupId =
      fun ?name ->
        fun ?description ->
          fun ?applicationPermissions ->
            fun ?createTime ->
              fun ?lastModifiedTime ->
                fun ?membershipStatus ->
                  fun () ->
                    {
                      permissionGroupId;
                      name;
                      description;
                      applicationPermissions;
                      createTime;
                      lastModifiedTime;
                      membershipStatus
                    }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value));
        ("name", (Option.map x.name ~f:PermissionGroupName.to_value));
        ("description",
          (Option.map x.description ~f:PermissionGroupDescription.to_value));
        ("applicationPermissions",
          (Option.map x.applicationPermissions
             ~f:ApplicationPermissionList.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("membershipStatus",
          (Option.map x.membershipStatus
             ~f:PermissionGroupMembershipStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipStatus =
        (Option.map ~f:PermissionGroupMembershipStatus.of_xml)
          (Xml.child xml_arg0 "membershipStatus") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let applicationPermissions =
        (Option.map ~f:ApplicationPermissionList.of_xml)
          (Xml.child xml_arg0 "applicationPermissions") in
      let description =
        (Option.map ~f:PermissionGroupDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:PermissionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?membershipStatus ?lastModifiedTime ?createTime
        ?applicationPermissions ?description ?name ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipStatus =
        field_map json__ "membershipStatus"
          PermissionGroupMembershipStatus.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let applicationPermissions =
        field_map json__ "applicationPermissions"
          ApplicationPermissionList.of_json in
      let description =
        field_map json__ "description" PermissionGroupDescription.of_json in
      let name = field_map json__ "name" PermissionGroupName.of_json in
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?membershipStatus ?lastModifiedTime ?createTime
        ?applicationPermissions ?description ?name ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure for a permission group."]
module PermissionGroupByUser =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc "The unique identifier for the permission group."];
      name: PermissionGroupName.t option
        [@ocaml.doc "The name of the permission group."];
      membershipStatus: PermissionGroupMembershipStatus.t option
        [@ocaml.doc
          "Indicates the status of the user within a permission group. ADDITION_IN_PROGRESS \226\128\147 The user is currently being added to the permission group. ADDITION_SUCCESS \226\128\147 The user is successfully added to the permission group. REMOVAL_IN_PROGRESS \226\128\147 The user is currently being removed from the permission group."]}
    let make ?permissionGroupId =
      fun ?name ->
        fun ?membershipStatus ->
          fun () -> { permissionGroupId; name; membershipStatus }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value));
        ("name", (Option.map x.name ~f:PermissionGroupName.to_value));
        ("membershipStatus",
          (Option.map x.membershipStatus
             ~f:PermissionGroupMembershipStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let membershipStatus =
        (Option.map ~f:PermissionGroupMembershipStatus.of_xml)
          (Xml.child xml_arg0 "membershipStatus") in
      let name =
        (Option.map ~f:PermissionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?membershipStatus ?name ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let membershipStatus =
        field_map json__ "membershipStatus"
          PermissionGroupMembershipStatus.of_json in
      let name = field_map json__ "name" PermissionGroupName.of_json in
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?membershipStatus ?name ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The structure of a permission group associated with a user."]
module Dataset =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc "An identifier for a Dataset."];
      datasetArn: DatasetArn.t option
        [@ocaml.doc "The ARN identifier of the Dataset."];
      datasetTitle: DatasetTitle.t option
        [@ocaml.doc "Display title for a Dataset."];
      kind: DatasetKind.t option
        [@ocaml.doc
          "The format in which Dataset data is structured. TABULAR \226\128\147 Data is structured in a tabular format. NON_TABULAR \226\128\147 Data is structured in a non-tabular format."];
      datasetDescription: DatasetDescription.t option
        [@ocaml.doc "Description for a Dataset."];
      ownerInfo: DatasetOwnerInfo.t option
        [@ocaml.doc "Contact information for a Dataset owner."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Dataset was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "The last time that the Dataset was modified. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      schemaDefinition: SchemaUnion.t option
        [@ocaml.doc "Definition for a schema on a tabular Dataset."];
      alias: AliasString.t option
        [@ocaml.doc "The unique resource identifier for a Dataset."]}
    let make ?datasetId =
      fun ?datasetArn ->
        fun ?datasetTitle ->
          fun ?kind ->
            fun ?datasetDescription ->
              fun ?ownerInfo ->
                fun ?createTime ->
                  fun ?lastModifiedTime ->
                    fun ?schemaDefinition ->
                      fun ?alias ->
                        fun () ->
                          {
                            datasetId;
                            datasetArn;
                            datasetTitle;
                            kind;
                            datasetDescription;
                            ownerInfo;
                            createTime;
                            lastModifiedTime;
                            schemaDefinition;
                            alias
                          }
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("datasetArn", (Option.map x.datasetArn ~f:DatasetArn.to_value));
        ("datasetTitle",
          (Option.map x.datasetTitle ~f:DatasetTitle.to_value));
        ("kind", (Option.map x.kind ~f:DatasetKind.to_value));
        ("datasetDescription",
          (Option.map x.datasetDescription ~f:DatasetDescription.to_value));
        ("ownerInfo", (Option.map x.ownerInfo ~f:DatasetOwnerInfo.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("schemaDefinition",
          (Option.map x.schemaDefinition ~f:SchemaUnion.to_value));
        ("alias", (Option.map x.alias ~f:AliasString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let alias =
        (Option.map ~f:AliasString.of_xml) (Xml.child xml_arg0 "alias") in
      let schemaDefinition =
        (Option.map ~f:SchemaUnion.of_xml)
          (Xml.child xml_arg0 "schemaDefinition") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let ownerInfo =
        (Option.map ~f:DatasetOwnerInfo.of_xml)
          (Xml.child xml_arg0 "ownerInfo") in
      let datasetDescription =
        (Option.map ~f:DatasetDescription.of_xml)
          (Xml.child xml_arg0 "datasetDescription") in
      let kind =
        (Option.map ~f:DatasetKind.of_xml) (Xml.child xml_arg0 "kind") in
      let datasetTitle =
        (Option.map ~f:DatasetTitle.of_xml)
          (Xml.child xml_arg0 "datasetTitle") in
      let datasetArn =
        (Option.map ~f:DatasetArn.of_xml) (Xml.child xml_arg0 "datasetArn") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?alias ?schemaDefinition ?lastModifiedTime ?createTime ?ownerInfo
        ?datasetDescription ?kind ?datasetTitle ?datasetArn ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let alias = field_map json__ "alias" AliasString.of_json in
      let schemaDefinition =
        field_map json__ "schemaDefinition" SchemaUnion.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let ownerInfo = field_map json__ "ownerInfo" DatasetOwnerInfo.of_json in
      let datasetDescription =
        field_map json__ "datasetDescription" DatasetDescription.of_json in
      let kind = field_map json__ "kind" DatasetKind.of_json in
      let datasetTitle = field_map json__ "datasetTitle" DatasetTitle.of_json in
      let datasetArn = field_map json__ "datasetArn" DatasetArn.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?alias ?schemaDefinition ?lastModifiedTime ?createTime ?ownerInfo
        ?datasetDescription ?kind ?datasetTitle ?datasetArn ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The structure for a Dataset."]
module DataViewSummary =
  struct
    type nonrec t =
      {
      dataViewId: DataViewId.t option
        [@ocaml.doc "The unique identifier for the Dataview."];
      dataViewArn: DataViewArn.t option
        [@ocaml.doc "The ARN identifier of the Dataview."];
      datasetId: DatasetId.t option
        [@ocaml.doc "Th unique identifier for the Dataview Dataset."];
      asOfTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Time range to use for the Dataview. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      partitionColumns: PartitionColumnList.t option
        [@ocaml.doc "Ordered set of column names used to partition data."];
      sortColumns: SortColumnList.t option
        [@ocaml.doc "Columns to be used for sorting the data."];
      status: DataViewStatus.t option
        [@ocaml.doc
          "The status of a Dataview creation. RUNNING \226\128\147 Dataview creation is running. STARTING \226\128\147 Dataview creation is starting. FAILED \226\128\147 Dataview creation has failed. CANCELLED \226\128\147 Dataview creation has been cancelled. TIMEOUT \226\128\147 Dataview creation has timed out. SUCCESS \226\128\147 Dataview creation has succeeded. PENDING \226\128\147 Dataview creation is pending. FAILED_CLEANUP_FAILED \226\128\147 Dataview creation failed and resource cleanup failed."];
      errorInfo: DataViewErrorInfo.t option
        [@ocaml.doc "The structure with error messages."];
      destinationTypeProperties: DataViewDestinationTypeParams.t option
        [@ocaml.doc "Information about the Dataview destination."];
      autoUpdate: Boolean.t option
        [@ocaml.doc
          "The flag to indicate Dataview should be updated automatically."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Dataview was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "The last time that a Dataview was modified. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."]}
    let make ?dataViewId =
      fun ?dataViewArn ->
        fun ?datasetId ->
          fun ?asOfTimestamp ->
            fun ?partitionColumns ->
              fun ?sortColumns ->
                fun ?status ->
                  fun ?errorInfo ->
                    fun ?destinationTypeProperties ->
                      fun ?autoUpdate ->
                        fun ?createTime ->
                          fun ?lastModifiedTime ->
                            fun () ->
                              {
                                dataViewId;
                                dataViewArn;
                                datasetId;
                                asOfTimestamp;
                                partitionColumns;
                                sortColumns;
                                status;
                                errorInfo;
                                destinationTypeProperties;
                                autoUpdate;
                                createTime;
                                lastModifiedTime
                              }
    let to_value x =
      structure_to_value
        [("dataViewId", (Option.map x.dataViewId ~f:DataViewId.to_value));
        ("dataViewArn", (Option.map x.dataViewArn ~f:DataViewArn.to_value));
        ("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("asOfTimestamp",
          (Option.map x.asOfTimestamp ~f:TimestampEpoch.to_value));
        ("partitionColumns",
          (Option.map x.partitionColumns ~f:PartitionColumnList.to_value));
        ("sortColumns",
          (Option.map x.sortColumns ~f:SortColumnList.to_value));
        ("status", (Option.map x.status ~f:DataViewStatus.to_value));
        ("errorInfo", (Option.map x.errorInfo ~f:DataViewErrorInfo.to_value));
        ("destinationTypeProperties",
          (Option.map x.destinationTypeProperties
             ~f:DataViewDestinationTypeParams.to_value));
        ("autoUpdate", (Option.map x.autoUpdate ~f:Boolean.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let autoUpdate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "autoUpdate") in
      let destinationTypeProperties =
        (Option.map ~f:DataViewDestinationTypeParams.of_xml)
          (Xml.child xml_arg0 "destinationTypeProperties") in
      let errorInfo =
        (Option.map ~f:DataViewErrorInfo.of_xml)
          (Xml.child xml_arg0 "errorInfo") in
      let status =
        (Option.map ~f:DataViewStatus.of_xml) (Xml.child xml_arg0 "status") in
      let sortColumns =
        (Option.map ~f:SortColumnList.of_xml)
          (Xml.child xml_arg0 "sortColumns") in
      let partitionColumns =
        (Option.map ~f:PartitionColumnList.of_xml)
          (Xml.child xml_arg0 "partitionColumns") in
      let asOfTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "asOfTimestamp") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      let dataViewArn =
        (Option.map ~f:DataViewArn.of_xml) (Xml.child xml_arg0 "dataViewArn") in
      let dataViewId =
        (Option.map ~f:DataViewId.of_xml) (Xml.child xml_arg0 "dataViewId") in
      make ?lastModifiedTime ?createTime ?autoUpdate
        ?destinationTypeProperties ?errorInfo ?status ?sortColumns
        ?partitionColumns ?asOfTimestamp ?datasetId ?dataViewArn ?dataViewId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let autoUpdate = field_map json__ "autoUpdate" Boolean.of_json in
      let destinationTypeProperties =
        field_map json__ "destinationTypeProperties"
          DataViewDestinationTypeParams.of_json in
      let errorInfo = field_map json__ "errorInfo" DataViewErrorInfo.of_json in
      let status = field_map json__ "status" DataViewStatus.of_json in
      let sortColumns = field_map json__ "sortColumns" SortColumnList.of_json in
      let partitionColumns =
        field_map json__ "partitionColumns" PartitionColumnList.of_json in
      let asOfTimestamp =
        field_map json__ "asOfTimestamp" TimestampEpoch.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      let dataViewArn = field_map json__ "dataViewArn" DataViewArn.of_json in
      let dataViewId = field_map json__ "dataViewId" DataViewId.of_json in
      make ?lastModifiedTime ?createTime ?autoUpdate
        ?destinationTypeProperties ?errorInfo ?status ?sortColumns
        ?partitionColumns ?asOfTimestamp ?datasetId ?dataViewArn ?dataViewId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Structure for the summary of a Dataview."]
module ChangesetSummary =
  struct
    type nonrec t =
      {
      changesetId: ChangesetId.t option
        [@ocaml.doc "The unique identifier for a Changeset."];
      changesetArn: ChangesetArn.t option
        [@ocaml.doc "The ARN identifier of the Changeset."];
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset in which the Changeset is created."];
      changeType: ChangeType.t option
        [@ocaml.doc
          "Type that indicates how a Changeset is applied to a Dataset. REPLACE \226\128\147 Changeset is considered as a replacement to all prior loaded Changesets. APPEND \226\128\147 Changeset is considered as an addition to the end of all prior loaded Changesets. MODIFY \226\128\147 Changeset is considered as a replacement to a specific prior ingested Changeset."];
      sourceParams: SourceParams.t option
        [@ocaml.doc
          "Options that define the location of the data being ingested."];
      formatParams: FormatParams.t option
        [@ocaml.doc
          "Options that define the structure of the source file(s)."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Changeset was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      status: IngestionStatus.t option
        [@ocaml.doc
          "Status of the Changeset ingestion. PENDING \226\128\147 Changeset is pending creation. FAILED \226\128\147 Changeset creation has failed. SUCCESS \226\128\147 Changeset creation has succeeded. RUNNING \226\128\147 Changeset creation is running. STOP_REQUESTED \226\128\147 User requested Changeset creation to stop."];
      errorInfo: ChangesetErrorInfo.t option
        [@ocaml.doc "The structure with error messages."];
      activeUntilTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Time until which the Changeset is active. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      activeFromTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Beginning time from which the Changeset is active. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      updatesChangesetId: ChangesetId.t option
        [@ocaml.doc
          "The unique identifier of the Changeset that is updated."];
      updatedByChangesetId: ChangesetId.t option
        [@ocaml.doc "The unique identifier of the updated Changeset."]}
    let make ?changesetId =
      fun ?changesetArn ->
        fun ?datasetId ->
          fun ?changeType ->
            fun ?sourceParams ->
              fun ?formatParams ->
                fun ?createTime ->
                  fun ?status ->
                    fun ?errorInfo ->
                      fun ?activeUntilTimestamp ->
                        fun ?activeFromTimestamp ->
                          fun ?updatesChangesetId ->
                            fun ?updatedByChangesetId ->
                              fun () ->
                                {
                                  changesetId;
                                  changesetArn;
                                  datasetId;
                                  changeType;
                                  sourceParams;
                                  formatParams;
                                  createTime;
                                  status;
                                  errorInfo;
                                  activeUntilTimestamp;
                                  activeFromTimestamp;
                                  updatesChangesetId;
                                  updatedByChangesetId
                                }
    let to_value x =
      structure_to_value
        [("changesetId", (Option.map x.changesetId ~f:ChangesetId.to_value));
        ("changesetArn",
          (Option.map x.changesetArn ~f:ChangesetArn.to_value));
        ("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("changeType", (Option.map x.changeType ~f:ChangeType.to_value));
        ("sourceParams",
          (Option.map x.sourceParams ~f:SourceParams.to_value));
        ("formatParams",
          (Option.map x.formatParams ~f:FormatParams.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("status", (Option.map x.status ~f:IngestionStatus.to_value));
        ("errorInfo",
          (Option.map x.errorInfo ~f:ChangesetErrorInfo.to_value));
        ("activeUntilTimestamp",
          (Option.map x.activeUntilTimestamp ~f:TimestampEpoch.to_value));
        ("activeFromTimestamp",
          (Option.map x.activeFromTimestamp ~f:TimestampEpoch.to_value));
        ("updatesChangesetId",
          (Option.map x.updatesChangesetId ~f:ChangesetId.to_value));
        ("updatedByChangesetId",
          (Option.map x.updatedByChangesetId ~f:ChangesetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedByChangesetId =
        (Option.map ~f:ChangesetId.of_xml)
          (Xml.child xml_arg0 "updatedByChangesetId") in
      let updatesChangesetId =
        (Option.map ~f:ChangesetId.of_xml)
          (Xml.child xml_arg0 "updatesChangesetId") in
      let activeFromTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "activeFromTimestamp") in
      let activeUntilTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "activeUntilTimestamp") in
      let errorInfo =
        (Option.map ~f:ChangesetErrorInfo.of_xml)
          (Xml.child xml_arg0 "errorInfo") in
      let status =
        (Option.map ~f:IngestionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let formatParams =
        (Option.map ~f:FormatParams.of_xml)
          (Xml.child xml_arg0 "formatParams") in
      let sourceParams =
        (Option.map ~f:SourceParams.of_xml)
          (Xml.child xml_arg0 "sourceParams") in
      let changeType =
        (Option.map ~f:ChangeType.of_xml) (Xml.child xml_arg0 "changeType") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      let changesetArn =
        (Option.map ~f:ChangesetArn.of_xml)
          (Xml.child xml_arg0 "changesetArn") in
      let changesetId =
        (Option.map ~f:ChangesetId.of_xml) (Xml.child xml_arg0 "changesetId") in
      make ?updatedByChangesetId ?updatesChangesetId ?activeFromTimestamp
        ?activeUntilTimestamp ?errorInfo ?status ?createTime ?formatParams
        ?sourceParams ?changeType ?datasetId ?changesetArn ?changesetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedByChangesetId =
        field_map json__ "updatedByChangesetId" ChangesetId.of_json in
      let updatesChangesetId =
        field_map json__ "updatesChangesetId" ChangesetId.of_json in
      let activeFromTimestamp =
        field_map json__ "activeFromTimestamp" TimestampEpoch.of_json in
      let activeUntilTimestamp =
        field_map json__ "activeUntilTimestamp" TimestampEpoch.of_json in
      let errorInfo = field_map json__ "errorInfo" ChangesetErrorInfo.of_json in
      let status = field_map json__ "status" IngestionStatus.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let formatParams = field_map json__ "formatParams" FormatParams.of_json in
      let sourceParams = field_map json__ "sourceParams" SourceParams.of_json in
      let changeType = field_map json__ "changeType" ChangeType.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      let changesetArn = field_map json__ "changesetArn" ChangesetArn.of_json in
      let changesetId = field_map json__ "changesetId" ChangesetId.of_json in
      make ?updatedByChangesetId ?updatesChangesetId ?activeFromTimestamp
        ?activeUntilTimestamp ?errorInfo ?status ?createTime ?formatParams
        ?sourceParams ?changeType ?datasetId ?changesetArn ?changesetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A Changeset is unit of data in a Dataset."]
module StringValueLength1to255__lc1 =
  struct
    type nonrec t = string
    let context_ = "StringValueLength1to255__lc1"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:255) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"StringValueLength1to255__lc1" j
    let to_json = simple_to_json to_value
  end
module StringValueMaxLength1000 =
  struct
    type nonrec t = string
    let context_ = "stringValueMaxLength1000"
    let make i =
      let open Result in ok_or_failwith (check_string_max i ~max:1000); i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"stringValueMaxLength1000" j
    let to_json = simple_to_json to_value
  end
module AccessKeyId =
  struct
    type nonrec t = string
    let context_ = "AccessKeyId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:255) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*")));
        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:"AccessKeyId" j
    let to_json = simple_to_json to_value
  end
module SecretAccessKey =
  struct
    type nonrec t = string
    let context_ = "SecretAccessKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*")));
        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:"SecretAccessKey" j
    let to_json = simple_to_json to_value
  end
module SessionToken =
  struct
    type nonrec t = string
    let context_ = "SessionToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1000) >>=
                  (fun () -> check_pattern i ~pattern:"[\\s\\S]*\\S[\\s\\S]*")));
        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:"SessionToken" j
    let to_json = simple_to_json to_value
  end
module S3BucketName =
  struct
    type nonrec t = string
    let context_ = "S3BucketName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:"^.*\\S.*$")));
        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:"S3BucketName" j
    let to_json = simple_to_json to_value
  end
module S3Key =
  struct
    type nonrec t = string
    let context_ = "S3Key"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:"^.*\\S.*$")));
        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:"S3Key" j
    let to_json = simple_to_json to_value
  end
module ResourcePermissionsList =
  struct
    type nonrec t = ResourcePermission.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:ResourcePermission.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:ResourcePermission.of_xml)
    let of_json j =
      list_of_json ~kind:"ResourcePermissionsList"
        ~of_json:ResourcePermission.of_json j
    let to_json v = composed_to_json to_value v
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: ErrorMessage__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage__lc1.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" ErrorMessage__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "You do not have sufficient access to perform this action."]
module ConflictException =
  struct
    type nonrec t =
      {
      message: ErrorMessage__lc1.t option ;
      reason: ErrorMessage__lc1.t option }
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value));
        ("reason", (Option.map x.reason ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" ErrorMessage__lc1.of_json in
      let message = field_map json__ "message" ErrorMessage__lc1.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request conflicts with an existing resource."]
module InternalServerException =
  struct
    type nonrec t = {
      message: ErrorMessage__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage__lc1.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" ErrorMessage__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request processing has failed because of an unknown error, exception or failure."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: ErrorMessage__lc1.t option ;
      reason: ErrorMessage__lc1.t option }
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value));
        ("reason", (Option.map x.reason ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" ErrorMessage__lc1.of_json in
      let message = field_map json__ "message" ErrorMessage__lc1.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One or more resources can't be found."]
module ThrottlingException =
  struct
    type nonrec t = unit
    let make () = ()
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request was denied due to request throttling."]
module ValidationException =
  struct
    type nonrec t =
      {
      message: ErrorMessage__lc1.t option ;
      reason: ErrorMessage__lc1.t option }
    let make ?message = fun ?reason -> fun () -> { message; reason }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value));
        ("reason", (Option.map x.reason ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let reason =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "reason") in
      let message =
        (Option.map ~f:ErrorMessage__lc1.of_xml)
          (Xml.child xml_arg0 "message") in
      make ?reason ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let reason = field_map json__ "reason" ErrorMessage__lc1.of_json in
      let message = field_map json__ "message" ErrorMessage__lc1.of_json in
      make ?reason ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input fails to satisfy the constraints specified by an AWS service."]
module ClientToken =
  struct
    type nonrec t = string[@@ocaml.doc
                            "Idempotence Token for API operations"]
    let context_ = "ClientToken"
    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:".*\\S.*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ClientToken" j
    let to_json = simple_to_json to_value
  end[@@ocaml.doc "Idempotence Token for API operations"]
module Password =
  struct
    type nonrec t = string
    let context_ = "Password"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:8) >>=
             (fun () ->
                (check_string_max i ~max:20) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"Password" j
    let to_json = simple_to_json to_value
  end
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    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:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module UserList =
  struct
    type nonrec t = User.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:User.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:User.of_xml)
    let of_json j = list_of_json ~kind:"UserList" ~of_json:User.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResultLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:100) >>= (fun () -> check_int_min i ~min:1));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for ResultLimit" 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 UserByPermissionGroupList =
  struct
    type nonrec t = UserByPermissionGroup.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:UserByPermissionGroup.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:UserByPermissionGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"UserByPermissionGroupList"
        ~of_json:UserByPermissionGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module PermissionGroupList =
  struct
    type nonrec t = PermissionGroup.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:PermissionGroup.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:PermissionGroup.of_xml)
    let of_json j =
      list_of_json ~kind:"PermissionGroupList"
        ~of_json:PermissionGroup.of_json j
    let to_json v = composed_to_json to_value v
  end
module PermissionGroupByUserList =
  struct
    type nonrec t = PermissionGroupByUser.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:PermissionGroupByUser.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:PermissionGroupByUser.of_xml)
    let of_json j =
      list_of_json ~kind:"PermissionGroupByUserList"
        ~of_json:PermissionGroupByUser.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 DataViewList =
  struct
    type nonrec t = DataViewSummary.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:DataViewSummary.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:DataViewSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"DataViewList" ~of_json:DataViewSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module ChangesetList =
  struct
    type nonrec t = ChangesetSummary.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:ChangesetSummary.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:ChangesetSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ChangesetList" ~of_json:ChangesetSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module StringValueLength1to1024 =
  struct
    type nonrec t = string
    let context_ = "stringValueLength1to1024"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:1024) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"stringValueLength1to1024" j
    let to_json = simple_to_json to_value
  end
module StringValueLength1to63 =
  struct
    type nonrec t = string
    let context_ = "stringValueLength1to63"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:63) >>=
                  (fun () -> check_pattern i ~pattern:".*\\S.*")));
        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:"stringValueLength1to63" j
    let to_json = simple_to_json to_value
  end
module LocationType =
  struct
    type nonrec t =
      | INGESTION 
      | SAGEMAKER 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | INGESTION -> "INGESTION"
      | SAGEMAKER -> "SAGEMAKER"
      | Non_static_id s -> s
    let of_string =
      function
      | "INGESTION" -> INGESTION
      | "SAGEMAKER" -> SAGEMAKER
      | 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 locationType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"locationType" j)
    let to_json = simple_to_json to_value
  end
module Credentials =
  struct
    type nonrec t =
      {
      accessKeyId: StringValueLength1to255__lc1.t option
        [@ocaml.doc "The access key identifier."];
      secretAccessKey: StringValueMaxLength1000.t option
        [@ocaml.doc "The access key."];
      sessionToken: StringValueMaxLength1000.t option
        [@ocaml.doc "The session token."]}
    let make ?accessKeyId =
      fun ?secretAccessKey ->
        fun ?sessionToken ->
          fun () -> { accessKeyId; secretAccessKey; sessionToken }
    let to_value x =
      structure_to_value
        [("accessKeyId",
           (Option.map x.accessKeyId ~f:StringValueLength1to255__lc1.to_value));
        ("secretAccessKey",
          (Option.map x.secretAccessKey ~f:StringValueMaxLength1000.to_value));
        ("sessionToken",
          (Option.map x.sessionToken ~f:StringValueMaxLength1000.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionToken =
        (Option.map ~f:StringValueMaxLength1000.of_xml)
          (Xml.child xml_arg0 "sessionToken") in
      let secretAccessKey =
        (Option.map ~f:StringValueMaxLength1000.of_xml)
          (Xml.child xml_arg0 "secretAccessKey") in
      let accessKeyId =
        (Option.map ~f:StringValueLength1to255__lc1.of_xml)
          (Xml.child xml_arg0 "accessKeyId") in
      make ?sessionToken ?secretAccessKey ?accessKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionToken =
        field_map json__ "sessionToken" StringValueMaxLength1000.of_json in
      let secretAccessKey =
        field_map json__ "secretAccessKey" StringValueMaxLength1000.of_json in
      let accessKeyId =
        field_map json__ "accessKeyId" StringValueLength1to255__lc1.of_json in
      make ?sessionToken ?secretAccessKey ?accessKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Short term API credentials."]
module SessionDuration =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:60L) >>=
             (fun () -> check_int64_min i ~min:1L));
        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 IdType =
  struct
    type nonrec t = string
    let context_ = "IdType"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:26) >>=
             (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:"IdType" j
    let to_json = simple_to_json to_value
  end
module AwsCredentials =
  struct
    type nonrec t =
      {
      accessKeyId: AccessKeyId.t option
        [@ocaml.doc "The unique identifier for the security credentials."];
      secretAccessKey: SecretAccessKey.t option
        [@ocaml.doc
          "The secret access key that can be used to sign requests."];
      sessionToken: SessionToken.t option
        [@ocaml.doc "The token that users must pass to use the credentials."];
      expiration: TimestampEpoch.t option
        [@ocaml.doc "The Epoch time when the current credentials expire."]}
    let make ?accessKeyId =
      fun ?secretAccessKey ->
        fun ?sessionToken ->
          fun ?expiration ->
            fun () ->
              { accessKeyId; secretAccessKey; sessionToken; expiration }
    let to_value x =
      structure_to_value
        [("accessKeyId", (Option.map x.accessKeyId ~f:AccessKeyId.to_value));
        ("secretAccessKey",
          (Option.map x.secretAccessKey ~f:SecretAccessKey.to_value));
        ("sessionToken",
          (Option.map x.sessionToken ~f:SessionToken.to_value));
        ("expiration", (Option.map x.expiration ~f:TimestampEpoch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let expiration =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "expiration") in
      let sessionToken =
        (Option.map ~f:SessionToken.of_xml)
          (Xml.child xml_arg0 "sessionToken") in
      let secretAccessKey =
        (Option.map ~f:SecretAccessKey.of_xml)
          (Xml.child xml_arg0 "secretAccessKey") in
      let accessKeyId =
        (Option.map ~f:AccessKeyId.of_xml) (Xml.child xml_arg0 "accessKeyId") in
      make ?expiration ?sessionToken ?secretAccessKey ?accessKeyId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let expiration = field_map json__ "expiration" TimestampEpoch.of_json in
      let sessionToken = field_map json__ "sessionToken" SessionToken.of_json in
      let secretAccessKey =
        field_map json__ "secretAccessKey" SecretAccessKey.of_json in
      let accessKeyId = field_map json__ "accessKeyId" AccessKeyId.of_json in
      make ?expiration ?sessionToken ?secretAccessKey ?accessKeyId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The credentials required to access the external Dataview from the S3 location."]
module S3Location =
  struct
    type nonrec t =
      {
      bucket: S3BucketName.t option [@ocaml.doc "The name of the S3 bucket."];
      key: S3Key.t option
        [@ocaml.doc
          "The path of the folder, within the S3 bucket that contains the Dataset."]}
    let make ?bucket = fun ?key -> fun () -> { bucket; key }
    let to_value x =
      structure_to_value
        [("bucket", (Option.map x.bucket ~f:S3BucketName.to_value));
        ("key", (Option.map x.key ~f:S3Key.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let key = (Option.map ~f:S3Key.of_xml) (Xml.child xml_arg0 "key") in
      let bucket =
        (Option.map ~f:S3BucketName.of_xml) (Xml.child xml_arg0 "bucket") in
      make ?key ?bucket ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let key = field_map json__ "key" S3Key.of_json in
      let bucket = field_map json__ "bucket" S3BucketName.of_json in
      make ?key ?bucket ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The location of an external Dataview in an S3 bucket."]
module DatasetStatus =
  struct
    type nonrec t =
      | PENDING 
      | FAILED 
      | SUCCESS 
      | RUNNING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PENDING -> "PENDING"
      | FAILED -> "FAILED"
      | SUCCESS -> "SUCCESS"
      | RUNNING -> "RUNNING"
      | Non_static_id s -> s
    let of_string =
      function
      | "PENDING" -> PENDING
      | "FAILED" -> FAILED
      | "SUCCESS" -> SUCCESS
      | "RUNNING" -> RUNNING
      | 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 DatasetStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DatasetStatus" j)
    let to_json = simple_to_json to_value
  end
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage__lc1.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage__lc1.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage__lc1.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" ErrorMessage__lc1.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A limit has exceeded."]
module StatusCode =
  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 StatusCode" 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 PermissionGroupParams =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc "The unique identifier for the PermissionGroup."];
      datasetPermissions: ResourcePermissionsList.t option
        [@ocaml.doc "List of resource permissions."]}
    let make ?permissionGroupId =
      fun ?datasetPermissions ->
        fun () -> { permissionGroupId; datasetPermissions }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value));
        ("datasetPermissions",
          (Option.map x.datasetPermissions
             ~f:ResourcePermissionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetPermissions =
        (Option.map ~f:ResourcePermissionsList.of_xml)
          (Xml.child xml_arg0 "datasetPermissions") in
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?datasetPermissions ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetPermissions =
        field_map json__ "datasetPermissions" ResourcePermissionsList.of_json in
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?datasetPermissions ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Permission group parameters for Dataset permissions. Here is an example of how you could specify the PermissionGroupParams: \\{ \"permissionGroupId\": \"0r6fCRtSTUk4XPfXQe3M0g\", \"datasetPermissions\": \\[ \\{\"permission\": \"ViewDatasetDetails\"\\}, \\{\"permission\": \"AddDatasetData\"\\}, \\{\"permission\": \"EditDatasetMetadata\"\\}, \\{\"permission\": \"DeleteDataset\"\\} \\] \\}"]
module UpdateUserResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier of the updated user."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId = fun () -> { userId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "userId" UserId.of_json in
      make ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the details of the specified user. You cannot update the userId for a user."]
module UpdateUserRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t
        [@ocaml.doc
          "The unique identifier for the user that you want to update."];
      type_: UserType.t option
        [@ocaml.doc
          "The option to indicate the type of user. SUPER_USER\226\128\147 A user with permission to all the functionality and data in FinSpace. APP_USER \226\128\147 A user with specific permissions in FinSpace. The users are assigned permissions by adding them to a permission group."];
      firstName: FirstName.t option
        [@ocaml.doc "The first name of the user."];
      lastName: LastName.t option [@ocaml.doc "The last name of the user."];
      apiAccess: ApiAccess.t option
        [@ocaml.doc
          "The option to indicate whether the user can use the GetProgrammaticAccessCredentials API to obtain credentials that can then be used to access other FinSpace Data API operations. ENABLED \226\128\147 The user has permissions to use the APIs. DISABLED \226\128\147 The user does not have permissions to use any APIs."];
      apiAccessPrincipalArn: RoleArn.t option
        [@ocaml.doc
          "The ARN identifier of an AWS user or role that is allowed to call the GetProgrammaticAccessCredentials API to obtain a credentials token for a specific FinSpace user. This must be an IAM role within your FinSpace account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "UpdateUserRequest"
    let make ?type_ =
      fun ?firstName ->
        fun ?lastName ->
          fun ?apiAccess ->
            fun ?apiAccessPrincipalArn ->
              fun ?clientToken ->
                fun ~userId ->
                  fun () ->
                    {
                      type_;
                      firstName;
                      lastName;
                      apiAccess;
                      apiAccessPrincipalArn;
                      clientToken;
                      userId
                    }
    let to_value x =
      structure_to_value
        [("userId", (Some (UserId.to_value x.userId)));
        ("type", (Option.map x.type_ ~f:UserType.to_value));
        ("firstName", (Option.map x.firstName ~f:FirstName.to_value));
        ("lastName", (Option.map x.lastName ~f:LastName.to_value));
        ("apiAccess", (Option.map x.apiAccess ~f:ApiAccess.to_value));
        ("apiAccessPrincipalArn",
          (Option.map x.apiAccessPrincipalArn ~f:RoleArn.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let apiAccessPrincipalArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "apiAccessPrincipalArn") in
      let apiAccess =
        (Option.map ~f:ApiAccess.of_xml) (Xml.child xml_arg0 "apiAccess") in
      let lastName =
        (Option.map ~f:LastName.of_xml) (Xml.child xml_arg0 "lastName") in
      let firstName =
        (Option.map ~f:FirstName.of_xml) (Xml.child xml_arg0 "firstName") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "type") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ?clientToken ?apiAccessPrincipalArn ?apiAccess ?lastName
        ?firstName ?type_ ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let apiAccessPrincipalArn =
        field_map json__ "apiAccessPrincipalArn" RoleArn.of_json in
      let apiAccess = field_map json__ "apiAccess" ApiAccess.of_json in
      let lastName = field_map json__ "lastName" LastName.of_json in
      let firstName = field_map json__ "firstName" FirstName.of_json in
      let type_ = field_map json__ "type" UserType.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ?clientToken ?apiAccessPrincipalArn ?apiAccess ?lastName
        ?firstName ?type_ ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the details of the specified user. You cannot update the userId for a user."]
module UpdatePermissionGroupResponse =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc
          "The unique identifier for the updated permission group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroupId = fun () -> { permissionGroupId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the details of a permission group. You cannot modify a permissionGroupID."]
module UpdatePermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc
          "The unique identifier for the permission group to update."];
      name: PermissionGroupName.t option
        [@ocaml.doc "The name of the permission group."];
      description: PermissionGroupDescription.t option
        [@ocaml.doc "A brief description for the permission group."];
      applicationPermissions: ApplicationPermissionList.t option
        [@ocaml.doc
          "The permissions that are granted to a specific group for accessing the FinSpace application. When assigning application permissions, be aware that the permission ManageUsersAndGroups allows users to grant themselves or others access to any functionality in their FinSpace environment's application. It should only be granted to trusted users. CreateDataset \226\128\147 Group members can create new datasets. ManageClusters \226\128\147 Group members can manage Apache Spark clusters from FinSpace notebooks. ManageUsersAndGroups \226\128\147 Group members can manage users and permission groups. This is a privileged permission that allows users to grant themselves or others access to any functionality in the application. It should only be granted to trusted users. ManageAttributeSets \226\128\147 Group members can manage attribute sets. ViewAuditData \226\128\147 Group members can view audit data. AccessNotebooks \226\128\147 Group members will have access to FinSpace notebooks. GetTemporaryCredentials \226\128\147 Group members can get temporary API credentials."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "UpdatePermissionGroupRequest"
    let make ?name =
      fun ?description ->
        fun ?applicationPermissions ->
          fun ?clientToken ->
            fun ~permissionGroupId ->
              fun () ->
                {
                  name;
                  description;
                  applicationPermissions;
                  clientToken;
                  permissionGroupId
                }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)));
        ("name", (Option.map x.name ~f:PermissionGroupName.to_value));
        ("description",
          (Option.map x.description ~f:PermissionGroupDescription.to_value));
        ("applicationPermissions",
          (Option.map x.applicationPermissions
             ~f:ApplicationPermissionList.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let applicationPermissions =
        (Option.map ~f:ApplicationPermissionList.of_xml)
          (Xml.child xml_arg0 "applicationPermissions") in
      let description =
        (Option.map ~f:PermissionGroupDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        (Option.map ~f:PermissionGroupName.of_xml)
          (Xml.child xml_arg0 "name") in
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ?clientToken ?applicationPermissions ?description ?name
        ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let applicationPermissions =
        field_map json__ "applicationPermissions"
          ApplicationPermissionList.of_json in
      let description =
        field_map json__ "description" PermissionGroupDescription.of_json in
      let name = field_map json__ "name" PermissionGroupName.of_json in
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?clientToken ?applicationPermissions ?description ?name
        ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Modifies the details of a permission group. You cannot modify a permissionGroupID."]
module UpdateDatasetResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc "The unique identifier for updated Dataset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId = fun () -> { datasetId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from an UpdateDataset operation"]
module UpdateDatasetRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetId: DatasetId.t
        [@ocaml.doc "The unique identifier for the Dataset to update."];
      datasetTitle: DatasetTitle.t
        [@ocaml.doc "A display title for the Dataset."];
      kind: DatasetKind.t
        [@ocaml.doc
          "The format in which the Dataset data is structured. TABULAR \226\128\147 Data is structured in a tabular format. NON_TABULAR \226\128\147 Data is structured in a non-tabular format."];
      datasetDescription: DatasetDescription.t option
        [@ocaml.doc "A description for the Dataset."];
      alias: AliasString.t option
        [@ocaml.doc "The unique resource identifier for a Dataset."];
      schemaDefinition: SchemaUnion.t option
        [@ocaml.doc "Definition for a schema on a tabular Dataset."]}
    let context_ = "UpdateDatasetRequest"
    let make ?clientToken =
      fun ?datasetDescription ->
        fun ?alias ->
          fun ?schemaDefinition ->
            fun ~datasetId ->
              fun ~datasetTitle ->
                fun ~kind ->
                  fun () ->
                    {
                      clientToken;
                      datasetDescription;
                      alias;
                      schemaDefinition;
                      datasetId;
                      datasetTitle;
                      kind
                    }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("datasetTitle", (Some (DatasetTitle.to_value x.datasetTitle)));
        ("kind", (Some (DatasetKind.to_value x.kind)));
        ("datasetDescription",
          (Option.map x.datasetDescription ~f:DatasetDescription.to_value));
        ("alias", (Option.map x.alias ~f:AliasString.to_value));
        ("schemaDefinition",
          (Option.map x.schemaDefinition ~f:SchemaUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaDefinition =
        (Option.map ~f:SchemaUnion.of_xml)
          (Xml.child xml_arg0 "schemaDefinition") in
      let alias =
        (Option.map ~f:AliasString.of_xml) (Xml.child xml_arg0 "alias") in
      let datasetDescription =
        (Option.map ~f:DatasetDescription.of_xml)
          (Xml.child xml_arg0 "datasetDescription") in
      let kind =
        DatasetKind.of_xml (Xml.child_exn ~context:context_ xml_arg0 "kind") in
      let datasetTitle =
        DatasetTitle.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetTitle") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?schemaDefinition ?alias ?datasetDescription ~kind ~datasetTitle
        ~datasetId ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaDefinition =
        field_map json__ "schemaDefinition" SchemaUnion.of_json in
      let alias = field_map json__ "alias" AliasString.of_json in
      let datasetDescription =
        field_map json__ "datasetDescription" DatasetDescription.of_json in
      let kind = field_map_exn json__ "kind" DatasetKind.of_json in
      let datasetTitle =
        field_map_exn json__ "datasetTitle" DatasetTitle.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?schemaDefinition ?alias ?datasetDescription ~kind ~datasetTitle
        ~datasetId ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request for an UpdateDataset operation"]
module UpdateChangesetResponse =
  struct
    type nonrec t =
      {
      changesetId: ChangesetId.t option
        [@ocaml.doc "The unique identifier for the Changeset to update."];
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset in which the Changeset is created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?changesetId =
      fun ?datasetId -> fun () -> { changesetId; datasetId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("changesetId", (Option.map x.changesetId ~f:ChangesetId.to_value));
        ("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      let changesetId =
        (Option.map ~f:ChangesetId.of_xml) (Xml.child xml_arg0 "changesetId") in
      make ?datasetId ?changesetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      let changesetId = field_map json__ "changesetId" ChangesetId.of_json in
      make ?datasetId ?changesetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from a update changeset operation."]
module UpdateChangesetRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset in which the Changeset is created."];
      changesetId: ChangesetId.t
        [@ocaml.doc "The unique identifier for the Changeset to update."];
      sourceParams: SourceParams.t
        [@ocaml.doc
          "Options that define the location of the data being ingested (s3SourcePath) and the source of the changeset (sourceType). Both s3SourcePath and sourceType are required attributes. Here is an example of how you could specify the sourceParams: \"sourceParams\": \\{ \"s3SourcePath\": \"s3://finspace-landing-us-east-2-bk7gcfvitndqa6ebnvys4d/scratch/wr5hh8pwkpqqkxa4sxrmcw/ingestion/equity.csv\", \"sourceType\": \"S3\" \\} The S3 path that you specify must allow the FinSpace role access. To do that, you first need to configure the IAM policy on S3 bucket. For more information, see Loading data from an Amazon S3 Bucket using the FinSpace APIsection."];
      formatParams: FormatParams.t
        [@ocaml.doc
          "Options that define the structure of the source file(s) including the format type (formatType), header row (withHeader), data separation character (separator) and the type of compression (compression). formatType is a required attribute and can have the following values: PARQUET \226\128\147 Parquet source file format. CSV \226\128\147 CSV source file format. JSON \226\128\147 JSON source file format. XML \226\128\147 XML source file format. Here is an example of how you could specify the formatParams: \"formatParams\": \\{ \"formatType\": \"CSV\", \"withHeader\": \"true\", \"separator\": \",\", \"compression\":\"None\" \\} Note that if you only provide formatType as CSV, the rest of the attributes will automatically default to CSV values as following: \\{ \"withHeader\": \"true\", \"separator\": \",\" \\} For more information about supported file formats, see Supported Data Types and File Formats in the FinSpace User Guide."]}
    let context_ = "UpdateChangesetRequest"
    let make ?clientToken =
      fun ~datasetId ->
        fun ~changesetId ->
          fun ~sourceParams ->
            fun ~formatParams ->
              fun () ->
                {
                  clientToken;
                  datasetId;
                  changesetId;
                  sourceParams;
                  formatParams
                }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("changesetId", (Some (ChangesetId.to_value x.changesetId)));
        ("sourceParams", (Some (SourceParams.to_value x.sourceParams)));
        ("formatParams", (Some (FormatParams.to_value x.formatParams)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let formatParams =
        FormatParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "formatParams") in
      let sourceParams =
        SourceParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceParams") in
      let changesetId =
        ChangesetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "changesetId") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ~formatParams ~sourceParams ~changesetId ~datasetId ?clientToken
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let formatParams =
        field_map_exn json__ "formatParams" FormatParams.of_json in
      let sourceParams =
        field_map_exn json__ "sourceParams" SourceParams.of_json in
      let changesetId =
        field_map_exn json__ "changesetId" ChangesetId.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ~formatParams ~sourceParams ~changesetId ~datasetId ?clientToken
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request to update an existing changeset."]
module ResetUserPasswordResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc
          "The unique identifier of the user that a new password is generated for."];
      temporaryPassword: Password.t option
        [@ocaml.doc
          "A randomly generated temporary password for the requested user. This password expires in 7 days."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId =
      fun ?temporaryPassword -> fun () -> { userId; temporaryPassword }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value));
        ("temporaryPassword",
          (Option.map x.temporaryPassword ~f:Password.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let temporaryPassword =
        (Option.map ~f:Password.of_xml)
          (Xml.child xml_arg0 "temporaryPassword") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?temporaryPassword ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let temporaryPassword =
        field_map json__ "temporaryPassword" Password.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      make ?temporaryPassword ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets the password for a specified user ID and generates a temporary one. Only a superuser can reset password for other users. Resetting the password immediately invalidates the previous password associated with the user."]
module ResetUserPasswordRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t
        [@ocaml.doc
          "The unique identifier of the user that a temporary password is requested for."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "ResetUserPasswordRequest"
    let make ?clientToken = fun ~userId -> fun () -> { clientToken; userId }
    let to_value x =
      structure_to_value
        [("userId", (Some (UserId.to_value x.userId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ?clientToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ?clientToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Resets the password for a specified user ID and generates a temporary one. Only a superuser can reset password for other users. Resetting the password immediately invalidates the previous password associated with the user."]
module ListUsersResponse =
  struct
    type nonrec t =
      {
      users: UserList.t option [@ocaml.doc "A list of all the users."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?users = fun ?nextToken -> fun () -> { users; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("users", (Option.map x.users ~f:UserList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let users =
        (Option.map ~f:UserList.of_xml) (Xml.child xml_arg0 "users") in
      make ?nextToken ?users ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let users = field_map json__ "users" UserList.of_json in
      make ?nextToken ?users ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available users in FinSpace."]
module ListUsersRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t
        [@ocaml.doc "The maximum number of results per page."]}
    let context_ = "ListUsersRequest"
    let make ?nextToken =
      fun ~maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Some (ResultLimit.to_value x.maxResults)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        ResultLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.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_exn json__ "maxResults" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ~maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available users in FinSpace."]
module ListUsersByPermissionGroupResponse =
  struct
    type nonrec t =
      {
      users: UserByPermissionGroupList.t option
        [@ocaml.doc
          "Lists details of all users in a specific permission group."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?users = fun ?nextToken -> fun () -> { users; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("users",
           (Option.map x.users ~f:UserByPermissionGroupList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let users =
        (Option.map ~f:UserByPermissionGroupList.of_xml)
          (Xml.child xml_arg0 "users") in
      make ?nextToken ?users ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let users = field_map json__ "users" UserByPermissionGroupList.of_json in
      make ?nextToken ?users ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists details of all the users in a specific permission group."]
module ListUsersByPermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc "The unique identifier for the permission group."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t
        [@ocaml.doc "The maximum number of results per page."]}
    let context_ = "ListUsersByPermissionGroupRequest"
    let make ?nextToken =
      fun ~permissionGroupId ->
        fun ~maxResults ->
          fun () -> { nextToken; permissionGroupId; maxResults }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Some (ResultLimit.to_value x.maxResults)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        ResultLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ~maxResults ?nextToken ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map_exn json__ "maxResults" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ~maxResults ?nextToken ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists details of all the users in a specific permission group."]
module ListPermissionGroupsResponse =
  struct
    type nonrec t =
      {
      permissionGroups: PermissionGroupList.t option
        [@ocaml.doc "A list of all the permission groups."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroups =
      fun ?nextToken -> fun () -> { permissionGroups; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroups",
           (Option.map x.permissionGroups ~f:PermissionGroupList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let permissionGroups =
        (Option.map ~f:PermissionGroupList.of_xml)
          (Xml.child xml_arg0 "permissionGroups") in
      make ?nextToken ?permissionGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let permissionGroups =
        field_map json__ "permissionGroups" PermissionGroupList.of_json in
      make ?nextToken ?permissionGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available permission groups in FinSpace."]
module ListPermissionGroupsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t
        [@ocaml.doc "The maximum number of results per page."]}
    let context_ = "ListPermissionGroupsRequest"
    let make ?nextToken =
      fun ~maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Some (ResultLimit.to_value x.maxResults)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        ResultLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.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_exn json__ "maxResults" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ~maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available permission groups in FinSpace."]
module ListPermissionGroupsByUserResponse =
  struct
    type nonrec t =
      {
      permissionGroups: PermissionGroupByUserList.t option
        [@ocaml.doc "A list of returned permission groups."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroups =
      fun ?nextToken -> fun () -> { permissionGroups; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroups",
           (Option.map x.permissionGroups
              ~f:PermissionGroupByUserList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let permissionGroups =
        (Option.map ~f:PermissionGroupByUserList.of_xml)
          (Xml.child xml_arg0 "permissionGroups") in
      make ?nextToken ?permissionGroups ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let permissionGroups =
        field_map json__ "permissionGroups" PermissionGroupByUserList.of_json in
      make ?nextToken ?permissionGroups ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the permission groups that are associated with a specific user."]
module ListPermissionGroupsByUserRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t [@ocaml.doc "The unique identifier for the user."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t
        [@ocaml.doc "The maximum number of results per page."]}
    let context_ = "ListPermissionGroupsByUserRequest"
    let make ?nextToken =
      fun ~userId ->
        fun ~maxResults -> fun () -> { nextToken; userId; maxResults }
    let to_value x =
      structure_to_value
        [("userId", (Some (UserId.to_value x.userId)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Some (ResultLimit.to_value x.maxResults)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        ResultLimit.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ~maxResults ?nextToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map_exn json__ "maxResults" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ~maxResults ?nextToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists all the permission groups that are associated with a specific user."]
module ListDatasetsResponse =
  struct
    type nonrec t =
      {
      datasets: DatasetList.t option [@ocaml.doc "List of Datasets."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasets = fun ?nextToken -> fun () -> { datasets; nextToken }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasets", (Option.map x.datasets ~f:DatasetList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let datasets =
        (Option.map ~f:DatasetList.of_xml) (Xml.child xml_arg0 "datasets") in
      make ?nextToken ?datasets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let datasets = field_map json__ "datasets" DatasetList.of_json in
      make ?nextToken ?datasets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for the ListDatasets operation"]
module ListDatasetsRequest =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t option
        [@ocaml.doc "The maximum number of results per page."]}
    let make ?nextToken =
      fun ?maxResults -> fun () -> { nextToken; maxResults }
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:ResultLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultLimit.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.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" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?maxResults ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for the ListDatasets operation."]
module ListDataViewsResponse =
  struct
    type nonrec t =
      {
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      dataViews: DataViewList.t option [@ocaml.doc "A list of Dataviews."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?nextToken =
      fun ?dataViews -> fun () -> { nextToken; dataViews }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("dataViews", (Option.map x.dataViews ~f:DataViewList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataViews =
        (Option.map ~f:DataViewList.of_xml) (Xml.child xml_arg0 "dataViews") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      make ?dataViews ?nextToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataViews = field_map json__ "dataViews" DataViewList.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      make ?dataViews ?nextToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Lists all available Dataviews for a Dataset."]
module ListDataViewsRequest =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier of the Dataset for which to retrieve Dataviews."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."];
      maxResults: ResultLimit.t option
        [@ocaml.doc "The maximum number of results per page."]}
    let context_ = "ListDataViewsRequest"
    let make ?nextToken =
      fun ?maxResults ->
        fun ~datasetId -> fun () -> { nextToken; maxResults; datasetId }
    let to_value x =
      structure_to_value
        [("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("maxResults", (Option.map x.maxResults ~f:ResultLimit.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let maxResults =
        (Option.map ~f:ResultLimit.of_xml) (Xml.child xml_arg0 "maxResults") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      make ?maxResults ?nextToken ~datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let maxResults = field_map json__ "maxResults" ResultLimit.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      make ?maxResults ?nextToken ~datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for a list data views."]
module ListChangesetsResponse =
  struct
    type nonrec t =
      {
      changesets: ChangesetList.t option
        [@ocaml.doc "List of Changesets found."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?changesets =
      fun ?nextToken -> fun () -> { changesets; nextToken }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("changesets", (Option.map x.changesets ~f:ChangesetList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let changesets =
        (Option.map ~f:ChangesetList.of_xml)
          (Xml.child xml_arg0 "changesets") in
      make ?nextToken ?changesets ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let changesets = field_map json__ "changesets" ChangesetList.of_json in
      make ?nextToken ?changesets ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Response to ListChangesetsResponse. This returns a list of dataset changesets that match the query criteria."]
module ListChangesetsRequest =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset to which the Changeset belongs."];
      maxResults: ResultLimit.t option
        [@ocaml.doc "The maximum number of results per page."];
      nextToken: PaginationToken.t option
        [@ocaml.doc
          "A token that indicates where a results page should begin."]}
    let context_ = "ListChangesetsRequest"
    let make ?maxResults =
      fun ?nextToken ->
        fun ~datasetId -> fun () -> { maxResults; nextToken; datasetId }
    let to_value x =
      structure_to_value
        [("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("maxResults", (Option.map x.maxResults ~f:ResultLimit.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let maxResults =
        (Option.map ~f:ResultLimit.of_xml) (Xml.child xml_arg0 "maxResults") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      make ?nextToken ?maxResults ~datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let maxResults = field_map json__ "maxResults" ResultLimit.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      make ?nextToken ?maxResults ~datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request to ListChangesetsRequest. It exposes minimal query filters."]
module GetWorkingLocationResponse =
  struct
    type nonrec t =
      {
      s3Uri: StringValueLength1to1024.t option
        [@ocaml.doc "Returns the Amazon S3 URI for the working location."];
      s3Path: StringValueLength1to1024.t option
        [@ocaml.doc "Returns the Amazon S3 Path for the working location."];
      s3Bucket: StringValueLength1to63.t option
        [@ocaml.doc
          "Returns the Amazon S3 bucket name for the working location."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?s3Uri =
      fun ?s3Path -> fun ?s3Bucket -> fun () -> { s3Uri; s3Path; s3Bucket }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("s3Uri", (Option.map x.s3Uri ~f:StringValueLength1to1024.to_value));
        ("s3Path",
          (Option.map x.s3Path ~f:StringValueLength1to1024.to_value));
        ("s3Bucket",
          (Option.map x.s3Bucket ~f:StringValueLength1to63.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Bucket =
        (Option.map ~f:StringValueLength1to63.of_xml)
          (Xml.child xml_arg0 "s3Bucket") in
      let s3Path =
        (Option.map ~f:StringValueLength1to1024.of_xml)
          (Xml.child xml_arg0 "s3Path") in
      let s3Uri =
        (Option.map ~f:StringValueLength1to1024.of_xml)
          (Xml.child xml_arg0 "s3Uri") in
      make ?s3Bucket ?s3Path ?s3Uri ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Bucket =
        field_map json__ "s3Bucket" StringValueLength1to63.of_json in
      let s3Path = field_map json__ "s3Path" StringValueLength1to1024.of_json in
      let s3Uri = field_map json__ "s3Uri" StringValueLength1to1024.of_json in
      make ?s3Bucket ?s3Path ?s3Uri ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A temporary Amazon S3 location, where you can copy your files from a source location to stage or use as a scratch space in FinSpace notebook."]
module GetWorkingLocationRequest =
  struct
    type nonrec t =
      {
      locationType: LocationType.t option
        [@ocaml.doc
          "Specify the type of the working location. SAGEMAKER \226\128\147 Use the Amazon S3 location as a temporary location to store data content when working with FinSpace Notebooks that run on SageMaker studio. INGESTION \226\128\147 Use the Amazon S3 location as a staging location to copy your data content and then use the location with the Changeset creation operation."]}
    let make ?locationType = fun () -> { locationType }
    let to_value x =
      structure_to_value
        [("locationType",
           (Option.map x.locationType ~f:LocationType.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let locationType =
        (Option.map ~f:LocationType.of_xml)
          (Xml.child xml_arg0 "locationType") in
      make ?locationType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let locationType = field_map json__ "locationType" LocationType.of_json in
      make ?locationType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A temporary Amazon S3 location, where you can copy your files from a source location to stage or use as a scratch space in FinSpace notebook."]
module GetUserResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the user that is retrieved."];
      status: UserStatus.t option
        [@ocaml.doc
          "The current status of the user. CREATING \226\128\147 The creation is in progress. ENABLED \226\128\147 The user is created and is currently active. DISABLED \226\128\147 The user is currently inactive."];
      firstName: FirstName.t option
        [@ocaml.doc "The first name of the user."];
      lastName: LastName.t option [@ocaml.doc "The last name of the user."];
      emailAddress: Email.t option
        [@ocaml.doc "The email address that is associated with the user."];
      type_: UserType.t option
        [@ocaml.doc
          "Indicates the type of user. SUPER_USER \226\128\147 A user with permission to all the functionality and data in FinSpace. APP_USER \226\128\147 A user with specific permissions in FinSpace. The users are assigned permissions by adding them to a permission group."];
      apiAccess: ApiAccess.t option
        [@ocaml.doc
          "Indicates whether the user can use the GetProgrammaticAccessCredentials API to obtain credentials that can then be used to access other FinSpace Data API operations. ENABLED \226\128\147 The user has permissions to use the APIs. DISABLED \226\128\147 The user does not have permissions to use any APIs."];
      apiAccessPrincipalArn: RoleArn.t option
        [@ocaml.doc
          "The ARN identifier of an AWS user or role that is allowed to call the GetProgrammaticAccessCredentials API to obtain a credentials token for a specific FinSpace user. This must be an IAM role within your FinSpace account."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the user was created in FinSpace. The value is determined as epoch time in milliseconds."];
      lastEnabledTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user was activated. The value is determined as epoch time in milliseconds."];
      lastDisabledTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user was deactivated. The value is determined as epoch time in milliseconds."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time the user details were updated. The value is determined as epoch time in milliseconds."];
      lastLoginTime: TimestampEpoch.t option
        [@ocaml.doc
          "Describes the last time that the user logged into their account. The value is determined as epoch time in milliseconds."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId =
      fun ?status ->
        fun ?firstName ->
          fun ?lastName ->
            fun ?emailAddress ->
              fun ?type_ ->
                fun ?apiAccess ->
                  fun ?apiAccessPrincipalArn ->
                    fun ?createTime ->
                      fun ?lastEnabledTime ->
                        fun ?lastDisabledTime ->
                          fun ?lastModifiedTime ->
                            fun ?lastLoginTime ->
                              fun () ->
                                {
                                  userId;
                                  status;
                                  firstName;
                                  lastName;
                                  emailAddress;
                                  type_;
                                  apiAccess;
                                  apiAccessPrincipalArn;
                                  createTime;
                                  lastEnabledTime;
                                  lastDisabledTime;
                                  lastModifiedTime;
                                  lastLoginTime
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value));
        ("status", (Option.map x.status ~f:UserStatus.to_value));
        ("firstName", (Option.map x.firstName ~f:FirstName.to_value));
        ("lastName", (Option.map x.lastName ~f:LastName.to_value));
        ("emailAddress", (Option.map x.emailAddress ~f:Email.to_value));
        ("type", (Option.map x.type_ ~f:UserType.to_value));
        ("apiAccess", (Option.map x.apiAccess ~f:ApiAccess.to_value));
        ("apiAccessPrincipalArn",
          (Option.map x.apiAccessPrincipalArn ~f:RoleArn.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastEnabledTime",
          (Option.map x.lastEnabledTime ~f:TimestampEpoch.to_value));
        ("lastDisabledTime",
          (Option.map x.lastDisabledTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("lastLoginTime",
          (Option.map x.lastLoginTime ~f:TimestampEpoch.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lastLoginTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastLoginTime") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let lastDisabledTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastDisabledTime") in
      let lastEnabledTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastEnabledTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let apiAccessPrincipalArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "apiAccessPrincipalArn") in
      let apiAccess =
        (Option.map ~f:ApiAccess.of_xml) (Xml.child xml_arg0 "apiAccess") in
      let type_ = (Option.map ~f:UserType.of_xml) (Xml.child xml_arg0 "type") in
      let emailAddress =
        (Option.map ~f:Email.of_xml) (Xml.child xml_arg0 "emailAddress") in
      let lastName =
        (Option.map ~f:LastName.of_xml) (Xml.child xml_arg0 "lastName") in
      let firstName =
        (Option.map ~f:FirstName.of_xml) (Xml.child xml_arg0 "firstName") in
      let status =
        (Option.map ~f:UserStatus.of_xml) (Xml.child xml_arg0 "status") in
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?lastLoginTime ?lastModifiedTime ?lastDisabledTime
        ?lastEnabledTime ?createTime ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lastLoginTime =
        field_map json__ "lastLoginTime" TimestampEpoch.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let lastDisabledTime =
        field_map json__ "lastDisabledTime" TimestampEpoch.of_json in
      let lastEnabledTime =
        field_map json__ "lastEnabledTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let apiAccessPrincipalArn =
        field_map json__ "apiAccessPrincipalArn" RoleArn.of_json in
      let apiAccess = field_map json__ "apiAccess" ApiAccess.of_json in
      let type_ = field_map json__ "type" UserType.of_json in
      let emailAddress = field_map json__ "emailAddress" Email.of_json in
      let lastName = field_map json__ "lastName" LastName.of_json in
      let firstName = field_map json__ "firstName" FirstName.of_json in
      let status = field_map json__ "status" UserStatus.of_json in
      let userId = field_map json__ "userId" UserId.of_json in
      make ?lastLoginTime ?lastModifiedTime ?lastDisabledTime
        ?lastEnabledTime ?createTime ?apiAccessPrincipalArn ?apiAccess ?type_
        ?emailAddress ?lastName ?firstName ?status ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details for a specific user."]
module GetUserRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t
        [@ocaml.doc "The unique identifier of the user to get data for."]}
    let context_ = "GetUserRequest"
    let make ~userId = fun () -> { userId }
    let to_value x =
      structure_to_value [("userId", (Some (UserId.to_value x.userId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves details for a specific user."]
module GetProgrammaticAccessCredentialsResponse =
  struct
    type nonrec t =
      {
      credentials: Credentials.t option
        [@ocaml.doc "Returns the programmatic credentials."];
      durationInMinutes: SessionDuration.t option
        [@ocaml.doc
          "Returns the duration in which the credentials will remain valid."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?credentials =
      fun ?durationInMinutes -> fun () -> { credentials; durationInMinutes }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("credentials", (Option.map x.credentials ~f:Credentials.to_value));
        ("durationInMinutes",
          (Option.map x.durationInMinutes ~f:SessionDuration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let durationInMinutes =
        (Option.map ~f:SessionDuration.of_xml)
          (Xml.child xml_arg0 "durationInMinutes") in
      let credentials =
        (Option.map ~f:Credentials.of_xml) (Xml.child xml_arg0 "credentials") in
      make ?durationInMinutes ?credentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let durationInMinutes =
        field_map json__ "durationInMinutes" SessionDuration.of_json in
      let credentials = field_map json__ "credentials" Credentials.of_json in
      make ?durationInMinutes ?credentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for GetProgrammaticAccessCredentials operation"]
module GetProgrammaticAccessCredentialsRequest =
  struct
    type nonrec t =
      {
      durationInMinutes: SessionDuration.t option
        [@ocaml.doc
          "The time duration in which the credentials remain valid."];
      environmentId: IdType.t
        [@ocaml.doc "The FinSpace environment identifier."]}
    let context_ = "GetProgrammaticAccessCredentialsRequest"
    let make ?durationInMinutes =
      fun ~environmentId -> fun () -> { durationInMinutes; environmentId }
    let to_value x =
      structure_to_value
        [("durationInMinutes",
           (Option.map x.durationInMinutes ~f:SessionDuration.to_value));
        ("environmentId", (Some (IdType.to_value x.environmentId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let environmentId =
        IdType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "environmentId") in
      let durationInMinutes =
        (Option.map ~f:SessionDuration.of_xml)
          (Xml.child xml_arg0 "durationInMinutes") in
      make ~environmentId ?durationInMinutes ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let environmentId = field_map_exn json__ "environmentId" IdType.of_json in
      let durationInMinutes =
        field_map json__ "durationInMinutes" SessionDuration.of_json in
      make ~environmentId ?durationInMinutes ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for GetProgrammaticAccessCredentials operation"]
module GetPermissionGroupResponse =
  struct
    type nonrec t = {
      permissionGroup: PermissionGroup.t option }
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroup = fun () -> { permissionGroup }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroup",
           (Option.map x.permissionGroup ~f:PermissionGroup.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissionGroup =
        (Option.map ~f:PermissionGroup.of_xml)
          (Xml.child xml_arg0 "permissionGroup") in
      make ?permissionGroup ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissionGroup =
        field_map json__ "permissionGroup" PermissionGroup.of_json in
      make ?permissionGroup ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a specific permission group."]
module GetPermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc "The unique identifier for the permission group."]}
    let context_ = "GetPermissionGroupRequest"
    let make ~permissionGroupId = fun () -> { permissionGroupId }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the details of a specific permission group."]
module GetExternalDataViewAccessDetailsResponse =
  struct
    type nonrec t =
      {
      credentials: AwsCredentials.t option
        [@ocaml.doc
          "The credentials required to access the external Dataview from the S3 location."];
      s3Location: S3Location.t option
        [@ocaml.doc "The location where the external Dataview is stored."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?credentials =
      fun ?s3Location -> fun () -> { credentials; s3Location }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("credentials",
           (Option.map x.credentials ~f:AwsCredentials.to_value));
        ("s3Location", (Option.map x.s3Location ~f:S3Location.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let s3Location =
        (Option.map ~f:S3Location.of_xml) (Xml.child xml_arg0 "s3Location") in
      let credentials =
        (Option.map ~f:AwsCredentials.of_xml)
          (Xml.child xml_arg0 "credentials") in
      make ?s3Location ?credentials ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let s3Location = field_map json__ "s3Location" S3Location.of_json in
      let credentials = field_map json__ "credentials" AwsCredentials.of_json in
      make ?s3Location ?credentials ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the credentials to access the external Dataview from an S3 location. To call this API: You must retrieve the programmatic credentials. You must be a member of a FinSpace user group, where the dataset that you want to access has Read Dataset Data permissions."]
module GetExternalDataViewAccessDetailsRequest =
  struct
    type nonrec t =
      {
      dataViewId: DataViewId.t
        [@ocaml.doc
          "The unique identifier for the Dataview that you want to access."];
      datasetId: DatasetId.t
        [@ocaml.doc "The unique identifier for the Dataset."]}
    let context_ = "GetExternalDataViewAccessDetailsRequest"
    let make ~dataViewId =
      fun ~datasetId -> fun () -> { dataViewId; datasetId }
    let to_value x =
      structure_to_value
        [("dataviewId", (Some (DataViewId.to_value x.dataViewId)));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let dataViewId =
        DataViewId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dataviewId") in
      make ~datasetId ~dataViewId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let dataViewId = field_map_exn json__ "dataViewId" DataViewId.of_json in
      make ~datasetId ~dataViewId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Returns the credentials to access the external Dataview from an S3 location. To call this API: You must retrieve the programmatic credentials. You must be a member of a FinSpace user group, where the dataset that you want to access has Read Dataset Data permissions."]
module GetDatasetResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc "The unique identifier for a Dataset."];
      datasetArn: DatasetArn.t option
        [@ocaml.doc "The ARN identifier of the Dataset."];
      datasetTitle: DatasetTitle.t option
        [@ocaml.doc "Display title for a Dataset."];
      kind: DatasetKind.t option
        [@ocaml.doc
          "The format in which Dataset data is structured. TABULAR \226\128\147 Data is structured in a tabular format. NON_TABULAR \226\128\147 Data is structured in a non-tabular format."];
      datasetDescription: DatasetDescription.t option
        [@ocaml.doc "A description of the Dataset."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Dataset was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "The last time that the Dataset was modified. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      schemaDefinition: SchemaUnion.t option
        [@ocaml.doc "Definition for a schema on a tabular Dataset."];
      alias: AliasString.t option
        [@ocaml.doc "The unique resource identifier for a Dataset."];
      status: DatasetStatus.t option
        [@ocaml.doc
          "Status of the Dataset creation. PENDING \226\128\147 Dataset is pending creation. FAILED \226\128\147 Dataset creation has failed. SUCCESS \226\128\147 Dataset creation has succeeded. RUNNING \226\128\147 Dataset creation is running."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId =
      fun ?datasetArn ->
        fun ?datasetTitle ->
          fun ?kind ->
            fun ?datasetDescription ->
              fun ?createTime ->
                fun ?lastModifiedTime ->
                  fun ?schemaDefinition ->
                    fun ?alias ->
                      fun ?status ->
                        fun () ->
                          {
                            datasetId;
                            datasetArn;
                            datasetTitle;
                            kind;
                            datasetDescription;
                            createTime;
                            lastModifiedTime;
                            schemaDefinition;
                            alias;
                            status
                          }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("datasetArn", (Option.map x.datasetArn ~f:DatasetArn.to_value));
        ("datasetTitle",
          (Option.map x.datasetTitle ~f:DatasetTitle.to_value));
        ("kind", (Option.map x.kind ~f:DatasetKind.to_value));
        ("datasetDescription",
          (Option.map x.datasetDescription ~f:DatasetDescription.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("schemaDefinition",
          (Option.map x.schemaDefinition ~f:SchemaUnion.to_value));
        ("alias", (Option.map x.alias ~f:AliasString.to_value));
        ("status", (Option.map x.status ~f:DatasetStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DatasetStatus.of_xml) (Xml.child xml_arg0 "status") in
      let alias =
        (Option.map ~f:AliasString.of_xml) (Xml.child xml_arg0 "alias") in
      let schemaDefinition =
        (Option.map ~f:SchemaUnion.of_xml)
          (Xml.child xml_arg0 "schemaDefinition") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let datasetDescription =
        (Option.map ~f:DatasetDescription.of_xml)
          (Xml.child xml_arg0 "datasetDescription") in
      let kind =
        (Option.map ~f:DatasetKind.of_xml) (Xml.child xml_arg0 "kind") in
      let datasetTitle =
        (Option.map ~f:DatasetTitle.of_xml)
          (Xml.child xml_arg0 "datasetTitle") in
      let datasetArn =
        (Option.map ~f:DatasetArn.of_xml) (Xml.child xml_arg0 "datasetArn") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?status ?alias ?schemaDefinition ?lastModifiedTime ?createTime
        ?datasetDescription ?kind ?datasetTitle ?datasetArn ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" DatasetStatus.of_json in
      let alias = field_map json__ "alias" AliasString.of_json in
      let schemaDefinition =
        field_map json__ "schemaDefinition" SchemaUnion.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let datasetDescription =
        field_map json__ "datasetDescription" DatasetDescription.of_json in
      let kind = field_map json__ "kind" DatasetKind.of_json in
      let datasetTitle = field_map json__ "datasetTitle" DatasetTitle.of_json in
      let datasetArn = field_map json__ "datasetArn" DatasetArn.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?status ?alias ?schemaDefinition ?lastModifiedTime ?createTime
        ?datasetDescription ?kind ?datasetTitle ?datasetArn ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for the GetDataset operation"]
module GetDatasetRequest =
  struct
    type nonrec t =
      {
      datasetId: StringValueLength1to255.t
        [@ocaml.doc "The unique identifier for a Dataset."]}
    let context_ = "GetDatasetRequest"
    let make ~datasetId = fun () -> { datasetId }
    let to_value x =
      structure_to_value
        [("datasetId", (Some (StringValueLength1to255.to_value x.datasetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        StringValueLength1to255.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      make ~datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId =
        field_map_exn json__ "datasetId" StringValueLength1to255.of_json in
      make ~datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for the GetDataset operation."]
module GetDataViewResponse =
  struct
    type nonrec t =
      {
      autoUpdate: Boolean.t option
        [@ocaml.doc
          "Flag to indicate Dataview should be updated automatically."];
      partitionColumns: PartitionColumnList.t option
        [@ocaml.doc "Ordered set of column names used to partition data."];
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier for the Dataset used in the Dataview."];
      asOfTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Time range to use for the Dataview. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      errorInfo: DataViewErrorInfo.t option
        [@ocaml.doc
          "Information about an error that occurred for the Dataview."];
      lastModifiedTime: TimestampEpoch.t option
        [@ocaml.doc
          "The last time that a Dataview was modified. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Dataview was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      sortColumns: SortColumnList.t option
        [@ocaml.doc "Columns to be used for sorting the data."];
      dataViewId: DataViewId.t option
        [@ocaml.doc "The unique identifier for the Dataview."];
      dataViewArn: DataViewArn.t option
        [@ocaml.doc "The ARN identifier of the Dataview."];
      destinationTypeParams: DataViewDestinationTypeParams.t option
        [@ocaml.doc
          "Options that define the destination type for the Dataview."];
      status: DataViewStatus.t option
        [@ocaml.doc
          "The status of a Dataview creation. RUNNING \226\128\147 Dataview creation is running. STARTING \226\128\147 Dataview creation is starting. FAILED \226\128\147 Dataview creation has failed. CANCELLED \226\128\147 Dataview creation has been cancelled. TIMEOUT \226\128\147 Dataview creation has timed out. SUCCESS \226\128\147 Dataview creation has succeeded. PENDING \226\128\147 Dataview creation is pending. FAILED_CLEANUP_FAILED \226\128\147 Dataview creation failed and resource cleanup failed."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?autoUpdate =
      fun ?partitionColumns ->
        fun ?datasetId ->
          fun ?asOfTimestamp ->
            fun ?errorInfo ->
              fun ?lastModifiedTime ->
                fun ?createTime ->
                  fun ?sortColumns ->
                    fun ?dataViewId ->
                      fun ?dataViewArn ->
                        fun ?destinationTypeParams ->
                          fun ?status ->
                            fun () ->
                              {
                                autoUpdate;
                                partitionColumns;
                                datasetId;
                                asOfTimestamp;
                                errorInfo;
                                lastModifiedTime;
                                createTime;
                                sortColumns;
                                dataViewId;
                                dataViewArn;
                                destinationTypeParams;
                                status
                              }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("autoUpdate", (Option.map x.autoUpdate ~f:Boolean.to_value));
        ("partitionColumns",
          (Option.map x.partitionColumns ~f:PartitionColumnList.to_value));
        ("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("asOfTimestamp",
          (Option.map x.asOfTimestamp ~f:TimestampEpoch.to_value));
        ("errorInfo", (Option.map x.errorInfo ~f:DataViewErrorInfo.to_value));
        ("lastModifiedTime",
          (Option.map x.lastModifiedTime ~f:TimestampEpoch.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("sortColumns",
          (Option.map x.sortColumns ~f:SortColumnList.to_value));
        ("dataViewId", (Option.map x.dataViewId ~f:DataViewId.to_value));
        ("dataViewArn", (Option.map x.dataViewArn ~f:DataViewArn.to_value));
        ("destinationTypeParams",
          (Option.map x.destinationTypeParams
             ~f:DataViewDestinationTypeParams.to_value));
        ("status", (Option.map x.status ~f:DataViewStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let status =
        (Option.map ~f:DataViewStatus.of_xml) (Xml.child xml_arg0 "status") in
      let destinationTypeParams =
        (Option.map ~f:DataViewDestinationTypeParams.of_xml)
          (Xml.child xml_arg0 "destinationTypeParams") in
      let dataViewArn =
        (Option.map ~f:DataViewArn.of_xml) (Xml.child xml_arg0 "dataViewArn") in
      let dataViewId =
        (Option.map ~f:DataViewId.of_xml) (Xml.child xml_arg0 "dataViewId") in
      let sortColumns =
        (Option.map ~f:SortColumnList.of_xml)
          (Xml.child xml_arg0 "sortColumns") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let lastModifiedTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "lastModifiedTime") in
      let errorInfo =
        (Option.map ~f:DataViewErrorInfo.of_xml)
          (Xml.child xml_arg0 "errorInfo") in
      let asOfTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "asOfTimestamp") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      let partitionColumns =
        (Option.map ~f:PartitionColumnList.of_xml)
          (Xml.child xml_arg0 "partitionColumns") in
      let autoUpdate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "autoUpdate") in
      make ?status ?destinationTypeParams ?dataViewArn ?dataViewId
        ?sortColumns ?createTime ?lastModifiedTime ?errorInfo ?asOfTimestamp
        ?datasetId ?partitionColumns ?autoUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let status = field_map json__ "status" DataViewStatus.of_json in
      let destinationTypeParams =
        field_map json__ "destinationTypeParams"
          DataViewDestinationTypeParams.of_json in
      let dataViewArn = field_map json__ "dataViewArn" DataViewArn.of_json in
      let dataViewId = field_map json__ "dataViewId" DataViewId.of_json in
      let sortColumns = field_map json__ "sortColumns" SortColumnList.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let lastModifiedTime =
        field_map json__ "lastModifiedTime" TimestampEpoch.of_json in
      let errorInfo = field_map json__ "errorInfo" DataViewErrorInfo.of_json in
      let asOfTimestamp =
        field_map json__ "asOfTimestamp" TimestampEpoch.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      let partitionColumns =
        field_map json__ "partitionColumns" PartitionColumnList.of_json in
      let autoUpdate = field_map json__ "autoUpdate" Boolean.of_json in
      make ?status ?destinationTypeParams ?dataViewArn ?dataViewId
        ?sortColumns ?createTime ?lastModifiedTime ?errorInfo ?asOfTimestamp
        ?datasetId ?partitionColumns ?autoUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Response from retrieving a dataview, which includes details on the target database and table name"]
module GetDataViewRequest =
  struct
    type nonrec t =
      {
      dataViewId: DataViewId.t
        [@ocaml.doc "The unique identifier for the Dataview."];
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier for the Dataset used in the Dataview."]}
    let context_ = "GetDataViewRequest"
    let make ~dataViewId =
      fun ~datasetId -> fun () -> { dataViewId; datasetId }
    let to_value x =
      structure_to_value
        [("dataviewId", (Some (DataViewId.to_value x.dataViewId)));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let dataViewId =
        DataViewId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "dataviewId") in
      make ~datasetId ~dataViewId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let dataViewId = field_map_exn json__ "dataViewId" DataViewId.of_json in
      make ~datasetId ~dataViewId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Request for retrieving a data view detail. Grouped / accessible within a dataset by its dataset id."]
module GetChangesetResponse =
  struct
    type nonrec t =
      {
      changesetId: ChangesetId.t option
        [@ocaml.doc "The unique identifier for a Changeset."];
      changesetArn: ChangesetArn.t option
        [@ocaml.doc "The ARN identifier of the Changeset."];
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset where the Changeset is created."];
      changeType: ChangeType.t option
        [@ocaml.doc
          "Type that indicates how a Changeset is applied to a Dataset. REPLACE \226\128\147 Changeset is considered as a replacement to all prior loaded Changesets. APPEND \226\128\147 Changeset is considered as an addition to the end of all prior loaded Changesets. MODIFY \226\128\147 Changeset is considered as a replacement to a specific prior ingested Changeset."];
      sourceParams: SourceParams.t option
        [@ocaml.doc
          "Options that define the location of the data being ingested."];
      formatParams: FormatParams.t option
        [@ocaml.doc "Structure of the source file(s)."];
      createTime: TimestampEpoch.t option
        [@ocaml.doc
          "The timestamp at which the Changeset was created in FinSpace. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      status: IngestionStatus.t option
        [@ocaml.doc "The status of Changeset creation operation."];
      errorInfo: ChangesetErrorInfo.t option
        [@ocaml.doc "The structure with error messages."];
      activeUntilTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Time until which the Changeset is active. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      activeFromTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Beginning time from which the Changeset is active. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      updatesChangesetId: ChangesetId.t option
        [@ocaml.doc
          "The unique identifier of the Changeset that is being updated."];
      updatedByChangesetId: ChangesetId.t option
        [@ocaml.doc "The unique identifier of the updated Changeset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?changesetId =
      fun ?changesetArn ->
        fun ?datasetId ->
          fun ?changeType ->
            fun ?sourceParams ->
              fun ?formatParams ->
                fun ?createTime ->
                  fun ?status ->
                    fun ?errorInfo ->
                      fun ?activeUntilTimestamp ->
                        fun ?activeFromTimestamp ->
                          fun ?updatesChangesetId ->
                            fun ?updatedByChangesetId ->
                              fun () ->
                                {
                                  changesetId;
                                  changesetArn;
                                  datasetId;
                                  changeType;
                                  sourceParams;
                                  formatParams;
                                  createTime;
                                  status;
                                  errorInfo;
                                  activeUntilTimestamp;
                                  activeFromTimestamp;
                                  updatesChangesetId;
                                  updatedByChangesetId
                                }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("changesetId", (Option.map x.changesetId ~f:ChangesetId.to_value));
        ("changesetArn",
          (Option.map x.changesetArn ~f:ChangesetArn.to_value));
        ("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("changeType", (Option.map x.changeType ~f:ChangeType.to_value));
        ("sourceParams",
          (Option.map x.sourceParams ~f:SourceParams.to_value));
        ("formatParams",
          (Option.map x.formatParams ~f:FormatParams.to_value));
        ("createTime", (Option.map x.createTime ~f:TimestampEpoch.to_value));
        ("status", (Option.map x.status ~f:IngestionStatus.to_value));
        ("errorInfo",
          (Option.map x.errorInfo ~f:ChangesetErrorInfo.to_value));
        ("activeUntilTimestamp",
          (Option.map x.activeUntilTimestamp ~f:TimestampEpoch.to_value));
        ("activeFromTimestamp",
          (Option.map x.activeFromTimestamp ~f:TimestampEpoch.to_value));
        ("updatesChangesetId",
          (Option.map x.updatesChangesetId ~f:ChangesetId.to_value));
        ("updatedByChangesetId",
          (Option.map x.updatedByChangesetId ~f:ChangesetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let updatedByChangesetId =
        (Option.map ~f:ChangesetId.of_xml)
          (Xml.child xml_arg0 "updatedByChangesetId") in
      let updatesChangesetId =
        (Option.map ~f:ChangesetId.of_xml)
          (Xml.child xml_arg0 "updatesChangesetId") in
      let activeFromTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "activeFromTimestamp") in
      let activeUntilTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "activeUntilTimestamp") in
      let errorInfo =
        (Option.map ~f:ChangesetErrorInfo.of_xml)
          (Xml.child xml_arg0 "errorInfo") in
      let status =
        (Option.map ~f:IngestionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let createTime =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "createTime") in
      let formatParams =
        (Option.map ~f:FormatParams.of_xml)
          (Xml.child xml_arg0 "formatParams") in
      let sourceParams =
        (Option.map ~f:SourceParams.of_xml)
          (Xml.child xml_arg0 "sourceParams") in
      let changeType =
        (Option.map ~f:ChangeType.of_xml) (Xml.child xml_arg0 "changeType") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      let changesetArn =
        (Option.map ~f:ChangesetArn.of_xml)
          (Xml.child xml_arg0 "changesetArn") in
      let changesetId =
        (Option.map ~f:ChangesetId.of_xml) (Xml.child xml_arg0 "changesetId") in
      make ?updatedByChangesetId ?updatesChangesetId ?activeFromTimestamp
        ?activeUntilTimestamp ?errorInfo ?status ?createTime ?formatParams
        ?sourceParams ?changeType ?datasetId ?changesetArn ?changesetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let updatedByChangesetId =
        field_map json__ "updatedByChangesetId" ChangesetId.of_json in
      let updatesChangesetId =
        field_map json__ "updatesChangesetId" ChangesetId.of_json in
      let activeFromTimestamp =
        field_map json__ "activeFromTimestamp" TimestampEpoch.of_json in
      let activeUntilTimestamp =
        field_map json__ "activeUntilTimestamp" TimestampEpoch.of_json in
      let errorInfo = field_map json__ "errorInfo" ChangesetErrorInfo.of_json in
      let status = field_map json__ "status" IngestionStatus.of_json in
      let createTime = field_map json__ "createTime" TimestampEpoch.of_json in
      let formatParams = field_map json__ "formatParams" FormatParams.of_json in
      let sourceParams = field_map json__ "sourceParams" SourceParams.of_json in
      let changeType = field_map json__ "changeType" ChangeType.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      let changesetArn = field_map json__ "changesetArn" ChangesetArn.of_json in
      let changesetId = field_map json__ "changesetId" ChangesetId.of_json in
      make ?updatedByChangesetId ?updatesChangesetId ?activeFromTimestamp
        ?activeUntilTimestamp ?errorInfo ?status ?createTime ?formatParams
        ?sourceParams ?changeType ?datasetId ?changesetArn ?changesetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from a describe changeset operation"]
module GetChangesetRequest =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset where the Changeset is created."];
      changesetId: ChangesetId.t
        [@ocaml.doc
          "The unique identifier of the Changeset for which to get data."]}
    let context_ = "GetChangesetRequest"
    let make ~datasetId =
      fun ~changesetId -> fun () -> { datasetId; changesetId }
    let to_value x =
      structure_to_value
        [("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("changesetId", (Some (ChangesetId.to_value x.changesetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changesetId =
        ChangesetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "changesetId") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      make ~changesetId ~datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changesetId =
        field_map_exn json__ "changesetId" ChangesetId.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      make ~changesetId ~datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request to describe a changeset."]
module EnableUserResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the active user."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId = fun () -> { userId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "userId" UserId.of_json in
      make ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows the specified user to access the FinSpace web application and API."]
module EnableUserRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t
        [@ocaml.doc
          "The unique identifier for the user that you want to activate."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "EnableUserRequest"
    let make ?clientToken = fun ~userId -> fun () -> { clientToken; userId }
    let to_value x =
      structure_to_value
        [("userId", (Some (UserId.to_value x.userId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ?clientToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ?clientToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Allows the specified user to access the FinSpace web application and API."]
module DisassociateUserFromPermissionGroupResponse =
  struct
    type nonrec t =
      {
      statusCode: StatusCode.t option
        [@ocaml.doc "The returned status code of the response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statusCode = fun () -> { statusCode }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("statusCode", (Option.map x.statusCode ~f:StatusCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusCode =
        (Option.map ~f:StatusCode.of_xml) (Xml.child xml_arg0 "statusCode") in
      make ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusCode = field_map json__ "statusCode" StatusCode.of_json in
      make ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a user from a permission group."]
module DisassociateUserFromPermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc "The unique identifier for the permission group."];
      userId: UserId.t [@ocaml.doc "The unique identifier for the user."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "DisassociateUserFromPermissionGroupRequest"
    let make ?clientToken =
      fun ~permissionGroupId ->
        fun ~userId -> fun () -> { clientToken; permissionGroupId; userId }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)));
        ("userId", (Some (UserId.to_value x.userId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ?clientToken ~userId ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?clientToken ~userId ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Removes a user from a permission group."]
module DisableUserResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the deactivated user."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId = fun () -> { userId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "userId" UserId.of_json in
      make ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Denies access to the FinSpace web application and API for the specified user."]
module DisableUserRequest =
  struct
    type nonrec t =
      {
      userId: UserId.t
        [@ocaml.doc
          "The unique identifier for the user that you want to deactivate."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "DisableUserRequest"
    let make ?clientToken = fun ~userId -> fun () -> { clientToken; userId }
    let to_value x =
      structure_to_value
        [("userId", (Some (UserId.to_value x.userId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      make ?clientToken ~userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      make ?clientToken ~userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Denies access to the FinSpace web application and API for the specified user."]
module DeletePermissionGroupResponse =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc
          "The unique identifier for the deleted permission group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroupId = fun () -> { permissionGroupId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a permission group. This action is irreversible."]
module DeletePermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc
          "The unique identifier for the permission group that you want to delete."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "DeletePermissionGroupRequest"
    let make ?clientToken =
      fun ~permissionGroupId -> fun () -> { clientToken; permissionGroupId }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ?clientToken ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?clientToken ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Deletes a permission group. This action is irreversible."]
module DeleteDatasetResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc "The unique identifier for the deleted Dataset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId = fun () -> { datasetId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from an DeleteDataset operation"]
module DeleteDatasetRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetId: DatasetId.t
        [@ocaml.doc "The unique identifier of the Dataset to be deleted."]}
    let context_ = "DeleteDatasetRequest"
    let make ?clientToken =
      fun ~datasetId -> fun () -> { clientToken; datasetId }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ~datasetId ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ~datasetId ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request for a DeleteDataset operation."]
module CreateUserResponse =
  struct
    type nonrec t =
      {
      userId: UserId.t option
        [@ocaml.doc "The unique identifier for the user."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?userId = fun () -> { userId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("userId", (Option.map x.userId ~f:UserId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userId =
        (Option.map ~f:UserId.of_xml) (Xml.child xml_arg0 "userId") in
      make ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userId = field_map json__ "userId" UserId.of_json in
      make ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new user in FinSpace."]
module CreateUserRequest =
  struct
    type nonrec t =
      {
      emailAddress: Email.t
        [@ocaml.doc
          "The email address of the user that you want to register. The email address serves as a uniquer identifier for each user and cannot be changed after it's created."];
      type_: UserType.t
        [@ocaml.doc
          "The option to indicate the type of user. Use one of the following options to specify this parameter: SUPER_USER \226\128\147 A user with permission to all the functionality and data in FinSpace. APP_USER \226\128\147 A user with specific permissions in FinSpace. The users are assigned permissions by adding them to a permission group."];
      firstName: FirstName.t option
        [@ocaml.doc "The first name of the user that you want to register."];
      lastName: LastName.t option
        [@ocaml.doc "The last name of the user that you want to register."];
      apiAccess: ApiAccess.t option
        [@ocaml.doc
          "The option to indicate whether the user can use the GetProgrammaticAccessCredentials API to obtain credentials that can then be used to access other FinSpace Data API operations. ENABLED \226\128\147 The user has permissions to use the APIs. DISABLED \226\128\147 The user does not have permissions to use any APIs."];
      apiAccessPrincipalArn: RoleArn.t option
        [@ocaml.doc
          "The ARN identifier of an AWS user or role that is allowed to call the GetProgrammaticAccessCredentials API to obtain a credentials token for a specific FinSpace user. This must be an IAM role within your FinSpace account."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "CreateUserRequest"
    let make ?firstName =
      fun ?lastName ->
        fun ?apiAccess ->
          fun ?apiAccessPrincipalArn ->
            fun ?clientToken ->
              fun ~emailAddress ->
                fun ~type_ ->
                  fun () ->
                    {
                      firstName;
                      lastName;
                      apiAccess;
                      apiAccessPrincipalArn;
                      clientToken;
                      emailAddress;
                      type_
                    }
    let to_value x =
      structure_to_value
        [("emailAddress", (Some (Email.to_value x.emailAddress)));
        ("type", (Some (UserType.to_value x.type_)));
        ("firstName", (Option.map x.firstName ~f:FirstName.to_value));
        ("lastName", (Option.map x.lastName ~f:LastName.to_value));
        ("apiAccess", (Option.map x.apiAccess ~f:ApiAccess.to_value));
        ("apiAccessPrincipalArn",
          (Option.map x.apiAccessPrincipalArn ~f:RoleArn.to_value));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let apiAccessPrincipalArn =
        (Option.map ~f:RoleArn.of_xml)
          (Xml.child xml_arg0 "apiAccessPrincipalArn") in
      let apiAccess =
        (Option.map ~f:ApiAccess.of_xml) (Xml.child xml_arg0 "apiAccess") in
      let lastName =
        (Option.map ~f:LastName.of_xml) (Xml.child xml_arg0 "lastName") in
      let firstName =
        (Option.map ~f:FirstName.of_xml) (Xml.child xml_arg0 "firstName") in
      let type_ =
        UserType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let emailAddress =
        Email.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "emailAddress") in
      make ?clientToken ?apiAccessPrincipalArn ?apiAccess ?lastName
        ?firstName ~type_ ~emailAddress ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let apiAccessPrincipalArn =
        field_map json__ "apiAccessPrincipalArn" RoleArn.of_json in
      let apiAccess = field_map json__ "apiAccess" ApiAccess.of_json in
      let lastName = field_map json__ "lastName" LastName.of_json in
      let firstName = field_map json__ "firstName" FirstName.of_json in
      let type_ = field_map_exn json__ "type" UserType.of_json in
      let emailAddress = field_map_exn json__ "emailAddress" Email.of_json in
      make ?clientToken ?apiAccessPrincipalArn ?apiAccess ?lastName
        ?firstName ~type_ ~emailAddress ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Creates a new user in FinSpace."]
module CreatePermissionGroupResponse =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t option
        [@ocaml.doc "The unique identifier for the permission group."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?permissionGroupId = fun () -> { permissionGroupId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Option.map x.permissionGroupId ~f:PermissionGroupId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissionGroupId =
        (Option.map ~f:PermissionGroupId.of_xml)
          (Xml.child xml_arg0 "permissionGroupId") in
      make ?permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissionGroupId =
        field_map json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a group of permissions for various actions that a user can perform in FinSpace."]
module CreatePermissionGroupRequest =
  struct
    type nonrec t =
      {
      name: PermissionGroupName.t
        [@ocaml.doc "The name of the permission group."];
      description: PermissionGroupDescription.t option
        [@ocaml.doc "A brief description for the permission group."];
      applicationPermissions: ApplicationPermissionList.t
        [@ocaml.doc
          "The option to indicate FinSpace application permissions that are granted to a specific group. When assigning application permissions, be aware that the permission ManageUsersAndGroups allows users to grant themselves or others access to any functionality in their FinSpace environment's application. It should only be granted to trusted users. CreateDataset \226\128\147 Group members can create new datasets. ManageClusters \226\128\147 Group members can manage Apache Spark clusters from FinSpace notebooks. ManageUsersAndGroups \226\128\147 Group members can manage users and permission groups. This is a privileged permission that allows users to grant themselves or others access to any functionality in the application. It should only be granted to trusted users. ManageAttributeSets \226\128\147 Group members can manage attribute sets. ViewAuditData \226\128\147 Group members can view audit data. AccessNotebooks \226\128\147 Group members will have access to FinSpace notebooks. GetTemporaryCredentials \226\128\147 Group members can get temporary API credentials."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "CreatePermissionGroupRequest"
    let make ?description =
      fun ?clientToken ->
        fun ~name ->
          fun ~applicationPermissions ->
            fun () ->
              { description; clientToken; name; applicationPermissions }
    let to_value x =
      structure_to_value
        [("name", (Some (PermissionGroupName.to_value x.name)));
        ("description",
          (Option.map x.description ~f:PermissionGroupDescription.to_value));
        ("applicationPermissions",
          (Some (ApplicationPermissionList.to_value x.applicationPermissions)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let applicationPermissions =
        ApplicationPermissionList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "applicationPermissions") in
      let description =
        (Option.map ~f:PermissionGroupDescription.of_xml)
          (Xml.child xml_arg0 "description") in
      let name =
        PermissionGroupName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ?clientToken ~applicationPermissions ?description ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let applicationPermissions =
        field_map_exn json__ "applicationPermissions"
          ApplicationPermissionList.of_json in
      let description =
        field_map json__ "description" PermissionGroupDescription.of_json in
      let name = field_map_exn json__ "name" PermissionGroupName.of_json in
      make ?clientToken ~applicationPermissions ?description ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a group of permissions for various actions that a user can perform in FinSpace."]
module CreateDatasetResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc "The unique identifier for the created Dataset."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId = fun () -> { datasetId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from a CreateDataset operation"]
module CreateDatasetRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetTitle: DatasetTitle.t
        [@ocaml.doc "Display title for a FinSpace Dataset."];
      kind: DatasetKind.t
        [@ocaml.doc
          "The format in which Dataset data is structured. TABULAR \226\128\147 Data is structured in a tabular format. NON_TABULAR \226\128\147 Data is structured in a non-tabular format."];
      datasetDescription: DatasetDescription.t option
        [@ocaml.doc "Description of a Dataset."];
      ownerInfo: DatasetOwnerInfo.t option
        [@ocaml.doc "Contact information for a Dataset owner."];
      permissionGroupParams: PermissionGroupParams.t
        [@ocaml.doc "Permission group parameters for Dataset permissions."];
      alias: AliasString.t option
        [@ocaml.doc "The unique resource identifier for a Dataset."];
      schemaDefinition: SchemaUnion.t option
        [@ocaml.doc "Definition for a schema on a tabular Dataset."]}
    let context_ = "CreateDatasetRequest"
    let make ?clientToken =
      fun ?datasetDescription ->
        fun ?ownerInfo ->
          fun ?alias ->
            fun ?schemaDefinition ->
              fun ~datasetTitle ->
                fun ~kind ->
                  fun ~permissionGroupParams ->
                    fun () ->
                      {
                        clientToken;
                        datasetDescription;
                        ownerInfo;
                        alias;
                        schemaDefinition;
                        datasetTitle;
                        kind;
                        permissionGroupParams
                      }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetTitle", (Some (DatasetTitle.to_value x.datasetTitle)));
        ("kind", (Some (DatasetKind.to_value x.kind)));
        ("datasetDescription",
          (Option.map x.datasetDescription ~f:DatasetDescription.to_value));
        ("ownerInfo", (Option.map x.ownerInfo ~f:DatasetOwnerInfo.to_value));
        ("permissionGroupParams",
          (Some (PermissionGroupParams.to_value x.permissionGroupParams)));
        ("alias", (Option.map x.alias ~f:AliasString.to_value));
        ("schemaDefinition",
          (Option.map x.schemaDefinition ~f:SchemaUnion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schemaDefinition =
        (Option.map ~f:SchemaUnion.of_xml)
          (Xml.child xml_arg0 "schemaDefinition") in
      let alias =
        (Option.map ~f:AliasString.of_xml) (Xml.child xml_arg0 "alias") in
      let permissionGroupParams =
        PermissionGroupParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupParams") in
      let ownerInfo =
        (Option.map ~f:DatasetOwnerInfo.of_xml)
          (Xml.child xml_arg0 "ownerInfo") in
      let datasetDescription =
        (Option.map ~f:DatasetDescription.of_xml)
          (Xml.child xml_arg0 "datasetDescription") in
      let kind =
        DatasetKind.of_xml (Xml.child_exn ~context:context_ xml_arg0 "kind") in
      let datasetTitle =
        DatasetTitle.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetTitle") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ?schemaDefinition ?alias ~permissionGroupParams ?ownerInfo
        ?datasetDescription ~kind ~datasetTitle ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schemaDefinition =
        field_map json__ "schemaDefinition" SchemaUnion.of_json in
      let alias = field_map json__ "alias" AliasString.of_json in
      let permissionGroupParams =
        field_map_exn json__ "permissionGroupParams"
          PermissionGroupParams.of_json in
      let ownerInfo = field_map json__ "ownerInfo" DatasetOwnerInfo.of_json in
      let datasetDescription =
        field_map json__ "datasetDescription" DatasetDescription.of_json in
      let kind = field_map_exn json__ "kind" DatasetKind.of_json in
      let datasetTitle =
        field_map_exn json__ "datasetTitle" DatasetTitle.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ?schemaDefinition ?alias ~permissionGroupParams ?ownerInfo
        ?datasetDescription ~kind ~datasetTitle ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request for a CreateDataset operation"]
module CreateDataViewResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier of the Dataset used for the Dataview."];
      dataViewId: DataViewId.t option
        [@ocaml.doc "The unique identifier for the created Dataview."]}
    type nonrec error =
      [ `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId =
      fun ?dataViewId -> fun () -> { datasetId; dataViewId }
    let error_of_json name json =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("dataViewId", (Option.map x.dataViewId ~f:DataViewId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dataViewId =
        (Option.map ~f:DataViewId.of_xml) (Xml.child xml_arg0 "dataViewId") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?dataViewId ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dataViewId = field_map json__ "dataViewId" DataViewId.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?dataViewId ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Response for creating a data view."]
module CreateDataViewRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique Dataset identifier that is used to create a Dataview."];
      autoUpdate: Boolean.t option
        [@ocaml.doc
          "Flag to indicate Dataview should be updated automatically."];
      sortColumns: SortColumnList.t option
        [@ocaml.doc "Columns to be used for sorting the data."];
      partitionColumns: PartitionColumnList.t option
        [@ocaml.doc "Ordered set of column names used to partition data."];
      asOfTimestamp: TimestampEpoch.t option
        [@ocaml.doc
          "Beginning time to use for the Dataview. The value is determined as epoch time in milliseconds. For example, the value for Monday, November 1, 2021 12:00:00 PM UTC is specified as 1635768000000."];
      destinationTypeParams: DataViewDestinationTypeParams.t
        [@ocaml.doc
          "Options that define the destination type for the Dataview."]}
    let context_ = "CreateDataViewRequest"
    let make ?clientToken =
      fun ?autoUpdate ->
        fun ?sortColumns ->
          fun ?partitionColumns ->
            fun ?asOfTimestamp ->
              fun ~datasetId ->
                fun ~destinationTypeParams ->
                  fun () ->
                    {
                      clientToken;
                      autoUpdate;
                      sortColumns;
                      partitionColumns;
                      asOfTimestamp;
                      datasetId;
                      destinationTypeParams
                    }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("autoUpdate", (Option.map x.autoUpdate ~f:Boolean.to_value));
        ("sortColumns",
          (Option.map x.sortColumns ~f:SortColumnList.to_value));
        ("partitionColumns",
          (Option.map x.partitionColumns ~f:PartitionColumnList.to_value));
        ("asOfTimestamp",
          (Option.map x.asOfTimestamp ~f:TimestampEpoch.to_value));
        ("destinationTypeParams",
          (Some
             (DataViewDestinationTypeParams.to_value x.destinationTypeParams)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationTypeParams =
        DataViewDestinationTypeParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "destinationTypeParams") in
      let asOfTimestamp =
        (Option.map ~f:TimestampEpoch.of_xml)
          (Xml.child xml_arg0 "asOfTimestamp") in
      let partitionColumns =
        (Option.map ~f:PartitionColumnList.of_xml)
          (Xml.child xml_arg0 "partitionColumns") in
      let sortColumns =
        (Option.map ~f:SortColumnList.of_xml)
          (Xml.child xml_arg0 "sortColumns") in
      let autoUpdate =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "autoUpdate") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ~destinationTypeParams ?asOfTimestamp ?partitionColumns
        ?sortColumns ?autoUpdate ~datasetId ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationTypeParams =
        field_map_exn json__ "destinationTypeParams"
          DataViewDestinationTypeParams.of_json in
      let asOfTimestamp =
        field_map json__ "asOfTimestamp" TimestampEpoch.of_json in
      let partitionColumns =
        field_map json__ "partitionColumns" PartitionColumnList.of_json in
      let sortColumns = field_map json__ "sortColumns" SortColumnList.of_json in
      let autoUpdate = field_map json__ "autoUpdate" Boolean.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ~destinationTypeParams ?asOfTimestamp ?partitionColumns
        ?sortColumns ?autoUpdate ~datasetId ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Request for creating a data view."]
module CreateChangesetResponse =
  struct
    type nonrec t =
      {
      datasetId: DatasetId.t option
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset where the Changeset is created."];
      changesetId: ChangesetId.t option
        [@ocaml.doc
          "The unique identifier of the Changeset that is created."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?datasetId =
      fun ?changesetId -> fun () -> { datasetId; changesetId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("datasetId", (Option.map x.datasetId ~f:DatasetId.to_value));
        ("changesetId", (Option.map x.changesetId ~f:ChangesetId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let changesetId =
        (Option.map ~f:ChangesetId.of_xml) (Xml.child xml_arg0 "changesetId") in
      let datasetId =
        (Option.map ~f:DatasetId.of_xml) (Xml.child xml_arg0 "datasetId") in
      make ?changesetId ?datasetId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let changesetId = field_map json__ "changesetId" ChangesetId.of_json in
      let datasetId = field_map json__ "datasetId" DatasetId.of_json in
      make ?changesetId ?datasetId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The response from a CreateChangeset operation."]
module CreateChangesetRequest =
  struct
    type nonrec t =
      {
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."];
      datasetId: DatasetId.t
        [@ocaml.doc
          "The unique identifier for the FinSpace Dataset where the Changeset will be created."];
      changeType: ChangeType.t
        [@ocaml.doc
          "The option to indicate how a Changeset will be applied to a Dataset. REPLACE \226\128\147 Changeset will be considered as a replacement to all prior loaded Changesets. APPEND \226\128\147 Changeset will be considered as an addition to the end of all prior loaded Changesets. MODIFY \226\128\147 Changeset is considered as a replacement to a specific prior ingested Changeset."];
      sourceParams: SourceParams.t
        [@ocaml.doc
          "Options that define the location of the data being ingested (s3SourcePath) and the source of the changeset (sourceType). Both s3SourcePath and sourceType are required attributes. Here is an example of how you could specify the sourceParams: \"sourceParams\": \\{ \"s3SourcePath\": \"s3://finspace-landing-us-east-2-bk7gcfvitndqa6ebnvys4d/scratch/wr5hh8pwkpqqkxa4sxrmcw/ingestion/equity.csv\", \"sourceType\": \"S3\" \\} The S3 path that you specify must allow the FinSpace role access. To do that, you first need to configure the IAM policy on S3 bucket. For more information, see Loading data from an Amazon S3 Bucket using the FinSpace API section."];
      formatParams: FormatParams.t
        [@ocaml.doc
          "Options that define the structure of the source file(s) including the format type (formatType), header row (withHeader), data separation character (separator) and the type of compression (compression). formatType is a required attribute and can have the following values: PARQUET \226\128\147 Parquet source file format. CSV \226\128\147 CSV source file format. JSON \226\128\147 JSON source file format. XML \226\128\147 XML source file format. Here is an example of how you could specify the formatParams: \"formatParams\": \\{ \"formatType\": \"CSV\", \"withHeader\": \"true\", \"separator\": \",\", \"compression\":\"None\" \\} Note that if you only provide formatType as CSV, the rest of the attributes will automatically default to CSV values as following: \\{ \"withHeader\": \"true\", \"separator\": \",\" \\} For more information about supported file formats, see Supported Data Types and File Formats in the FinSpace User Guide."]}
    let context_ = "CreateChangesetRequest"
    let make ?clientToken =
      fun ~datasetId ->
        fun ~changeType ->
          fun ~sourceParams ->
            fun ~formatParams ->
              fun () ->
                {
                  clientToken;
                  datasetId;
                  changeType;
                  sourceParams;
                  formatParams
                }
    let to_value x =
      structure_to_value
        [("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value));
        ("datasetId", (Some (DatasetId.to_value x.datasetId)));
        ("changeType", (Some (ChangeType.to_value x.changeType)));
        ("sourceParams", (Some (SourceParams.to_value x.sourceParams)));
        ("formatParams", (Some (FormatParams.to_value x.formatParams)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let formatParams =
        FormatParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "formatParams") in
      let sourceParams =
        SourceParams.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sourceParams") in
      let changeType =
        ChangeType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "changeType") in
      let datasetId =
        DatasetId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "datasetId") in
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      make ~formatParams ~sourceParams ~changeType ~datasetId ?clientToken ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let formatParams =
        field_map_exn json__ "formatParams" FormatParams.of_json in
      let sourceParams =
        field_map_exn json__ "sourceParams" SourceParams.of_json in
      let changeType = field_map_exn json__ "changeType" ChangeType.of_json in
      let datasetId = field_map_exn json__ "datasetId" DatasetId.of_json in
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      make ~formatParams ~sourceParams ~changeType ~datasetId ?clientToken ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The request for a CreateChangeset operation."]
module AssociateUserToPermissionGroupResponse =
  struct
    type nonrec t =
      {
      statusCode: StatusCode.t option
        [@ocaml.doc "The returned status code of the response."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?statusCode = fun () -> { statusCode }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_xml xml)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "ValidationException" ->
          `ValidationException (ValidationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AccessDeniedException e ->
          `Assoc
            [("error", (`String "AccessDeniedException"));
            ("details", (AccessDeniedException.to_json e))]
      | `ConflictException e ->
          `Assoc
            [("error", (`String "ConflictException"));
            ("details", (ConflictException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `ValidationException e ->
          `Assoc
            [("error", (`String "ValidationException"));
            ("details", (ValidationException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value
        [("statusCode", (Option.map x.statusCode ~f:StatusCode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let statusCode =
        (Option.map ~f:StatusCode.of_xml) (Xml.child xml_arg0 "statusCode") in
      make ?statusCode ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let statusCode = field_map json__ "statusCode" StatusCode.of_json in
      make ?statusCode ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a user to a permission group to grant permissions for actions a user can perform in FinSpace."]
module AssociateUserToPermissionGroupRequest =
  struct
    type nonrec t =
      {
      permissionGroupId: PermissionGroupId.t
        [@ocaml.doc "The unique identifier for the permission group."];
      userId: UserId.t [@ocaml.doc "The unique identifier for the user."];
      clientToken: ClientToken.t option
        [@ocaml.doc
          "A token that ensures idempotency. This token expires in 10 minutes."]}
    let context_ = "AssociateUserToPermissionGroupRequest"
    let make ?clientToken =
      fun ~permissionGroupId ->
        fun ~userId -> fun () -> { clientToken; permissionGroupId; userId }
    let to_value x =
      structure_to_value
        [("permissionGroupId",
           (Some (PermissionGroupId.to_value x.permissionGroupId)));
        ("userId", (Some (UserId.to_value x.userId)));
        ("clientToken", (Option.map x.clientToken ~f:ClientToken.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let clientToken =
        (Option.map ~f:ClientToken.of_xml) (Xml.child xml_arg0 "clientToken") in
      let userId =
        UserId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "userId") in
      let permissionGroupId =
        PermissionGroupId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "permissionGroupId") in
      make ?clientToken ~userId ~permissionGroupId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let clientToken = field_map json__ "clientToken" ClientToken.of_json in
      let userId = field_map_exn json__ "userId" UserId.of_json in
      let permissionGroupId =
        field_map_exn json__ "permissionGroupId" PermissionGroupId.of_json in
      make ?clientToken ~userId ~permissionGroupId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds a user to a permission group to grant permissions for actions a user can perform in FinSpace."]