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.qapps
let apiVersion = "2023-11-27"
let endpointPrefix = "data.qapps"
let serviceFullName = "QApps"
let signatureVersion = "v4"
let protocol = "rest_json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module AccessDeniedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is not authorized to perform the requested operation."]
module ActionIdentifier =
  struct
    type nonrec t = string
    let context_ = "ActionIdentifier"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ActionIdentifier" j
    let to_json = simple_to_json to_value
  end
module AmazonResourceName =
  struct
    type nonrec t = string
    let context_ = "AmazonResourceName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1011) >>=
             (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:"AmazonResourceName" j
    let to_json = simple_to_json to_value
  end
module AppArn =
  struct
    type nonrec t = string
    let context_ = "AppArn"
    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:"AppArn" j
    let to_json = simple_to_json to_value
  end
module UUID =
  struct
    type nonrec t = string
    let context_ = "UUID"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[\\da-f]{8}-[\\da-f]{4}-[45][\\da-f]{3}-[89ABab][\\da-f]{3}-[\\da-f]{12}");
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"UUID" j
    let to_json = simple_to_json to_value
  end
module Title =
  struct
    type nonrec t = string
    let context_ = "Title"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:0) >>=
             (fun () ->
                (check_string_max i ~max:100) >>=
                  (fun () -> check_pattern i ~pattern:"[^{}\\\\\"<>]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Title" j
    let to_json = simple_to_json to_value
  end
module Placeholder =
  struct
    type nonrec t = string
    let context_ = "Placeholder"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Placeholder" j
    let to_json = simple_to_json to_value
  end
module DependencyList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"DependencyList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Default =
  struct
    type nonrec t = string
    let context_ = "Default"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Default" j
    let to_json = simple_to_json to_value
  end
module CardType =
  struct
    type nonrec t =
      | Text_input 
      | Q_query 
      | File_upload 
      | Q_plugin 
      | Form_input 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Text_input -> "text-input"
      | Q_query -> "q-query"
      | File_upload -> "file-upload"
      | Q_plugin -> "q-plugin"
      | Form_input -> "form-input"
      | Non_static_id s -> s
    let of_string =
      function
      | "text-input" -> Text_input
      | "q-query" -> Q_query
      | "file-upload" -> File_upload
      | "q-plugin" -> Q_plugin
      | "form-input" -> Form_input
      | 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 CardType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CardType" j)
    let to_json = simple_to_json to_value
  end
module TextInputCard =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier of the text input card."];
      title: Title.t option
        [@ocaml.doc "The title or label of the text input card."];
      dependencies: DependencyList.t option
        [@ocaml.doc
          "Any dependencies or requirements for the text input card."];
      type_: CardType.t option [@ocaml.doc "The type of the card."];
      placeholder: Placeholder.t option
        [@ocaml.doc
          "The placeholder text to display in the text input field."];
      defaultValue: Default.t option
        [@ocaml.doc
          "The default value to pre-populate in the text input field."]}
    let make ?id =
      fun ?title ->
        fun ?dependencies ->
          fun ?type_ ->
            fun ?placeholder ->
              fun ?defaultValue ->
                fun () ->
                  { id; title; dependencies; type_; placeholder; defaultValue
                  }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("dependencies",
          (Option.map x.dependencies ~f:DependencyList.to_value));
        ("type", (Option.map x.type_ ~f:CardType.to_value));
        ("placeholder", (Option.map x.placeholder ~f:Placeholder.to_value));
        ("defaultValue", (Option.map x.defaultValue ~f:Default.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultValue =
        (Option.map ~f:Default.of_xml) (Xml.child xml_arg0 "defaultValue") in
      let placeholder =
        (Option.map ~f:Placeholder.of_xml) (Xml.child xml_arg0 "placeholder") in
      let type_ = (Option.map ~f:CardType.of_xml) (Xml.child xml_arg0 "type") in
      let dependencies =
        (Option.map ~f:DependencyList.of_xml)
          (Xml.child xml_arg0 "dependencies") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?defaultValue ?placeholder ?type_ ?dependencies ?title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultValue = field_map json__ "defaultValue" Default.of_json in
      let placeholder = field_map json__ "placeholder" Placeholder.of_json in
      let type_ = field_map json__ "type" CardType.of_json in
      let dependencies =
        field_map json__ "dependencies" DependencyList.of_json in
      let title = field_map json__ "title" Title.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?defaultValue ?placeholder ?type_ ?dependencies ?title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card in an Amazon Q App that allows the user to input text."]
module Prompt =
  struct
    type nonrec t = string
    let context_ = "Prompt"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:50000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Prompt" j
    let to_json = simple_to_json to_value
  end
module MemoryReferenceList =
  struct
    type nonrec t = String_.t list
    let make i = i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:String_.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:String_.of_xml)
    let of_json j =
      list_of_json ~kind:"MemoryReferenceList" ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module CardOutputSource =
  struct
    type nonrec t =
      | Approved_sources 
      | Llm 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Approved_sources -> "approved-sources"
      | Llm -> "llm"
      | Non_static_id s -> s
    let of_string =
      function
      | "approved-sources" -> Approved_sources
      | "llm" -> Llm
      | 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 CardOutputSource" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"CardOutputSource" j)
    let to_json = simple_to_json to_value
  end
module Timestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Long =
  struct
    type nonrec t = Int64.t
    let make i = i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module DocumentAttributeValueStringValueString =
  struct
    type nonrec t = string
    let context_ = "DocumentAttributeValueStringValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"DocumentAttributeValueStringValueString" j
    let to_json = simple_to_json to_value
  end
module PlatoString =
  struct
    type nonrec t = string
    let context_ = "PlatoString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:2048) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PlatoString" j
    let to_json = simple_to_json to_value
  end
module DocumentAttributeStringListValue =
  struct
    type nonrec t = PlatoString.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:PlatoString.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:PlatoString.of_xml)
    let of_json j =
      list_of_json ~kind:"DocumentAttributeStringListValue"
        ~of_json:PlatoString.of_json j
    let to_json v = composed_to_json to_value v
  end
module DocumentAttributeValue =
  struct
    type nonrec t =
      {
      stringValue: DocumentAttributeValueStringValueString.t option
        [@ocaml.doc "A string."];
      stringListValue: DocumentAttributeStringListValue.t option
        [@ocaml.doc "A list of strings."];
      longValue: Long.t option [@ocaml.doc "A long integer value."];
      dateValue: Timestamp.t option
        [@ocaml.doc
          "A date expressed as an ISO 8601 string. It's important for the time zone to be included in the ISO 8601 date-time format. For example, 2012-03-25T12:30:10+01:00 is the ISO 8601 date-time format for March 25th 2012 at 12:30PM (plus 10 seconds) in Central European Time."]}
    let make ?stringValue =
      fun ?stringListValue ->
        fun ?longValue ->
          fun ?dateValue ->
            fun () -> { stringValue; stringListValue; longValue; dateValue }
    let to_value x =
      structure_to_value
        [("stringValue",
           (Option.map x.stringValue
              ~f:DocumentAttributeValueStringValueString.to_value));
        ("stringListValue",
          (Option.map x.stringListValue
             ~f:DocumentAttributeStringListValue.to_value));
        ("longValue", (Option.map x.longValue ~f:Long.to_value));
        ("dateValue", (Option.map x.dateValue ~f:Timestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let dateValue =
        (Option.map ~f:Timestamp.of_xml) (Xml.child xml_arg0 "dateValue") in
      let longValue =
        (Option.map ~f:Long.of_xml) (Xml.child xml_arg0 "longValue") in
      let stringListValue =
        (Option.map ~f:DocumentAttributeStringListValue.of_xml)
          (Xml.child xml_arg0 "stringListValue") in
      let stringValue =
        (Option.map ~f:DocumentAttributeValueStringValueString.of_xml)
          (Xml.child xml_arg0 "stringValue") in
      make ?dateValue ?longValue ?stringListValue ?stringValue ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let dateValue = field_map json__ "dateValue" Timestamp.of_json in
      let longValue = field_map json__ "longValue" Long.of_json in
      let stringListValue =
        field_map json__ "stringListValue"
          DocumentAttributeStringListValue.of_json in
      let stringValue =
        field_map json__ "stringValue"
          DocumentAttributeValueStringValueString.of_json in
      make ?dateValue ?longValue ?stringListValue ?stringValue ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value of a document attribute. You can only provide one value for a document attribute."]
module DocumentAttributeKey =
  struct
    type nonrec t = string
    let context_ = "DocumentAttributeKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:200) >>=
                  (fun () ->
                     check_pattern i ~pattern:"[a-zA-Z0-9_][a-zA-Z0-9_-]*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"DocumentAttributeKey" j
    let to_json = simple_to_json to_value
  end
module DocumentAttribute =
  struct
    type nonrec t =
      {
      name: DocumentAttributeKey.t
        [@ocaml.doc "The identifier for the attribute."];
      value: DocumentAttributeValue.t
        [@ocaml.doc "The value of the attribute."]}
    let context_ = "DocumentAttribute"
    let make ~name = fun ~value -> fun () -> { name; value }
    let to_value x =
      structure_to_value
        [("name", (Some (DocumentAttributeKey.to_value x.name)));
        ("value", (Some (DocumentAttributeValue.to_value x.value)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        DocumentAttributeValue.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let name =
        DocumentAttributeKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "name") in
      make ~value ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map_exn json__ "value" DocumentAttributeValue.of_json in
      let name = field_map_exn json__ "name" DocumentAttributeKey.of_json in
      make ~value ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A document attribute or metadata field."]
module rec
  AttributeFilter:sig
                    type nonrec t =
                      {
                      andAllFilters: AttributeFilters.t option
                        [@ocaml.doc
                          "Performs a logical AND operation on all supplied filters."];
                      orAllFilters: AttributeFilters.t option
                        [@ocaml.doc
                          "Performs a logical OR operation on all supplied filters."];
                      notFilter: AttributeFilter.t option
                        [@ocaml.doc
                          "Performs a logical NOT operation on all supplied filters."];
                      equalsTo: DocumentAttribute.t option
                        [@ocaml.doc
                          "Performs an equals operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue, longValue, stringListValue and stringValue."];
                      containsAll: DocumentAttribute.t option
                        [@ocaml.doc
                          "Returns true when a document contains all the specified document attributes or metadata fields. Supported for the following document attribute value types: stringListValue."];
                      containsAny: DocumentAttribute.t option
                        [@ocaml.doc
                          "Returns true when a document contains any of the specified document attributes or metadata fields. Supported for the following document attribute value types: stringListValue."];
                      greaterThan: DocumentAttribute.t option
                        [@ocaml.doc
                          "Performs a greater than operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
                      greaterThanOrEquals: DocumentAttribute.t option
                        [@ocaml.doc
                          "Performs a greater than or equals operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
                      lessThan: DocumentAttribute.t option
                        [@ocaml.doc
                          "Performs a less than operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
                      lessThanOrEquals: DocumentAttribute.t option
                        [@ocaml.doc
                          "Performs a less than or equals operation on two document attributes or metadata fields.Supported for the following document attribute value type: dateValue and longValue."]}
                    val make :
                      ?andAllFilters:AttributeFilters.t ->
                        ?orAllFilters:AttributeFilters.t ->
                          ?notFilter:AttributeFilter.t ->
                            ?equalsTo:DocumentAttribute.t ->
                              ?containsAll:DocumentAttribute.t ->
                                ?containsAny:DocumentAttribute.t ->
                                  ?greaterThan:DocumentAttribute.t ->
                                    ?greaterThanOrEquals:DocumentAttribute.t
                                      ->
                                      ?lessThan:DocumentAttribute.t ->
                                        ?lessThanOrEquals:DocumentAttribute.t
                                          -> unit -> t
                    val to_value : t -> Botodata.value
                    val to_query : t -> Client.Query.t
                    val of_xml : Xml.t -> t
                    val of_json : Yojson.Safe.t -> t
                    val to_json : t -> Yojson.Safe.t
                  end =
  struct
    type nonrec t =
      {
      andAllFilters: AttributeFilters.t option
        [@ocaml.doc
          "Performs a logical AND operation on all supplied filters."];
      orAllFilters: AttributeFilters.t option
        [@ocaml.doc
          "Performs a logical OR operation on all supplied filters."];
      notFilter: AttributeFilter.t option
        [@ocaml.doc
          "Performs a logical NOT operation on all supplied filters."];
      equalsTo: DocumentAttribute.t option
        [@ocaml.doc
          "Performs an equals operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue, longValue, stringListValue and stringValue."];
      containsAll: DocumentAttribute.t option
        [@ocaml.doc
          "Returns true when a document contains all the specified document attributes or metadata fields. Supported for the following document attribute value types: stringListValue."];
      containsAny: DocumentAttribute.t option
        [@ocaml.doc
          "Returns true when a document contains any of the specified document attributes or metadata fields. Supported for the following document attribute value types: stringListValue."];
      greaterThan: DocumentAttribute.t option
        [@ocaml.doc
          "Performs a greater than operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
      greaterThanOrEquals: DocumentAttribute.t option
        [@ocaml.doc
          "Performs a greater than or equals operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
      lessThan: DocumentAttribute.t option
        [@ocaml.doc
          "Performs a less than operation on two document attributes or metadata fields. Supported for the following document attribute value types: dateValue and longValue."];
      lessThanOrEquals: DocumentAttribute.t option
        [@ocaml.doc
          "Performs a less than or equals operation on two document attributes or metadata fields.Supported for the following document attribute value type: dateValue and longValue."]}
    let make ?andAllFilters =
      fun ?orAllFilters ->
        fun ?notFilter ->
          fun ?equalsTo ->
            fun ?containsAll ->
              fun ?containsAny ->
                fun ?greaterThan ->
                  fun ?greaterThanOrEquals ->
                    fun ?lessThan ->
                      fun ?lessThanOrEquals ->
                        fun () ->
                          {
                            andAllFilters;
                            orAllFilters;
                            notFilter;
                            equalsTo;
                            containsAll;
                            containsAny;
                            greaterThan;
                            greaterThanOrEquals;
                            lessThan;
                            lessThanOrEquals
                          }
    let to_value x =
      structure_to_value
        [("andAllFilters",
           (Option.map x.andAllFilters ~f:AttributeFilters.to_value));
        ("orAllFilters",
          (Option.map x.orAllFilters ~f:AttributeFilters.to_value));
        ("notFilter", (Option.map x.notFilter ~f:AttributeFilter.to_value));
        ("equalsTo", (Option.map x.equalsTo ~f:DocumentAttribute.to_value));
        ("containsAll",
          (Option.map x.containsAll ~f:DocumentAttribute.to_value));
        ("containsAny",
          (Option.map x.containsAny ~f:DocumentAttribute.to_value));
        ("greaterThan",
          (Option.map x.greaterThan ~f:DocumentAttribute.to_value));
        ("greaterThanOrEquals",
          (Option.map x.greaterThanOrEquals ~f:DocumentAttribute.to_value));
        ("lessThan", (Option.map x.lessThan ~f:DocumentAttribute.to_value));
        ("lessThanOrEquals",
          (Option.map x.lessThanOrEquals ~f:DocumentAttribute.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let lessThanOrEquals =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "lessThanOrEquals") in
      let lessThan =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "lessThan") in
      let greaterThanOrEquals =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "greaterThanOrEquals") in
      let greaterThan =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "greaterThan") in
      let containsAny =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "containsAny") in
      let containsAll =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "containsAll") in
      let equalsTo =
        (Option.map ~f:DocumentAttribute.of_xml)
          (Xml.child xml_arg0 "equalsTo") in
      let notFilter =
        (Option.map ~f:AttributeFilter.of_xml)
          (Xml.child xml_arg0 "notFilter") in
      let orAllFilters =
        (Option.map ~f:AttributeFilters.of_xml)
          (Xml.child xml_arg0 "orAllFilters") in
      let andAllFilters =
        (Option.map ~f:AttributeFilters.of_xml)
          (Xml.child xml_arg0 "andAllFilters") in
      make ?lessThanOrEquals ?lessThan ?greaterThanOrEquals ?greaterThan
        ?containsAny ?containsAll ?equalsTo ?notFilter ?orAllFilters
        ?andAllFilters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let lessThanOrEquals =
        field_map json__ "lessThanOrEquals" DocumentAttribute.of_json in
      let lessThan = field_map json__ "lessThan" DocumentAttribute.of_json in
      let greaterThanOrEquals =
        field_map json__ "greaterThanOrEquals" DocumentAttribute.of_json in
      let greaterThan =
        field_map json__ "greaterThan" DocumentAttribute.of_json in
      let containsAny =
        field_map json__ "containsAny" DocumentAttribute.of_json in
      let containsAll =
        field_map json__ "containsAll" DocumentAttribute.of_json in
      let equalsTo = field_map json__ "equalsTo" DocumentAttribute.of_json in
      let notFilter = field_map json__ "notFilter" AttributeFilter.of_json in
      let orAllFilters =
        field_map json__ "orAllFilters" AttributeFilters.of_json in
      let andAllFilters =
        field_map json__ "andAllFilters" AttributeFilters.of_json in
      make ?lessThanOrEquals ?lessThan ?greaterThanOrEquals ?greaterThan
        ?containsAny ?containsAll ?equalsTo ?notFilter ?orAllFilters
        ?andAllFilters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The filter criteria used on responses based on document attributes or metadata fields."]
 and
  AttributeFilters:sig
                     type nonrec t = AttributeFilter.t list
                     val make : AttributeFilter.t list -> t
                     val to_value : t -> Botodata.value
                     val to_query : t -> Client.Query.t
                     val of_xml : Xml.t -> AttributeFilter.t list
                     val of_json : Yojson.Safe.t -> t
                     val to_json : t -> Yojson.Safe.t
                     val to_header : t -> string
                   end =
  struct
    type nonrec t = AttributeFilter.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:AttributeFilter.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:AttributeFilter.of_xml)
    let of_json j =
      list_of_json ~kind:"AttributeFilters" ~of_json:AttributeFilter.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module QQueryCard =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier of the query card."];
      title: Title.t option
        [@ocaml.doc "The title or label of the query card."];
      dependencies: DependencyList.t option
        [@ocaml.doc "Any dependencies or requirements for the query card."];
      type_: CardType.t option [@ocaml.doc "The type of the card."];
      prompt: Prompt.t option
        [@ocaml.doc
          "The prompt or instructions displayed for the query card."];
      outputSource: CardOutputSource.t option
        [@ocaml.doc
          "The source or type of output generated by the query card."];
      attributeFilter: AttributeFilter.t option
        [@ocaml.doc
          "The Amazon Q Business filters applied in this query card when resolving data sources"];
      memoryReferences: MemoryReferenceList.t option
        [@ocaml.doc
          "Any dependencies for the query card, where the dependencies are references to the collected responses."]}
    let make ?id =
      fun ?title ->
        fun ?dependencies ->
          fun ?type_ ->
            fun ?prompt ->
              fun ?outputSource ->
                fun ?attributeFilter ->
                  fun ?memoryReferences ->
                    fun () ->
                      {
                        id;
                        title;
                        dependencies;
                        type_;
                        prompt;
                        outputSource;
                        attributeFilter;
                        memoryReferences
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("dependencies",
          (Option.map x.dependencies ~f:DependencyList.to_value));
        ("type", (Option.map x.type_ ~f:CardType.to_value));
        ("prompt", (Option.map x.prompt ~f:Prompt.to_value));
        ("outputSource",
          (Option.map x.outputSource ~f:CardOutputSource.to_value));
        ("attributeFilter",
          (Option.map x.attributeFilter ~f:AttributeFilter.to_value));
        ("memoryReferences",
          (Option.map x.memoryReferences ~f:MemoryReferenceList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let memoryReferences =
        (Option.map ~f:MemoryReferenceList.of_xml)
          (Xml.child xml_arg0 "memoryReferences") in
      let attributeFilter =
        (Option.map ~f:AttributeFilter.of_xml)
          (Xml.child xml_arg0 "attributeFilter") in
      let outputSource =
        (Option.map ~f:CardOutputSource.of_xml)
          (Xml.child xml_arg0 "outputSource") in
      let prompt =
        (Option.map ~f:Prompt.of_xml) (Xml.child xml_arg0 "prompt") in
      let type_ = (Option.map ~f:CardType.of_xml) (Xml.child xml_arg0 "type") in
      let dependencies =
        (Option.map ~f:DependencyList.of_xml)
          (Xml.child xml_arg0 "dependencies") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?memoryReferences ?attributeFilter ?outputSource ?prompt ?type_
        ?dependencies ?title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let memoryReferences =
        field_map json__ "memoryReferences" MemoryReferenceList.of_json in
      let attributeFilter =
        field_map json__ "attributeFilter" AttributeFilter.of_json in
      let outputSource =
        field_map json__ "outputSource" CardOutputSource.of_json in
      let prompt = field_map json__ "prompt" Prompt.of_json in
      let type_ = field_map json__ "type" CardType.of_json in
      let dependencies =
        field_map json__ "dependencies" DependencyList.of_json in
      let title = field_map json__ "title" Title.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?memoryReferences ?attributeFilter ?outputSource ?prompt ?type_
        ?dependencies ?title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card in a Amazon Q App that generates a response based on the Amazon Q Business service."]
module PluginType =
  struct
    type nonrec t =
      | SERVICE_NOW 
      | SALESFORCE 
      | JIRA 
      | ZENDESK 
      | CUSTOM 
      | ASANA 
      | ATLASSIAN_CONFLUENCE 
      | GOOGLE_CALENDAR 
      | JIRA_CLOUD 
      | MICROSOFT_EXCHANGE 
      | MICROSOFT_TEAMS 
      | PAGERDUTY_ADVANCE 
      | SALESFORCE_CRM 
      | SERVICENOW_NOW_PLATFORM 
      | SMARTSHEET 
      | ZENDESK_SUITE 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | SERVICE_NOW -> "SERVICE_NOW"
      | SALESFORCE -> "SALESFORCE"
      | JIRA -> "JIRA"
      | ZENDESK -> "ZENDESK"
      | CUSTOM -> "CUSTOM"
      | ASANA -> "ASANA"
      | ATLASSIAN_CONFLUENCE -> "ATLASSIAN_CONFLUENCE"
      | GOOGLE_CALENDAR -> "GOOGLE_CALENDAR"
      | JIRA_CLOUD -> "JIRA_CLOUD"
      | MICROSOFT_EXCHANGE -> "MICROSOFT_EXCHANGE"
      | MICROSOFT_TEAMS -> "MICROSOFT_TEAMS"
      | PAGERDUTY_ADVANCE -> "PAGERDUTY_ADVANCE"
      | SALESFORCE_CRM -> "SALESFORCE_CRM"
      | SERVICENOW_NOW_PLATFORM -> "SERVICENOW_NOW_PLATFORM"
      | SMARTSHEET -> "SMARTSHEET"
      | ZENDESK_SUITE -> "ZENDESK_SUITE"
      | Non_static_id s -> s
    let of_string =
      function
      | "SERVICE_NOW" -> SERVICE_NOW
      | "SALESFORCE" -> SALESFORCE
      | "JIRA" -> JIRA
      | "ZENDESK" -> ZENDESK
      | "CUSTOM" -> CUSTOM
      | "ASANA" -> ASANA
      | "ATLASSIAN_CONFLUENCE" -> ATLASSIAN_CONFLUENCE
      | "GOOGLE_CALENDAR" -> GOOGLE_CALENDAR
      | "JIRA_CLOUD" -> JIRA_CLOUD
      | "MICROSOFT_EXCHANGE" -> MICROSOFT_EXCHANGE
      | "MICROSOFT_TEAMS" -> MICROSOFT_TEAMS
      | "PAGERDUTY_ADVANCE" -> PAGERDUTY_ADVANCE
      | "SALESFORCE_CRM" -> SALESFORCE_CRM
      | "SERVICENOW_NOW_PLATFORM" -> SERVICENOW_NOW_PLATFORM
      | "SMARTSHEET" -> SMARTSHEET
      | "ZENDESK_SUITE" -> ZENDESK_SUITE
      | 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 PluginType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"PluginType" j)
    let to_json = simple_to_json to_value
  end
module QPluginCard =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier of the plugin card."];
      title: Title.t option
        [@ocaml.doc "The title or label of the plugin card."];
      dependencies: DependencyList.t option
        [@ocaml.doc "Any dependencies or requirements for the plugin card."];
      type_: CardType.t option [@ocaml.doc "The type of the card."];
      prompt: Prompt.t option
        [@ocaml.doc
          "The prompt or instructions displayed for the plugin card."];
      pluginType: PluginType.t option
        [@ocaml.doc "The type or category of the plugin used by the card."];
      pluginId: String_.t option
        [@ocaml.doc "The unique identifier of the plugin used by the card."];
      actionIdentifier: ActionIdentifier.t option
        [@ocaml.doc
          "The action identifier of the action to be performed by the plugin card."]}
    let make ?id =
      fun ?title ->
        fun ?dependencies ->
          fun ?type_ ->
            fun ?prompt ->
              fun ?pluginType ->
                fun ?pluginId ->
                  fun ?actionIdentifier ->
                    fun () ->
                      {
                        id;
                        title;
                        dependencies;
                        type_;
                        prompt;
                        pluginType;
                        pluginId;
                        actionIdentifier
                      }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("dependencies",
          (Option.map x.dependencies ~f:DependencyList.to_value));
        ("type", (Option.map x.type_ ~f:CardType.to_value));
        ("prompt", (Option.map x.prompt ~f:Prompt.to_value));
        ("pluginType", (Option.map x.pluginType ~f:PluginType.to_value));
        ("pluginId", (Option.map x.pluginId ~f:String_.to_value));
        ("actionIdentifier",
          (Option.map x.actionIdentifier ~f:ActionIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionIdentifier =
        (Option.map ~f:ActionIdentifier.of_xml)
          (Xml.child xml_arg0 "actionIdentifier") in
      let pluginId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "pluginId") in
      let pluginType =
        (Option.map ~f:PluginType.of_xml) (Xml.child xml_arg0 "pluginType") in
      let prompt =
        (Option.map ~f:Prompt.of_xml) (Xml.child xml_arg0 "prompt") in
      let type_ = (Option.map ~f:CardType.of_xml) (Xml.child xml_arg0 "type") in
      let dependencies =
        (Option.map ~f:DependencyList.of_xml)
          (Xml.child xml_arg0 "dependencies") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?actionIdentifier ?pluginId ?pluginType ?prompt ?type_
        ?dependencies ?title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionIdentifier =
        field_map json__ "actionIdentifier" ActionIdentifier.of_json in
      let pluginId = field_map json__ "pluginId" String_.of_json in
      let pluginType = field_map json__ "pluginType" PluginType.of_json in
      let prompt = field_map json__ "prompt" Prompt.of_json in
      let type_ = field_map json__ "type" CardType.of_json in
      let dependencies =
        field_map json__ "dependencies" DependencyList.of_json in
      let title = field_map json__ "title" Title.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?actionIdentifier ?pluginId ?pluginType ?prompt ?type_
        ?dependencies ?title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card in an Q App that integrates with a third-party plugin or service."]
module InputCardComputeMode =
  struct
    type nonrec t =
      | Append 
      | Replace 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Append -> "append"
      | Replace -> "replace"
      | Non_static_id s -> s
    let of_string =
      function
      | "append" -> Append
      | "replace" -> Replace
      | 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 InputCardComputeMode" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"InputCardComputeMode" j)
    let to_json = simple_to_json to_value
  end
module FormInputCardMetadataSchema =
  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
module FormInputCardMetadata =
  struct
    type nonrec t =
      {
      schema: FormInputCardMetadataSchema.t
        [@ocaml.doc
          "The JSON schema that defines the shape of the response data."]}
    let context_ = "FormInputCardMetadata"
    let make ~schema = fun () -> { schema }
    let to_value x =
      structure_to_value
        [("schema", (Some (FormInputCardMetadataSchema.to_value x.schema)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let schema =
        FormInputCardMetadataSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "schema") in
      make ~schema ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let schema =
        field_map_exn json__ "schema" FormInputCardMetadataSchema.of_json in
      make ~schema ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The metadata of the form input card."]
module FormInputCard =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier of the form input card."];
      title: Title.t option [@ocaml.doc "The title of the form input card."];
      dependencies: DependencyList.t option
        [@ocaml.doc
          "Any dependencies or requirements for the form input card."];
      type_: CardType.t option [@ocaml.doc "The type of the card."];
      metadata: FormInputCardMetadata.t option
        [@ocaml.doc "The metadata that defines the form input card data."];
      computeMode: InputCardComputeMode.t option
        [@ocaml.doc
          "The compute mode of the form input card. This property determines whether individual participants of a data collection session can submit multiple response or one response. A compute mode of append shall allow participants to submit the same form multiple times with different values. A compute mode of replacecode> shall overwrite the current value for each participant."]}
    let make ?id =
      fun ?title ->
        fun ?dependencies ->
          fun ?type_ ->
            fun ?metadata ->
              fun ?computeMode ->
                fun () ->
                  { id; title; dependencies; type_; metadata; computeMode }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("dependencies",
          (Option.map x.dependencies ~f:DependencyList.to_value));
        ("type", (Option.map x.type_ ~f:CardType.to_value));
        ("metadata",
          (Option.map x.metadata ~f:FormInputCardMetadata.to_value));
        ("computeMode",
          (Option.map x.computeMode ~f:InputCardComputeMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeMode =
        (Option.map ~f:InputCardComputeMode.of_xml)
          (Xml.child xml_arg0 "computeMode") in
      let metadata =
        (Option.map ~f:FormInputCardMetadata.of_xml)
          (Xml.child xml_arg0 "metadata") in
      let type_ = (Option.map ~f:CardType.of_xml) (Xml.child xml_arg0 "type") in
      let dependencies =
        (Option.map ~f:DependencyList.of_xml)
          (Xml.child xml_arg0 "dependencies") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?computeMode ?metadata ?type_ ?dependencies ?title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeMode =
        field_map json__ "computeMode" InputCardComputeMode.of_json in
      let metadata =
        field_map json__ "metadata" FormInputCardMetadata.of_json in
      let type_ = field_map json__ "type" CardType.of_json in
      let dependencies =
        field_map json__ "dependencies" DependencyList.of_json in
      let title = field_map json__ "title" Title.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?computeMode ?metadata ?type_ ?dependencies ?title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card in an Amazon Q App that allows the user to submit a response."]
module Boolean =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module FileUploadCard =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc "The unique identifier of the file upload card."];
      title: Title.t option [@ocaml.doc "The title of the file upload card."];
      dependencies: DependencyList.t option
        [@ocaml.doc
          "Any dependencies or requirements for the file upload card."];
      type_: CardType.t option [@ocaml.doc "The type of the card."];
      filename: String_.t option
        [@ocaml.doc "The name of the file being uploaded."];
      fileId: String_.t option
        [@ocaml.doc
          "The unique identifier of the file associated with the card."];
      allowOverride: Boolean.t option
        [@ocaml.doc
          "A flag indicating if the user can override the default file for the upload card."]}
    let make ?id =
      fun ?title ->
        fun ?dependencies ->
          fun ?type_ ->
            fun ?filename ->
              fun ?fileId ->
                fun ?allowOverride ->
                  fun () ->
                    {
                      id;
                      title;
                      dependencies;
                      type_;
                      filename;
                      fileId;
                      allowOverride
                    }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("dependencies",
          (Option.map x.dependencies ~f:DependencyList.to_value));
        ("type", (Option.map x.type_ ~f:CardType.to_value));
        ("filename", (Option.map x.filename ~f:String_.to_value));
        ("fileId", (Option.map x.fileId ~f:String_.to_value));
        ("allowOverride", (Option.map x.allowOverride ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowOverride =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "allowOverride") in
      let fileId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "fileId") in
      let filename =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "filename") in
      let type_ = (Option.map ~f:CardType.of_xml) (Xml.child xml_arg0 "type") in
      let dependencies =
        (Option.map ~f:DependencyList.of_xml)
          (Xml.child xml_arg0 "dependencies") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?allowOverride ?fileId ?filename ?type_ ?dependencies ?title ?id
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowOverride = field_map json__ "allowOverride" Boolean.of_json in
      let fileId = field_map json__ "fileId" String_.of_json in
      let filename = field_map json__ "filename" String_.of_json in
      let type_ = field_map json__ "type" CardType.of_json in
      let dependencies =
        field_map json__ "dependencies" DependencyList.of_json in
      let title = field_map json__ "title" Title.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?allowOverride ?fileId ?filename ?type_ ?dependencies ?title ?id
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card in an Amazon Q App that allows the user to upload a file."]
module Card =
  struct
    type nonrec t =
      {
      textInput: TextInputCard.t option
        [@ocaml.doc "A container for the properties of the text input card."];
      qQuery: QQueryCard.t option
        [@ocaml.doc "A container for the properties of the query card."];
      qPlugin: QPluginCard.t option
        [@ocaml.doc "A container for the properties of the plugin card."];
      fileUpload: FileUploadCard.t option
        [@ocaml.doc
          "A container for the properties of the file upload card."];
      formInput: FormInputCard.t option
        [@ocaml.doc "A container for the properties of the form input card."]}
    let make ?textInput =
      fun ?qQuery ->
        fun ?qPlugin ->
          fun ?fileUpload ->
            fun ?formInput ->
              fun () -> { textInput; qQuery; qPlugin; fileUpload; formInput }
    let to_value x =
      structure_to_value
        [("textInput", (Option.map x.textInput ~f:TextInputCard.to_value));
        ("qQuery", (Option.map x.qQuery ~f:QQueryCard.to_value));
        ("qPlugin", (Option.map x.qPlugin ~f:QPluginCard.to_value));
        ("fileUpload", (Option.map x.fileUpload ~f:FileUploadCard.to_value));
        ("formInput", (Option.map x.formInput ~f:FormInputCard.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let formInput =
        (Option.map ~f:FormInputCard.of_xml) (Xml.child xml_arg0 "formInput") in
      let fileUpload =
        (Option.map ~f:FileUploadCard.of_xml)
          (Xml.child xml_arg0 "fileUpload") in
      let qPlugin =
        (Option.map ~f:QPluginCard.of_xml) (Xml.child xml_arg0 "qPlugin") in
      let qQuery =
        (Option.map ~f:QQueryCard.of_xml) (Xml.child xml_arg0 "qQuery") in
      let textInput =
        (Option.map ~f:TextInputCard.of_xml) (Xml.child xml_arg0 "textInput") in
      make ?formInput ?fileUpload ?qPlugin ?qQuery ?textInput ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let formInput = field_map json__ "formInput" FormInputCard.of_json in
      let fileUpload = field_map json__ "fileUpload" FileUploadCard.of_json in
      let qPlugin = field_map json__ "qPlugin" QPluginCard.of_json in
      let qQuery = field_map json__ "qQuery" QQueryCard.of_json in
      let textInput = field_map json__ "textInput" TextInputCard.of_json in
      make ?formInput ?fileUpload ?qPlugin ?qQuery ?textInput ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A card representing a component or step in an Amazon Q App's flow."]
module CardModelList =
  struct
    type nonrec t = Card.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Card.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:Card.of_xml)
    let of_json j =
      list_of_json ~kind:"CardModelList" ~of_json:Card.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppDefinition =
  struct
    type nonrec t =
      {
      appDefinitionVersion: String_.t option
        [@ocaml.doc
          "The version of the app definition schema or specification."];
      cards: CardModelList.t option
        [@ocaml.doc
          "The cards that make up the Q App, such as text input, file upload, or query cards."];
      canEdit: Boolean.t option
        [@ocaml.doc
          "A flag indicating whether the Q App's definition can be edited by the user."]}
    let make ?appDefinitionVersion =
      fun ?cards ->
        fun ?canEdit -> fun () -> { appDefinitionVersion; cards; canEdit }
    let to_value x =
      structure_to_value
        [("appDefinitionVersion",
           (Option.map x.appDefinitionVersion ~f:String_.to_value));
        ("cards", (Option.map x.cards ~f:CardModelList.to_value));
        ("canEdit", (Option.map x.canEdit ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let canEdit =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "canEdit") in
      let cards =
        (Option.map ~f:CardModelList.of_xml) (Xml.child xml_arg0 "cards") in
      let appDefinitionVersion =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "appDefinitionVersion") in
      make ?canEdit ?cards ?appDefinitionVersion ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let canEdit = field_map json__ "canEdit" Boolean.of_json in
      let cards = field_map json__ "cards" CardModelList.of_json in
      let appDefinitionVersion =
        field_map json__ "appDefinitionVersion" String_.of_json in
      make ?canEdit ?cards ?appDefinitionVersion ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition of the Q App, specifying the cards and flow."]
module InitialPrompt =
  struct
    type nonrec t = string
    let context_ = "InitialPrompt"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InitialPrompt" j
    let to_json = simple_to_json to_value
  end
module TextInputCardInput =
  struct
    type nonrec t =
      {
      title: Title.t
        [@ocaml.doc "The title or label of the text input card."];
      id: UUID.t [@ocaml.doc "The unique identifier of the text input card."];
      type_: CardType.t [@ocaml.doc "The type of the card."];
      placeholder: Placeholder.t option
        [@ocaml.doc
          "The placeholder text to display in the text input field."];
      defaultValue: Default.t option
        [@ocaml.doc
          "The default value to pre-populate in the text input field."]}
    let context_ = "TextInputCardInput"
    let make ?placeholder =
      fun ?defaultValue ->
        fun ~title ->
          fun ~id ->
            fun ~type_ ->
              fun () -> { placeholder; defaultValue; title; id; type_ }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("id", (Some (UUID.to_value x.id)));
        ("type", (Some (CardType.to_value x.type_)));
        ("placeholder", (Option.map x.placeholder ~f:Placeholder.to_value));
        ("defaultValue", (Option.map x.defaultValue ~f:Default.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let defaultValue =
        (Option.map ~f:Default.of_xml) (Xml.child xml_arg0 "defaultValue") in
      let placeholder =
        (Option.map ~f:Placeholder.of_xml) (Xml.child xml_arg0 "placeholder") in
      let type_ =
        CardType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?defaultValue ?placeholder ~type_ ~id ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let defaultValue = field_map json__ "defaultValue" Default.of_json in
      let placeholder = field_map json__ "placeholder" Placeholder.of_json in
      let type_ = field_map_exn json__ "type" CardType.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?defaultValue ?placeholder ~type_ ~id ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input shape for defining a text input card in an Amazon Q App."]
module QQueryCardInput =
  struct
    type nonrec t =
      {
      title: Title.t [@ocaml.doc "The title or label of the query card."];
      id: UUID.t [@ocaml.doc "The unique identifier of the query card."];
      type_: CardType.t [@ocaml.doc "The type of the card."];
      prompt: Prompt.t
        [@ocaml.doc
          "The prompt or instructions displayed for the query card."];
      outputSource: CardOutputSource.t option
        [@ocaml.doc
          "The source or type of output to generate for the query card."];
      attributeFilter: AttributeFilter.t option
        [@ocaml.doc
          "Turns on filtering of responses based on document attributes or metadata fields."]}
    let context_ = "QQueryCardInput"
    let make ?outputSource =
      fun ?attributeFilter ->
        fun ~title ->
          fun ~id ->
            fun ~type_ ->
              fun ~prompt ->
                fun () ->
                  { outputSource; attributeFilter; title; id; type_; prompt }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("id", (Some (UUID.to_value x.id)));
        ("type", (Some (CardType.to_value x.type_)));
        ("prompt", (Some (Prompt.to_value x.prompt)));
        ("outputSource",
          (Option.map x.outputSource ~f:CardOutputSource.to_value));
        ("attributeFilter",
          (Option.map x.attributeFilter ~f:AttributeFilter.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let attributeFilter =
        (Option.map ~f:AttributeFilter.of_xml)
          (Xml.child xml_arg0 "attributeFilter") in
      let outputSource =
        (Option.map ~f:CardOutputSource.of_xml)
          (Xml.child xml_arg0 "outputSource") in
      let prompt =
        Prompt.of_xml (Xml.child_exn ~context:context_ xml_arg0 "prompt") in
      let type_ =
        CardType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?attributeFilter ?outputSource ~prompt ~type_ ~id ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let attributeFilter =
        field_map json__ "attributeFilter" AttributeFilter.of_json in
      let outputSource =
        field_map json__ "outputSource" CardOutputSource.of_json in
      let prompt = field_map_exn json__ "prompt" Prompt.of_json in
      let type_ = field_map_exn json__ "type" CardType.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?attributeFilter ?outputSource ~prompt ~type_ ~id ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input shape for defining a query card in an Amazon Q App."]
module PluginId =
  struct
    type nonrec t = string
    let context_ = "PluginId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:36) >>=
             (fun () -> check_string_min i ~min:36));
        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:"PluginId" j
    let to_json = simple_to_json to_value
  end
module QPluginCardInput =
  struct
    type nonrec t =
      {
      title: Title.t [@ocaml.doc "The title or label of the plugin card."];
      id: UUID.t [@ocaml.doc "The unique identifier of the plugin card."];
      type_: CardType.t [@ocaml.doc "The type of the card."];
      prompt: Prompt.t
        [@ocaml.doc
          "The prompt or instructions displayed for the plugin card."];
      pluginId: PluginId.t
        [@ocaml.doc "The unique identifier of the plugin used by the card."];
      actionIdentifier: ActionIdentifier.t option
        [@ocaml.doc
          "The action identifier of the action to be performed by the plugin card."]}
    let context_ = "QPluginCardInput"
    let make ?actionIdentifier =
      fun ~title ->
        fun ~id ->
          fun ~type_ ->
            fun ~prompt ->
              fun ~pluginId ->
                fun () ->
                  { actionIdentifier; title; id; type_; prompt; pluginId }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("id", (Some (UUID.to_value x.id)));
        ("type", (Some (CardType.to_value x.type_)));
        ("prompt", (Some (Prompt.to_value x.prompt)));
        ("pluginId", (Some (PluginId.to_value x.pluginId)));
        ("actionIdentifier",
          (Option.map x.actionIdentifier ~f:ActionIdentifier.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let actionIdentifier =
        (Option.map ~f:ActionIdentifier.of_xml)
          (Xml.child xml_arg0 "actionIdentifier") in
      let pluginId =
        PluginId.of_xml (Xml.child_exn ~context:context_ xml_arg0 "pluginId") in
      let prompt =
        Prompt.of_xml (Xml.child_exn ~context:context_ xml_arg0 "prompt") in
      let type_ =
        CardType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?actionIdentifier ~pluginId ~prompt ~type_ ~id ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let actionIdentifier =
        field_map json__ "actionIdentifier" ActionIdentifier.of_json in
      let pluginId = field_map_exn json__ "pluginId" PluginId.of_json in
      let prompt = field_map_exn json__ "prompt" Prompt.of_json in
      let type_ = field_map_exn json__ "type" CardType.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?actionIdentifier ~pluginId ~prompt ~type_ ~id ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input shape for defining a plugin card in an Amazon Q App."]
module FormInputCardInput =
  struct
    type nonrec t =
      {
      title: Title.t
        [@ocaml.doc "The title or label of the form input card."];
      id: UUID.t [@ocaml.doc "The unique identifier of the form input card."];
      type_: CardType.t [@ocaml.doc "The type of the card."];
      metadata: FormInputCardMetadata.t
        [@ocaml.doc "The metadata that defines the form input card data."];
      computeMode: InputCardComputeMode.t option
        [@ocaml.doc
          "The compute mode of the form input card. This property determines whether individual participants of a data collection session can submit multiple response or one response. A compute mode of append shall allow participants to submit the same form multiple times with different values. A compute mode of replacecode> shall overwrite the current value for each participant."]}
    let context_ = "FormInputCardInput"
    let make ?computeMode =
      fun ~title ->
        fun ~id ->
          fun ~type_ ->
            fun ~metadata ->
              fun () -> { computeMode; title; id; type_; metadata }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("id", (Some (UUID.to_value x.id)));
        ("type", (Some (CardType.to_value x.type_)));
        ("metadata", (Some (FormInputCardMetadata.to_value x.metadata)));
        ("computeMode",
          (Option.map x.computeMode ~f:InputCardComputeMode.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let computeMode =
        (Option.map ~f:InputCardComputeMode.of_xml)
          (Xml.child xml_arg0 "computeMode") in
      let metadata =
        FormInputCardMetadata.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "metadata") in
      let type_ =
        CardType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?computeMode ~metadata ~type_ ~id ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let computeMode =
        field_map json__ "computeMode" InputCardComputeMode.of_json in
      let metadata =
        field_map_exn json__ "metadata" FormInputCardMetadata.of_json in
      let type_ = field_map_exn json__ "type" CardType.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?computeMode ~metadata ~type_ ~id ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents a form input card for an Amazon Q App."]
module Filename =
  struct
    type nonrec t = string
    let context_ = "Filename"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Filename" j
    let to_json = simple_to_json to_value
  end
module FileUploadCardInput =
  struct
    type nonrec t =
      {
      title: Title.t
        [@ocaml.doc "The title or label of the file upload card."];
      id: UUID.t
        [@ocaml.doc "The unique identifier of the file upload card."];
      type_: CardType.t [@ocaml.doc "The type of the card."];
      filename: Filename.t option
        [@ocaml.doc "The default filename to use for the file upload card."];
      fileId: UUID.t option
        [@ocaml.doc
          "The identifier of a pre-uploaded file associated with the card."];
      allowOverride: Boolean.t option
        [@ocaml.doc
          "A flag indicating if the user can override the default file for the upload card."]}
    let context_ = "FileUploadCardInput"
    let make ?filename =
      fun ?fileId ->
        fun ?allowOverride ->
          fun ~title ->
            fun ~id ->
              fun ~type_ ->
                fun () ->
                  { filename; fileId; allowOverride; title; id; type_ }
    let to_value x =
      structure_to_value
        [("title", (Some (Title.to_value x.title)));
        ("id", (Some (UUID.to_value x.id)));
        ("type", (Some (CardType.to_value x.type_)));
        ("filename", (Option.map x.filename ~f:Filename.to_value));
        ("fileId", (Option.map x.fileId ~f:UUID.to_value));
        ("allowOverride", (Option.map x.allowOverride ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let allowOverride =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "allowOverride") in
      let fileId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "fileId") in
      let filename =
        (Option.map ~f:Filename.of_xml) (Xml.child xml_arg0 "filename") in
      let type_ =
        CardType.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      make ?allowOverride ?fileId ?filename ~type_ ~id ~title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let allowOverride = field_map json__ "allowOverride" Boolean.of_json in
      let fileId = field_map json__ "fileId" UUID.of_json in
      let filename = field_map json__ "filename" Filename.of_json in
      let type_ = field_map_exn json__ "type" CardType.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      make ?allowOverride ?fileId ?filename ~type_ ~id ~title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents a file upload card. It can optionally receive a filename and fileId to set a default file. If not received, the user must provide the file when the Q App runs."]
module CardInput =
  struct
    type nonrec t =
      {
      textInput: TextInputCardInput.t option
        [@ocaml.doc "A container for the properties of the text input card."];
      qQuery: QQueryCardInput.t option
        [@ocaml.doc
          "A container for the properties of the query input card."];
      qPlugin: QPluginCardInput.t option
        [@ocaml.doc
          "A container for the properties of the plugin input card."];
      fileUpload: FileUploadCardInput.t option
        [@ocaml.doc
          "A container for the properties of the file upload input card."];
      formInput: FormInputCardInput.t option
        [@ocaml.doc "A container for the properties of the form input card."]}
    let make ?textInput =
      fun ?qQuery ->
        fun ?qPlugin ->
          fun ?fileUpload ->
            fun ?formInput ->
              fun () -> { textInput; qQuery; qPlugin; fileUpload; formInput }
    let to_value x =
      structure_to_value
        [("textInput",
           (Option.map x.textInput ~f:TextInputCardInput.to_value));
        ("qQuery", (Option.map x.qQuery ~f:QQueryCardInput.to_value));
        ("qPlugin", (Option.map x.qPlugin ~f:QPluginCardInput.to_value));
        ("fileUpload",
          (Option.map x.fileUpload ~f:FileUploadCardInput.to_value));
        ("formInput",
          (Option.map x.formInput ~f:FormInputCardInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let formInput =
        (Option.map ~f:FormInputCardInput.of_xml)
          (Xml.child xml_arg0 "formInput") in
      let fileUpload =
        (Option.map ~f:FileUploadCardInput.of_xml)
          (Xml.child xml_arg0 "fileUpload") in
      let qPlugin =
        (Option.map ~f:QPluginCardInput.of_xml)
          (Xml.child xml_arg0 "qPlugin") in
      let qQuery =
        (Option.map ~f:QQueryCardInput.of_xml) (Xml.child xml_arg0 "qQuery") in
      let textInput =
        (Option.map ~f:TextInputCardInput.of_xml)
          (Xml.child xml_arg0 "textInput") in
      make ?formInput ?fileUpload ?qPlugin ?qQuery ?textInput ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let formInput = field_map json__ "formInput" FormInputCardInput.of_json in
      let fileUpload =
        field_map json__ "fileUpload" FileUploadCardInput.of_json in
      let qPlugin = field_map json__ "qPlugin" QPluginCardInput.of_json in
      let qQuery = field_map json__ "qQuery" QQueryCardInput.of_json in
      let textInput = field_map json__ "textInput" TextInputCardInput.of_json in
      make ?formInput ?fileUpload ?qPlugin ?qQuery ?textInput ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The properties defining an input card in an Amazon Q App."]
module CardList =
  struct
    type nonrec t = CardInput.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CardInput.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:CardInput.of_xml)
    let of_json j =
      list_of_json ~kind:"CardList" ~of_json:CardInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppDefinitionInput =
  struct
    type nonrec t =
      {
      cards: CardList.t
        [@ocaml.doc "The cards that make up the Q App definition."];
      initialPrompt: InitialPrompt.t option
        [@ocaml.doc
          "The initial prompt displayed when the Q App is started."]}
    let context_ = "AppDefinitionInput"
    let make ?initialPrompt =
      fun ~cards -> fun () -> { initialPrompt; cards }
    let to_value x =
      structure_to_value
        [("cards", (Some (CardList.to_value x.cards)));
        ("initialPrompt",
          (Option.map x.initialPrompt ~f:InitialPrompt.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let initialPrompt =
        (Option.map ~f:InitialPrompt.of_xml)
          (Xml.child xml_arg0 "initialPrompt") in
      let cards =
        CardList.of_xml (Xml.child_exn ~context:context_ xml_arg0 "cards") in
      make ?initialPrompt ~cards ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let initialPrompt =
        field_map json__ "initialPrompt" InitialPrompt.of_json in
      let cards = field_map_exn json__ "cards" CardList.of_json in
      make ?initialPrompt ~cards ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input for defining an Q App."]
module AppRequiredCapability =
  struct
    type nonrec t =
      | FileUpload 
      | CreatorMode 
      | RetrievalMode 
      | PluginMode 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | FileUpload -> "FileUpload"
      | CreatorMode -> "CreatorMode"
      | RetrievalMode -> "RetrievalMode"
      | PluginMode -> "PluginMode"
      | Non_static_id s -> s
    let of_string =
      function
      | "FileUpload" -> FileUpload
      | "CreatorMode" -> CreatorMode
      | "RetrievalMode" -> RetrievalMode
      | "PluginMode" -> PluginMode
      | 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 AppRequiredCapability" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"AppRequiredCapability" j)
    let to_json = simple_to_json to_value
  end
module AppRequiredCapabilities =
  struct
    type nonrec t = AppRequiredCapability.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:AppRequiredCapability.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:AppRequiredCapability.of_xml)
    let of_json j =
      list_of_json ~kind:"AppRequiredCapabilities"
        ~of_json:AppRequiredCapability.of_json j
    let to_json v = composed_to_json to_value v
  end
module AppStatus =
  struct
    type nonrec t =
      | PUBLISHED 
      | DRAFT 
      | DELETED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLISHED -> "PUBLISHED"
      | DRAFT -> "DRAFT"
      | DELETED -> "DELETED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLISHED" -> PUBLISHED
      | "DRAFT" -> DRAFT
      | "DELETED" -> DELETED
      | x -> Non_static_id x
    let to_value x = `Enum (to_string x)
    let to_query v = to_query to_value v
    let to_header x = to_string x
    let of_xml xml_arg0 =
      of_string (string_of_xml ~kind:"enumeration AppStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"AppStatus" j)
    let to_json = simple_to_json to_value
  end
module AppVersion =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:2147483647) >>=
             (fun () -> check_int_min i ~min:0));
        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 AppVersion" 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 InstanceId =
  struct
    type nonrec t = string
    let context_ = "InstanceId"
    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:"InstanceId" j
    let to_json = simple_to_json to_value
  end
module AssociateLibraryItemReviewInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier for the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc
          "The unique identifier of the library item to associate the review with."]}
    let context_ = "AssociateLibraryItemReviewInput"
    let make ~instanceId =
      fun ~libraryItemId -> fun () -> { instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Associates a rating or review for a library item with the user submitting the request. This increments the rating count for the specified library item."]
module AssociateQAppWithUserInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc "The ID of the Amazon Q App to associate with the user."]}
    let context_ = "AssociateQAppWithUserInput"
    let make ~instanceId = fun ~appId -> fun () -> { instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This operation creates a link between the user's identity calling the operation and a specific Q App. This is useful to mark the Q App as a favorite for the user if the user doesn't own the Amazon Q App so they can still run it and see it in their inventory of Q Apps."]
module BatchCreateCategoryInputCategoryTitleString =
  struct
    type nonrec t = string
    let context_ = "BatchCreateCategoryInputCategoryTitleString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9_]+( [a-zA-Z0-9_]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"BatchCreateCategoryInputCategoryTitleString" j
    let to_json = simple_to_json to_value
  end
module BatchCreateCategoryInputCategoryColorString =
  struct
    type nonrec t = string
    let context_ = "BatchCreateCategoryInputCategoryColorString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:7) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"#([A-Fa-f0-9]{3}|[A-Fa-f0-9]{6})")));
        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:"BatchCreateCategoryInputCategoryColorString" j
    let to_json = simple_to_json to_value
  end
module BatchCreateCategoryInputCategory =
  struct
    type nonrec t =
      {
      id: UUID.t option
        [@ocaml.doc
          "The unique identifier to be associated with a category. If you don't include a value, the category is automatically assigned a unique identifier."];
      title: BatchCreateCategoryInputCategoryTitleString.t
        [@ocaml.doc "The name of the category."];
      color: BatchCreateCategoryInputCategoryColorString.t option
        [@ocaml.doc
          "The color to be associated with a category. The color must be a hexadecimal value of either 3 or 6 digits."]}
    let context_ = "BatchCreateCategoryInputCategory"
    let make ?id = fun ?color -> fun ~title -> fun () -> { id; color; title }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title",
          (Some
             (BatchCreateCategoryInputCategoryTitleString.to_value x.title)));
        ("color",
          (Option.map x.color
             ~f:BatchCreateCategoryInputCategoryColorString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let color =
        (Option.map ~f:BatchCreateCategoryInputCategoryColorString.of_xml)
          (Xml.child xml_arg0 "color") in
      let title =
        BatchCreateCategoryInputCategoryTitleString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?color ~title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let color =
        field_map json__ "color"
          BatchCreateCategoryInputCategoryColorString.of_json in
      let title =
        field_map_exn json__ "title"
          BatchCreateCategoryInputCategoryTitleString.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?color ~title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The category object to be created."]
module BatchCreateCategoryInputCategoryList =
  struct
    type nonrec t = BatchCreateCategoryInputCategory.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:BatchCreateCategoryInputCategory.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:BatchCreateCategoryInputCategory.of_xml)
    let of_json j =
      list_of_json ~kind:"BatchCreateCategoryInputCategoryList"
        ~of_json:BatchCreateCategoryInputCategory.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchCreateCategoryInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      categories: BatchCreateCategoryInputCategoryList.t
        [@ocaml.doc "The list of category objects to be created"]}
    let context_ = "BatchCreateCategoryInput"
    let make ~instanceId =
      fun ~categories -> fun () -> { instanceId; categories }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("categories",
          (Some (BatchCreateCategoryInputCategoryList.to_value x.categories)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        BatchCreateCategoryInputCategoryList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categories") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~categories ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories =
        field_map_exn json__ "categories"
          BatchCreateCategoryInputCategoryList.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~categories ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates Categories for the Amazon Q Business application environment instance. Web experience users use Categories to tag and filter library items. For more information, see Custom labels for Amazon Q Apps."]
module DeleteCategoryInputList =
  struct
    type nonrec t = UUID.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UUID.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:UUID.of_xml)
    let of_json j =
      list_of_json ~kind:"DeleteCategoryInputList" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchDeleteCategoryInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      categories: DeleteCategoryInputList.t
        [@ocaml.doc "The list of IDs of the categories to be deleted."]}
    let context_ = "BatchDeleteCategoryInput"
    let make ~instanceId =
      fun ~categories -> fun () -> { instanceId; categories }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("categories",
          (Some (DeleteCategoryInputList.to_value x.categories)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        DeleteCategoryInputList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categories") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~categories ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories =
        field_map_exn json__ "categories" DeleteCategoryInputList.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~categories ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes Categories for the Amazon Q Business application environment instance. Web experience users use Categories to tag and filter library items. For more information, see Custom labels for Amazon Q Apps."]
module CategoryInputTitleString =
  struct
    type nonrec t = string
    let context_ = "CategoryInputTitleString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:30) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"[a-zA-Z0-9_]+( [a-zA-Z0-9_]+)*")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CategoryInputTitleString" j
    let to_json = simple_to_json to_value
  end
module CategoryInputColorString =
  struct
    type nonrec t = string
    let context_ = "CategoryInputColorString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:4) >>=
             (fun () ->
                (check_string_max i ~max:7) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"#([A-Fa-f0-9]{3}|[A-Fa-f0-9]{6})")));
        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:"CategoryInputColorString" j
    let to_json = simple_to_json to_value
  end
module CategoryInput =
  struct
    type nonrec t =
      {
      id: UUID.t [@ocaml.doc "The unique identifier of the category."];
      title: CategoryInputTitleString.t
        [@ocaml.doc "The name of the category."];
      color: CategoryInputColorString.t option
        [@ocaml.doc
          "The color of the category, represented as a hexadecimal value of either 3 or 6 digits."]}
    let context_ = "CategoryInput"
    let make ?color = fun ~id -> fun ~title -> fun () -> { color; id; title }
    let to_value x =
      structure_to_value
        [("id", (Some (UUID.to_value x.id)));
        ("title", (Some (CategoryInputTitleString.to_value x.title)));
        ("color", (Option.map x.color ~f:CategoryInputColorString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let color =
        (Option.map ~f:CategoryInputColorString.of_xml)
          (Xml.child xml_arg0 "color") in
      let title =
        CategoryInputTitleString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let id = UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "id") in
      make ?color ~title ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let color = field_map json__ "color" CategoryInputColorString.of_json in
      let title =
        field_map_exn json__ "title" CategoryInputTitleString.of_json in
      let id = field_map_exn json__ "id" UUID.of_json in
      make ?color ~title ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A label that web experience users associate with a library item. Web experience users use Categories to tag and filter library items."]
module CategoryListInput =
  struct
    type nonrec t = CategoryInput.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CategoryInput.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:CategoryInput.of_xml)
    let of_json j =
      list_of_json ~kind:"CategoryListInput" ~of_json:CategoryInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module BatchUpdateCategoryInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      categories: CategoryListInput.t
        [@ocaml.doc
          "The list of categories to be updated with their new values."]}
    let context_ = "BatchUpdateCategoryInput"
    let make ~instanceId =
      fun ~categories -> fun () -> { instanceId; categories }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("categories", (Some (CategoryListInput.to_value x.categories)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        CategoryListInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categories") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~categories ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories =
        field_map_exn json__ "categories" CategoryListInput.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~categories ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates Categories for the Amazon Q Business application environment instance. Web experience users use Categories to tag and filter library items. For more information, see Custom labels for Amazon Q Apps."]
module QAppsTimestamp =
  struct
    type nonrec t = string
    let make i = i
    let of_string x = x
    let to_value x = `Timestamp x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = string_of_xml ~kind:"a timestamp"
    let of_json = timestamp_of_json
    let to_json = simple_to_json to_value
  end
module Document =
  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
module Submission =
  struct
    type nonrec t =
      {
      value: Document.t option [@ocaml.doc "The data submitted by the user."];
      submissionId: UUID.t option
        [@ocaml.doc "The unique identifier of the submission."];
      timestamp: QAppsTimestamp.t option
        [@ocaml.doc "The date and time when the card is submitted."]}
    let make ?value =
      fun ?submissionId ->
        fun ?timestamp -> fun () -> { value; submissionId; timestamp }
    let to_value x =
      structure_to_value
        [("value", (Option.map x.value ~f:Document.to_value));
        ("submissionId", (Option.map x.submissionId ~f:UUID.to_value));
        ("timestamp", (Option.map x.timestamp ~f:QAppsTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "timestamp") in
      let submissionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "submissionId") in
      let value =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "value") in
      make ?timestamp ?submissionId ?value ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "timestamp" QAppsTimestamp.of_json in
      let submissionId = field_map json__ "submissionId" UUID.of_json in
      let value = field_map json__ "value" Document.of_json in
      make ?timestamp ?submissionId ?value ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "A record created when a user submits a form card."]
module SubmissionList =
  struct
    type nonrec t = Submission.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:Submission.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:Submission.of_xml)
    let of_json j =
      list_of_json ~kind:"SubmissionList" ~of_json:Submission.of_json j
    let to_json v = composed_to_json to_value v
  end
module ExecutionStatus =
  struct
    type nonrec t =
      | IN_PROGRESS 
      | WAITING 
      | COMPLETED 
      | ERROR 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | IN_PROGRESS -> "IN_PROGRESS"
      | WAITING -> "WAITING"
      | COMPLETED -> "COMPLETED"
      | ERROR -> "ERROR"
      | Non_static_id s -> s
    let of_string =
      function
      | "IN_PROGRESS" -> IN_PROGRESS
      | "WAITING" -> WAITING
      | "COMPLETED" -> COMPLETED
      | "ERROR" -> ERROR
      | 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 ExecutionStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ExecutionStatus" j)
    let to_json = simple_to_json to_value
  end
module CardStatus =
  struct
    type nonrec t =
      {
      currentState: ExecutionStatus.t option
        [@ocaml.doc "The current state of the card."];
      currentValue: String_.t option
        [@ocaml.doc "The current value or result associated with the card."];
      submissions: SubmissionList.t option
        [@ocaml.doc
          "A list of previous submissions, if the card is a form card."]}
    let make ?currentState =
      fun ?currentValue ->
        fun ?submissions ->
          fun () -> { currentState; currentValue; submissions }
    let to_value x =
      structure_to_value
        [("currentState",
           (Option.map x.currentState ~f:ExecutionStatus.to_value));
        ("currentValue", (Option.map x.currentValue ~f:String_.to_value));
        ("submissions",
          (Option.map x.submissions ~f:SubmissionList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let submissions =
        (Option.map ~f:SubmissionList.of_xml)
          (Xml.child xml_arg0 "submissions") in
      let currentValue =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "currentValue") in
      let currentState =
        (Option.map ~f:ExecutionStatus.of_xml)
          (Xml.child xml_arg0 "currentState") in
      make ?submissions ?currentValue ?currentState ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let submissions = field_map json__ "submissions" SubmissionList.of_json in
      let currentValue = field_map json__ "currentValue" String_.of_json in
      let currentState =
        field_map json__ "currentState" ExecutionStatus.of_json in
      make ?submissions ?currentValue ?currentState ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The current status and value of a card in an active Amazon Q App session."]
module CardStatusMap =
  struct
    type nonrec t = (UUID.t * CardStatus.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 ->
                            let (_ : string) = v in
                            let (_ : string) = chopped in
                            failwith
                              "no of_header for complex types UUID CardStatus"))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (UUID.to_value x) |>
                    (fun x -> (CardStatus.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:UUID.of_string
        ~of_json:CardStatus.of_json j
    let to_json v = composed_to_json to_value v
  end
module SubmissionMutationKind =
  struct
    type nonrec t =
      | Edit 
      | Delete 
      | Add 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | Edit -> "edit"
      | Delete -> "delete"
      | Add -> "add"
      | Non_static_id s -> s
    let of_string =
      function
      | "edit" -> Edit
      | "delete" -> Delete
      | "add" -> Add
      | 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 SubmissionMutationKind" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"SubmissionMutationKind" j)
    let to_json = simple_to_json to_value
  end
module SubmissionMutation =
  struct
    type nonrec t =
      {
      submissionId: UUID.t
        [@ocaml.doc "The unique identifier of the submission."];
      mutationType: SubmissionMutationKind.t
        [@ocaml.doc "The operation that is performed on a submission."]}
    let context_ = "SubmissionMutation"
    let make ~submissionId =
      fun ~mutationType -> fun () -> { submissionId; mutationType }
    let to_value x =
      structure_to_value
        [("submissionId", (Some (UUID.to_value x.submissionId)));
        ("mutationType",
          (Some (SubmissionMutationKind.to_value x.mutationType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mutationType =
        SubmissionMutationKind.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "mutationType") in
      let submissionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "submissionId") in
      make ~mutationType ~submissionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mutationType =
        field_map_exn json__ "mutationType" SubmissionMutationKind.of_json in
      let submissionId = field_map_exn json__ "submissionId" UUID.of_json in
      make ~mutationType ~submissionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Represents an action performed on a submission."]
module CardValueValueString =
  struct
    type nonrec t = string
    let context_ = "CardValueValueString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:40000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"CardValueValueString" j
    let to_json = simple_to_json to_value
  end
module CardValue =
  struct
    type nonrec t =
      {
      cardId: UUID.t [@ocaml.doc "The unique identifier of the card."];
      value: CardValueValueString.t
        [@ocaml.doc "The value or result associated with the card."];
      submissionMutation: SubmissionMutation.t option
        [@ocaml.doc
          "The structure that describes how the current form card value is mutated. Only applies for form cards when multiple responses are allowed."]}
    let context_ = "CardValue"
    let make ?submissionMutation =
      fun ~cardId ->
        fun ~value -> fun () -> { submissionMutation; cardId; value }
    let to_value x =
      structure_to_value
        [("cardId", (Some (UUID.to_value x.cardId)));
        ("value", (Some (CardValueValueString.to_value x.value)));
        ("submissionMutation",
          (Option.map x.submissionMutation ~f:SubmissionMutation.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let submissionMutation =
        (Option.map ~f:SubmissionMutation.of_xml)
          (Xml.child xml_arg0 "submissionMutation") in
      let value =
        CardValueValueString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "value") in
      let cardId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "cardId") in
      make ?submissionMutation ~value ~cardId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let submissionMutation =
        field_map json__ "submissionMutation" SubmissionMutation.of_json in
      let value = field_map_exn json__ "value" CardValueValueString.of_json in
      let cardId = field_map_exn json__ "cardId" UUID.of_json in
      make ?submissionMutation ~value ~cardId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The value or result associated with a card in a Amazon Q App session."]
module CardValueList =
  struct
    type nonrec t = CardValue.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:20) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:CardValue.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:CardValue.of_xml)
    let of_json j =
      list_of_json ~kind:"CardValueList" ~of_json:CardValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module Integer =
  struct
    type nonrec t = int
    let make i = i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string (string_of_xml ~kind:"an integer for Integer" xml_arg0)
    let of_json j = Int.of_float (float_of_json ~kind:"an integer" j)
    let to_json = simple_to_json to_value
  end
module Category =
  struct
    type nonrec t =
      {
      id: UUID.t option [@ocaml.doc "The unique identifier of the category."];
      title: String_.t option
        [@ocaml.doc "The title or name of the category."];
      color: String_.t option [@ocaml.doc "The color of the category"];
      appCount: Integer.t option
        [@ocaml.doc
          "The number of published Amazon Q Apps associated with a category"]}
    let make ?id =
      fun ?title ->
        fun ?color ->
          fun ?appCount -> fun () -> { id; title; color; appCount }
    let to_value x =
      structure_to_value
        [("id", (Option.map x.id ~f:UUID.to_value));
        ("title", (Option.map x.title ~f:String_.to_value));
        ("color", (Option.map x.color ~f:String_.to_value));
        ("appCount", (Option.map x.appCount ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "appCount") in
      let color = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "color") in
      let title = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "title") in
      let id = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "id") in
      make ?appCount ?color ?title ?id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appCount = field_map json__ "appCount" Integer.of_json in
      let color = field_map json__ "color" String_.of_json in
      let title = field_map json__ "title" String_.of_json in
      let id = field_map json__ "id" UUID.of_json in
      make ?appCount ?color ?title ?id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A category used to classify and filter library items for Amazon Q Apps."]
module CategoriesList =
  struct
    type nonrec t = Category.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:10) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Category.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:Category.of_xml)
    let of_json j =
      list_of_json ~kind:"CategoriesList" ~of_json:Category.of_json j
    let to_json v = composed_to_json to_value v
  end
module CategoryIdList =
  struct
    type nonrec t = UUID.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:UUID.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:UUID.of_xml)
    let of_json j =
      list_of_json ~kind:"CategoryIdList" ~of_json:UUID.of_json j
    let to_json v = composed_to_json to_value v
  end
module CategoryList =
  struct
    type nonrec t = Category.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:3) >>= (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Category.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:Category.of_xml)
    let of_json j =
      list_of_json ~kind:"CategoryList" ~of_json:Category.of_json j
    let to_json v = composed_to_json to_value v
  end
module ConflictException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the resource"];
      resourceType: String_.t option [@ocaml.doc "The type of the resource"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation could not be completed due to a conflict with the current state of the resource."]
module ContentTooLargeException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the resource"];
      resourceType: String_.t option [@ocaml.doc "The type of the resource"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation could not be completed because the content exceeds the maximum allowed size."]
module Sender =
  struct
    type nonrec t =
      | USER 
      | SYSTEM 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | USER -> "USER" | SYSTEM -> "SYSTEM" | Non_static_id s -> s
    let of_string =
      function | "USER" -> USER | "SYSTEM" -> SYSTEM | 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 Sender" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"Sender" j)
    let to_json = simple_to_json to_value
  end
module ConversationMessageBodyString =
  struct
    type nonrec t = string
    let context_ = "ConversationMessageBodyString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:7000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ConversationMessageBodyString" j
    let to_json = simple_to_json to_value
  end
module ConversationMessage =
  struct
    type nonrec t =
      {
      body: ConversationMessageBodyString.t
        [@ocaml.doc "The text content of the conversation message."];
      type_: Sender.t [@ocaml.doc "The type of the conversation message."]}
    let context_ = "ConversationMessage"
    let make ~body = fun ~type_ -> fun () -> { body; type_ }
    let to_value x =
      structure_to_value
        [("body", (Some (ConversationMessageBodyString.to_value x.body)));
        ("type", (Some (Sender.to_value x.type_)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let type_ =
        Sender.of_xml (Xml.child_exn ~context:context_ xml_arg0 "type") in
      let body =
        ConversationMessageBodyString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "body") in
      make ~type_ ~body ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let type_ = field_map_exn json__ "type" Sender.of_json in
      let body =
        field_map_exn json__ "body" ConversationMessageBodyString.of_json in
      make ~type_ ~body ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A message in a conversation, used as input for generating an Amazon Q App definition."]
module CreateLibraryItemInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q App to publish to the library."];
      appVersion: AppVersion.t
        [@ocaml.doc
          "The version of the Amazon Q App to publish to the library."];
      categories: CategoryIdList.t
        [@ocaml.doc
          "The categories to associate with the library item for easier discovery."]}
    let context_ = "CreateLibraryItemInput"
    let make ~instanceId =
      fun ~appId ->
        fun ~appVersion ->
          fun ~categories ->
            fun () -> { instanceId; appId; appVersion; categories }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("appVersion", (Some (AppVersion.to_value x.appVersion)));
        ("categories", (Some (CategoryIdList.to_value x.categories)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        CategoryIdList.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "categories") in
      let appVersion =
        AppVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appVersion") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~categories ~appVersion ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories =
        field_map_exn json__ "categories" CategoryIdList.of_json in
      let appVersion = field_map_exn json__ "appVersion" AppVersion.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~categories ~appVersion ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new library item for an Amazon Q App, allowing it to be discovered and used by other allowed users."]
module ValidationException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The input failed to satisfy the constraints specified by the service."]
module UnauthorizedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The client is not authenticated or authorized to perform the requested operation."]
module ThrottlingException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      serviceCode: String_.t option
        [@ocaml.doc "The code for the service where the quota was exceeded"];
      quotaCode: String_.t option
        [@ocaml.doc "The code of the quota that was exceeded"];
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the operation"]}
    let make ?message =
      fun ?serviceCode ->
        fun ?quotaCode ->
          fun ?retryAfterSeconds ->
            fun () -> { message; serviceCode; quotaCode; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?quotaCode ?serviceCode ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation could not be completed because too many requests were sent at once. Wait a bit and try again later."]
module ServiceQuotaExceededException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the resource"];
      resourceType: String_.t option [@ocaml.doc "The type of the resource"];
      serviceCode: String_.t option
        [@ocaml.doc "The code for the service where the quota was exceeded"];
      quotaCode: String_.t option
        [@ocaml.doc "The code of the quota that was exceeded"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType ->
          fun ?serviceCode ->
            fun ?quotaCode ->
              fun () ->
                { message; resourceId; resourceType; serviceCode; quotaCode }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value));
        ("serviceCode", (Option.map x.serviceCode ~f:String_.to_value));
        ("quotaCode", (Option.map x.quotaCode ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let quotaCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "quotaCode") in
      let serviceCode =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "serviceCode") in
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let quotaCode = field_map json__ "quotaCode" String_.of_json in
      let serviceCode = field_map json__ "serviceCode" String_.of_json in
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?quotaCode ?serviceCode ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requested operation could not be completed because it would exceed the service's quota or limit."]
module ResourceNotFoundException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      resourceId: String_.t option
        [@ocaml.doc "The unique identifier of the resource"];
      resourceType: String_.t option [@ocaml.doc "The type of the resource"]}
    let make ?message =
      fun ?resourceId ->
        fun ?resourceType -> fun () -> { message; resourceId; resourceType }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("resourceId", (Option.map x.resourceId ~f:String_.to_value));
        ("resourceType", (Option.map x.resourceType ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceType =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceType") in
      let resourceId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceId") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?resourceType ?resourceId ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceType = field_map json__ "resourceType" String_.of_json in
      let resourceId = field_map json__ "resourceId" String_.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?resourceType ?resourceId ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The requested resource could not be found."]
module InternalServerException =
  struct
    type nonrec t =
      {
      message: String_.t option ;
      retryAfterSeconds: Integer.t option
        [@ocaml.doc
          "The number of seconds to wait before retrying the operation"]}
    let make ?message =
      fun ?retryAfterSeconds -> fun () -> { message; retryAfterSeconds }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:String_.to_value));
        ("Retry-After", (Option.map x.retryAfterSeconds ~f:Integer.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let retryAfterSeconds =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "Retry-After") in
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "message") in
      make ?retryAfterSeconds ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let retryAfterSeconds =
        field_map json__ "retryAfterSeconds" Integer.of_json in
      let message = field_map json__ "message" String_.of_json in
      make ?retryAfterSeconds ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An internal service error occurred while processing the request."]
module CreateLibraryItemOutput =
  struct
    type nonrec t =
      {
      libraryItemId: UUID.t option
        [@ocaml.doc "The unique identifier of the new library item."];
      status: String_.t option
        [@ocaml.doc
          "The status of the new library item, such as \"Published\"."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who created the library item."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the library item."];
      ratingCount: Integer.t option
        [@ocaml.doc
          "The number of ratings the library item has received from users."];
      isVerified: Boolean.t option
        [@ocaml.doc "Indicates whether the library item has been verified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryItemId =
      fun ?status ->
        fun ?createdAt ->
          fun ?createdBy ->
            fun ?updatedAt ->
              fun ?updatedBy ->
                fun ?ratingCount ->
                  fun ?isVerified ->
                    fun () ->
                      {
                        libraryItemId;
                        status;
                        createdAt;
                        createdBy;
                        updatedAt;
                        updatedBy;
                        ratingCount;
                        isVerified
                      }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("libraryItemId", (Option.map x.libraryItemId ~f:UUID.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("ratingCount", (Option.map x.ratingCount ~f:Integer.to_value));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let ratingCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ratingCount") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let libraryItemId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "libraryItemId") in
      make ?isVerified ?ratingCount ?updatedBy ?updatedAt ?createdBy
        ?createdAt ?status ?libraryItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let ratingCount = field_map json__ "ratingCount" Integer.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let libraryItemId = field_map json__ "libraryItemId" UUID.of_json in
      make ?isVerified ?ratingCount ?updatedBy ?updatedAt ?createdBy
        ?createdAt ?status ?libraryItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new library item for an Amazon Q App, allowing it to be discovered and used by other allowed users."]
module DocumentScope =
  struct
    type nonrec t =
      | APPLICATION 
      | SESSION 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | APPLICATION -> "APPLICATION"
      | SESSION -> "SESSION"
      | Non_static_id s -> s
    let of_string =
      function
      | "APPLICATION" -> APPLICATION
      | "SESSION" -> SESSION
      | 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 DocumentScope" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"DocumentScope" j)
    let to_json = simple_to_json to_value
  end
module CreatePresignedUrlInputFileContentsSha256String =
  struct
    type nonrec t = string
    let context_ = "CreatePresignedUrlInputFileContentsSha256String"
    let make i =
      let open Result in
        ok_or_failwith
          (check_pattern i
             ~pattern:"[A-Za-z0-9+/]{43}=$|^[A-Za-z0-9+/]{42}==$|^[A-Za-z0-9+/]{44}");
        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:"CreatePresignedUrlInputFileContentsSha256String"
        j
    let to_json = simple_to_json to_value
  end
module CreatePresignedUrlInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      cardId: UUID.t
        [@ocaml.doc
          "The unique identifier of the card the file is associated with."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App the file is associated with."];
      fileContentsSha256: CreatePresignedUrlInputFileContentsSha256String.t
        [@ocaml.doc
          "The Base64-encoded SHA-256 digest of the contents of the file to be uploaded."];
      fileName: Filename.t
        [@ocaml.doc "The name of the file to be uploaded."];
      scope: DocumentScope.t
        [@ocaml.doc
          "Whether the file is associated with a Q App definition or a specific Q App session."];
      sessionId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App session the file is associated with, if applicable."]}
    let context_ = "CreatePresignedUrlInput"
    let make ?sessionId =
      fun ~instanceId ->
        fun ~cardId ->
          fun ~appId ->
            fun ~fileContentsSha256 ->
              fun ~fileName ->
                fun ~scope ->
                  fun () ->
                    {
                      sessionId;
                      instanceId;
                      cardId;
                      appId;
                      fileContentsSha256;
                      fileName;
                      scope
                    }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("cardId", (Some (UUID.to_value x.cardId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("fileContentsSha256",
          (Some
             (CreatePresignedUrlInputFileContentsSha256String.to_value
                x.fileContentsSha256)));
        ("fileName", (Some (Filename.to_value x.fileName)));
        ("scope", (Some (DocumentScope.to_value x.scope)));
        ("sessionId", (Option.map x.sessionId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sessionId") in
      let scope =
        DocumentScope.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "scope") in
      let fileName =
        Filename.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fileName") in
      let fileContentsSha256 =
        CreatePresignedUrlInputFileContentsSha256String.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileContentsSha256") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let cardId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "cardId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?sessionId ~scope ~fileName ~fileContentsSha256 ~appId ~cardId
        ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map json__ "sessionId" UUID.of_json in
      let scope = field_map_exn json__ "scope" DocumentScope.of_json in
      let fileName = field_map_exn json__ "fileName" Filename.of_json in
      let fileContentsSha256 =
        field_map_exn json__ "fileContentsSha256"
          CreatePresignedUrlInputFileContentsSha256String.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let cardId = field_map_exn json__ "cardId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?sessionId ~scope ~fileName ~fileContentsSha256 ~appId ~cardId
        ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a presigned URL for an S3 POST operation to upload a file. You can use this URL to set a default file for a FileUploadCard in a Q App definition or to provide a file for a single Q App run. The scope parameter determines how the file will be used, either at the app definition level or the app session level. The IAM permissions are derived from the qapps:ImportDocument action. For more information on the IAM policy for Amazon Q Apps, see IAM permissions for using Amazon Q Apps."]
module PresignedUrlFields =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module CreatePresignedUrlOutput =
  struct
    type nonrec t =
      {
      fileId: String_.t option
        [@ocaml.doc
          "The unique identifier assigned to the file to be uploaded."];
      presignedUrl: String_.t option
        [@ocaml.doc
          "The URL for a presigned S3 POST operation used to upload a file."];
      presignedUrlFields: PresignedUrlFields.t option
        [@ocaml.doc
          "The form fields to include in the presigned S3 POST operation used to upload a file."];
      presignedUrlExpiration: QAppsTimestamp.t option
        [@ocaml.doc
          "The date and time that the presigned URL will expire in ISO 8601 format."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileId =
      fun ?presignedUrl ->
        fun ?presignedUrlFields ->
          fun ?presignedUrlExpiration ->
            fun () ->
              {
                fileId;
                presignedUrl;
                presignedUrlFields;
                presignedUrlExpiration
              }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("fileId", (Option.map x.fileId ~f:String_.to_value));
        ("presignedUrl", (Option.map x.presignedUrl ~f:String_.to_value));
        ("presignedUrlFields",
          (Option.map x.presignedUrlFields ~f:PresignedUrlFields.to_value));
        ("presignedUrlExpiration",
          (Option.map x.presignedUrlExpiration ~f:QAppsTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let presignedUrlExpiration =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "presignedUrlExpiration") in
      let presignedUrlFields =
        (Option.map ~f:PresignedUrlFields.of_xml)
          (Xml.child xml_arg0 "presignedUrlFields") in
      let presignedUrl =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "presignedUrl") in
      let fileId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "fileId") in
      make ?presignedUrlExpiration ?presignedUrlFields ?presignedUrl ?fileId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let presignedUrlExpiration =
        field_map json__ "presignedUrlExpiration" QAppsTimestamp.of_json in
      let presignedUrlFields =
        field_map json__ "presignedUrlFields" PresignedUrlFields.of_json in
      let presignedUrl = field_map json__ "presignedUrl" String_.of_json in
      let fileId = field_map json__ "fileId" String_.of_json in
      make ?presignedUrlExpiration ?presignedUrlFields ?presignedUrl ?fileId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a presigned URL for an S3 POST operation to upload a file. You can use this URL to set a default file for a FileUploadCard in a Q App definition or to provide a file for a single Q App run. The scope parameter determines how the file will be used, either at the app definition level or the app session level. The IAM permissions are derived from the qapps:ImportDocument action. For more information on the IAM policy for Amazon Q Apps, see IAM permissions for using Amazon Q Apps."]
module TagMap =
  struct
    type nonrec t = (String_.t * String_.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((String_.of_string chopped),
                              (String_.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (String_.to_value x) |>
                    (fun x -> (String_.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:String_.of_string
        ~of_json:String_.of_json j
    let to_json v = composed_to_json to_value v
  end
module Description =
  struct
    type nonrec t = string
    let context_ = "Description"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:500) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"Description" j
    let to_json = simple_to_json to_value
  end
module CreateQAppInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      title: Title.t [@ocaml.doc "The title of the new Q App."];
      description: Description.t option
        [@ocaml.doc "The description of the new Q App."];
      appDefinition: AppDefinitionInput.t
        [@ocaml.doc
          "The definition of the new Q App, specifying the cards and flow."];
      tags: TagMap.t option
        [@ocaml.doc "Optional tags to associate with the new Q App."]}
    let context_ = "CreateQAppInput"
    let make ?description =
      fun ?tags ->
        fun ~instanceId ->
          fun ~title ->
            fun ~appDefinition ->
              fun () ->
                { description; tags; instanceId; title; appDefinition }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("title", (Some (Title.to_value x.title)));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("appDefinition",
          (Some (AppDefinitionInput.to_value x.appDefinition)));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let appDefinition =
        AppDefinitionInput.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appDefinition") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title =
        Title.of_xml (Xml.child_exn ~context:context_ xml_arg0 "title") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?tags ~appDefinition ?description ~title ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let appDefinition =
        field_map_exn json__ "appDefinition" AppDefinitionInput.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map_exn json__ "title" Title.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?tags ~appDefinition ?description ~title ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Amazon Q App based on the provided definition. The Q App definition specifies the cards and flow of the Q App. This operation also calculates the dependencies between the cards by inspecting the references in the prompts."]
module CreateQAppOutput =
  struct
    type nonrec t =
      {
      appId: UUID.t option
        [@ocaml.doc "The unique identifier of the new Q App."];
      appArn: AppArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the new Q App."];
      title: Title.t option [@ocaml.doc "The title of the new Q App."];
      description: Description.t option
        [@ocaml.doc "The description of the new Q App."];
      initialPrompt: InitialPrompt.t option
        [@ocaml.doc
          "The initial prompt displayed when the Q App is started."];
      appVersion: AppVersion.t option
        [@ocaml.doc "The version of the new Q App."];
      status: AppStatus.t option
        [@ocaml.doc "The status of the new Q App, such as \"Created\"."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who created the Q App."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the Q App."];
      requiredCapabilities: AppRequiredCapabilities.t option
        [@ocaml.doc
          "The capabilities required to run the Q App, such as file upload or third-party integrations."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `ContentTooLargeException of ContentTooLargeException.t 
      | `InternalServerException of InternalServerException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?appId =
      fun ?appArn ->
        fun ?title ->
          fun ?description ->
            fun ?initialPrompt ->
              fun ?appVersion ->
                fun ?status ->
                  fun ?createdAt ->
                    fun ?createdBy ->
                      fun ?updatedAt ->
                        fun ?updatedBy ->
                          fun ?requiredCapabilities ->
                            fun () ->
                              {
                                appId;
                                appArn;
                                title;
                                description;
                                initialPrompt;
                                appVersion;
                                status;
                                createdAt;
                                createdBy;
                                updatedAt;
                                updatedBy;
                                requiredCapabilities
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ConflictException" ->
          `ConflictException (ConflictException.of_json json)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ContentTooLargeException e ->
          `Assoc
            [("error", (`String "ContentTooLargeException"));
            ("details", (ContentTooLargeException.to_json e))]
      | `InternalServerException e ->
          `Assoc
            [("error", (`String "InternalServerException"));
            ("details", (InternalServerException.to_json e))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appArn", (Option.map x.appArn ~f:AppArn.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("initialPrompt",
          (Option.map x.initialPrompt ~f:InitialPrompt.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("status", (Option.map x.status ~f:AppStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("requiredCapabilities",
          (Option.map x.requiredCapabilities
             ~f:AppRequiredCapabilities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requiredCapabilities =
        (Option.map ~f:AppRequiredCapabilities.of_xml)
          (Xml.child xml_arg0 "requiredCapabilities") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:AppStatus.of_xml) (Xml.child xml_arg0 "status") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let initialPrompt =
        (Option.map ~f:InitialPrompt.of_xml)
          (Xml.child xml_arg0 "initialPrompt") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let appArn =
        (Option.map ~f:AppArn.of_xml) (Xml.child xml_arg0 "appArn") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      make ?requiredCapabilities ?updatedBy ?updatedAt ?createdBy ?createdAt
        ?status ?appVersion ?initialPrompt ?description ?title ?appArn ?appId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requiredCapabilities =
        field_map json__ "requiredCapabilities"
          AppRequiredCapabilities.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" AppStatus.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let initialPrompt =
        field_map json__ "initialPrompt" InitialPrompt.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let appArn = field_map json__ "appArn" AppArn.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      make ?requiredCapabilities ?updatedBy ?updatedAt ?createdBy ?createdAt
        ?status ?appVersion ?initialPrompt ?description ?title ?appArn ?appId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Creates a new Amazon Q App based on the provided definition. The Q App definition specifies the cards and flow of the Q App. This operation also calculates the dependencies between the cards by inspecting the references in the prompts."]
module DeleteLibraryItemInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc "The unique identifier of the library item to delete."]}
    let context_ = "DeleteLibraryItemInput"
    let make ~instanceId =
      fun ~libraryItemId -> fun () -> { instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes a library item for an Amazon Q App, removing it from the library so it can no longer be discovered or used by other users."]
module DeleteQAppInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc "The unique identifier of the Q App to delete."]}
    let context_ = "DeleteQAppInput"
    let make ~instanceId = fun ~appId -> fun () -> { instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Deletes an Amazon Q App owned by the user. If the Q App was previously published to the library, it is also removed from the library."]
module DescribeQAppPermissionsInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q App for which to retrieve permissions."]}
    let context_ = "DescribeQAppPermissionsInput"
    let make ~instanceId = fun ~appId -> fun () -> { instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes read permissions for a Amazon Q App in Amazon Q Business application environment instance."]
module PrincipalOutputUserTypeEnum =
  struct
    type nonrec t =
      | Owner 
      | User 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Owner -> "owner" | User -> "user" | Non_static_id s -> s
    let of_string =
      function | "owner" -> Owner | "user" -> 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 PrincipalOutputUserTypeEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PrincipalOutputUserTypeEnum" j)
    let to_json = simple_to_json to_value
  end
module PrincipalOutputUserIdString =
  struct
    type nonrec t = string
    let context_ = "PrincipalOutputUserIdString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrincipalOutputUserIdString" j
    let to_json = simple_to_json to_value
  end
module PrincipalOutputEmailString =
  struct
    type nonrec t = string
    let context_ = "PrincipalOutputEmailString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PrincipalOutputEmailString" j
    let to_json = simple_to_json to_value
  end
module PrincipalOutput =
  struct
    type nonrec t =
      {
      userId: PrincipalOutputUserIdString.t option
        [@ocaml.doc "The unique identifier of the user."];
      userType: PrincipalOutputUserTypeEnum.t option
        [@ocaml.doc "The type of the user."];
      email: PrincipalOutputEmailString.t option
        [@ocaml.doc "The email address associated with the user."]}
    let make ?userId =
      fun ?userType -> fun ?email -> fun () -> { userId; userType; email }
    let to_value x =
      structure_to_value
        [("userId",
           (Option.map x.userId ~f:PrincipalOutputUserIdString.to_value));
        ("userType",
          (Option.map x.userType ~f:PrincipalOutputUserTypeEnum.to_value));
        ("email",
          (Option.map x.email ~f:PrincipalOutputEmailString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let email =
        (Option.map ~f:PrincipalOutputEmailString.of_xml)
          (Xml.child xml_arg0 "email") in
      let userType =
        (Option.map ~f:PrincipalOutputUserTypeEnum.of_xml)
          (Xml.child xml_arg0 "userType") in
      let userId =
        (Option.map ~f:PrincipalOutputUserIdString.of_xml)
          (Xml.child xml_arg0 "userId") in
      make ?email ?userType ?userId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let email = field_map json__ "email" PrincipalOutputEmailString.of_json in
      let userType =
        field_map json__ "userType" PrincipalOutputUserTypeEnum.of_json in
      let userId =
        field_map json__ "userId" PrincipalOutputUserIdString.of_json in
      make ?email ?userType ?userId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The principal for which the permission applies."]
module PermissionOutputActionEnum =
  struct
    type nonrec t =
      | Read 
      | Write 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Read -> "read" | Write -> "write" | Non_static_id s -> s
    let of_string =
      function | "read" -> Read | "write" -> Write | 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 PermissionOutputActionEnum"
           xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PermissionOutputActionEnum" j)
    let to_json = simple_to_json to_value
  end
module PermissionOutput =
  struct
    type nonrec t =
      {
      action: PermissionOutputActionEnum.t option
        [@ocaml.doc "The action associated with the permission."];
      principal: PrincipalOutput.t option
        [@ocaml.doc "The principal user to which the permission applies."]}
    let make ?action = fun ?principal -> fun () -> { action; principal }
    let to_value x =
      structure_to_value
        [("action",
           (Option.map x.action ~f:PermissionOutputActionEnum.to_value));
        ("principal", (Option.map x.principal ~f:PrincipalOutput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principal =
        (Option.map ~f:PrincipalOutput.of_xml)
          (Xml.child xml_arg0 "principal") in
      let action =
        (Option.map ~f:PermissionOutputActionEnum.of_xml)
          (Xml.child xml_arg0 "action") in
      make ?principal ?action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principal = field_map json__ "principal" PrincipalOutput.of_json in
      let action =
        field_map json__ "action" PermissionOutputActionEnum.of_json in
      make ?principal ?action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The permission granted to the Amazon Q App."]
module PermissionsOutputList =
  struct
    type nonrec t = PermissionOutput.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:PermissionOutput.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:PermissionOutput.of_xml)
    let of_json j =
      list_of_json ~kind:"PermissionsOutputList"
        ~of_json:PermissionOutput.of_json j
    let to_json v = composed_to_json to_value v
  end
module DescribeQAppPermissionsOutput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Q App for which permissions are returned."];
      appId: String_.t option
        [@ocaml.doc
          "The unique identifier of the Amazon Q App for which permissions are returned."];
      permissions: PermissionsOutputList.t option
        [@ocaml.doc "The list of permissions granted for the Amazon Q App."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?appId ->
        fun ?permissions -> fun () -> { resourceArn; appId; permissions }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("resourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("appId", (Option.map x.appId ~f:String_.to_value));
        ("permissions",
          (Option.map x.permissions ~f:PermissionsOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissions =
        (Option.map ~f:PermissionsOutputList.of_xml)
          (Xml.child xml_arg0 "permissions") in
      let appId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "appId") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceArn") in
      make ?permissions ?appId ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissions =
        field_map json__ "permissions" PermissionsOutputList.of_json in
      let appId = field_map json__ "appId" String_.of_json in
      let resourceArn = field_map json__ "resourceArn" String_.of_json in
      make ?permissions ?appId ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes read permissions for a Amazon Q App in Amazon Q Business application environment instance."]
module DisassociateLibraryItemReviewInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc
          "The unique identifier of the library item to remove the review from."]}
    let context_ = "DisassociateLibraryItemReviewInput"
    let make ~instanceId =
      fun ~libraryItemId -> fun () -> { instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes a rating or review previously submitted by the user for a library item."]
module DisassociateQAppFromUserInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App to disassociate from the user."]}
    let context_ = "DisassociateQAppFromUserInput"
    let make ~instanceId = fun ~appId -> fun () -> { instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Disassociates a Q App from a user removing the user's access to run the Q App."]
module ExportQAppSessionDataInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App data collection session."]}
    let context_ = "ExportQAppSessionDataInput"
    let make ~instanceId =
      fun ~sessionId -> fun () -> { instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exports the collected data of a Q App data collection session."]
module ExportQAppSessionDataOutput =
  struct
    type nonrec t =
      {
      csvFileLink: String_.t option
        [@ocaml.doc
          "The link where the exported Q App session data can be downloaded from."];
      expiresAt: QAppsTimestamp.t option
        [@ocaml.doc
          "The date and time when the link for the exported Q App session data expires."];
      sessionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Q App data collection session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?csvFileLink =
      fun ?expiresAt ->
        fun ?sessionArn -> fun () -> { csvFileLink; expiresAt; sessionArn }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("csvFileLink", (Option.map x.csvFileLink ~f:String_.to_value));
        ("expiresAt", (Option.map x.expiresAt ~f:QAppsTimestamp.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let expiresAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "expiresAt") in
      let csvFileLink =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "csvFileLink") in
      make ?sessionArn ?expiresAt ?csvFileLink ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let expiresAt = field_map json__ "expiresAt" QAppsTimestamp.of_json in
      let csvFileLink = field_map json__ "csvFileLink" String_.of_json in
      make ?sessionArn ?expiresAt ?csvFileLink ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exports the collected data of a Q App data collection session."]
module GetLibraryItemInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc "The unique identifier of the library item to retrieve."];
      appId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Amazon Q App associated with the library item."]}
    let context_ = "GetLibraryItemInput"
    let make ?appId =
      fun ~instanceId ->
        fun ~libraryItemId -> fun () -> { appId; instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)));
        ("appId", (Option.map x.appId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?appId ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appId = field_map json__ "appId" UUID.of_json in
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?appId ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a library item for an Amazon Q App, including its metadata, categories, ratings, and usage statistics."]
module GetLibraryItemOutput =
  struct
    type nonrec t =
      {
      libraryItemId: UUID.t option
        [@ocaml.doc "The unique identifier of the library item."];
      appId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App associated with the library item."];
      appVersion: AppVersion.t option
        [@ocaml.doc
          "The version of the Q App associated with the library item."];
      categories: CategoryList.t option
        [@ocaml.doc
          "The categories associated with the library item for discovery."];
      status: String_.t option
        [@ocaml.doc "The status of the library item, such as \"Published\"."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who created the library item."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the library item."];
      ratingCount: Integer.t option
        [@ocaml.doc
          "The number of ratings the library item has received from users."];
      isRatedByUser: Boolean.t option
        [@ocaml.doc "Whether the current user has rated the library item."];
      userCount: Integer.t option
        [@ocaml.doc
          "The number of users who have associated the Q App with their account."];
      isVerified: Boolean.t option
        [@ocaml.doc "Indicates whether the library item has been verified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryItemId =
      fun ?appId ->
        fun ?appVersion ->
          fun ?categories ->
            fun ?status ->
              fun ?createdAt ->
                fun ?createdBy ->
                  fun ?updatedAt ->
                    fun ?updatedBy ->
                      fun ?ratingCount ->
                        fun ?isRatedByUser ->
                          fun ?userCount ->
                            fun ?isVerified ->
                              fun () ->
                                {
                                  libraryItemId;
                                  appId;
                                  appVersion;
                                  categories;
                                  status;
                                  createdAt;
                                  createdBy;
                                  updatedAt;
                                  updatedBy;
                                  ratingCount;
                                  isRatedByUser;
                                  userCount;
                                  isVerified
                                }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("libraryItemId", (Option.map x.libraryItemId ~f:UUID.to_value));
        ("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("categories", (Option.map x.categories ~f:CategoryList.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("ratingCount", (Option.map x.ratingCount ~f:Integer.to_value));
        ("isRatedByUser", (Option.map x.isRatedByUser ~f:Boolean.to_value));
        ("userCount", (Option.map x.userCount ~f:Integer.to_value));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let userCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "userCount") in
      let isRatedByUser =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isRatedByUser") in
      let ratingCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ratingCount") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let categories =
        (Option.map ~f:CategoryList.of_xml) (Xml.child xml_arg0 "categories") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      let libraryItemId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "libraryItemId") in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let userCount = field_map json__ "userCount" Integer.of_json in
      let isRatedByUser = field_map json__ "isRatedByUser" Boolean.of_json in
      let ratingCount = field_map json__ "ratingCount" Integer.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let categories = field_map json__ "categories" CategoryList.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      let libraryItemId = field_map json__ "libraryItemId" UUID.of_json in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves details about a library item for an Amazon Q App, including its metadata, categories, ratings, and usage statistics."]
module GetQAppInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc "The unique identifier of the Q App to retrieve."];
      appVersion: AppVersion.t option
        [@ocaml.doc "The version of the Q App."]}
    let context_ = "GetQAppInput"
    let make ?appVersion =
      fun ~instanceId ->
        fun ~appId -> fun () -> { appVersion; instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?appVersion ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?appVersion ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the full details of an Q App, including its definition specifying the cards and flow."]
module GetQAppOutput =
  struct
    type nonrec t =
      {
      appId: UUID.t option [@ocaml.doc "The unique identifier of the Q App."];
      appArn: AppArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Q App."];
      title: Title.t option [@ocaml.doc "The title of the Q App."];
      description: Description.t option
        [@ocaml.doc "The description of the Q App."];
      initialPrompt: InitialPrompt.t option
        [@ocaml.doc
          "The initial prompt displayed when the Q App is started."];
      appVersion: AppVersion.t option
        [@ocaml.doc "The version of the Q App."];
      status: AppStatus.t option [@ocaml.doc "The status of the Q App."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who created the Q App."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the Q App."];
      requiredCapabilities: AppRequiredCapabilities.t option
        [@ocaml.doc
          "The capabilities required to run the Q App, such as file upload or third-party integrations."];
      appDefinition: AppDefinition.t option
        [@ocaml.doc
          "The full definition of the Q App, specifying the cards and flow."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?appId =
      fun ?appArn ->
        fun ?title ->
          fun ?description ->
            fun ?initialPrompt ->
              fun ?appVersion ->
                fun ?status ->
                  fun ?createdAt ->
                    fun ?createdBy ->
                      fun ?updatedAt ->
                        fun ?updatedBy ->
                          fun ?requiredCapabilities ->
                            fun ?appDefinition ->
                              fun () ->
                                {
                                  appId;
                                  appArn;
                                  title;
                                  description;
                                  initialPrompt;
                                  appVersion;
                                  status;
                                  createdAt;
                                  createdBy;
                                  updatedAt;
                                  updatedBy;
                                  requiredCapabilities;
                                  appDefinition
                                }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appArn", (Option.map x.appArn ~f:AppArn.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("initialPrompt",
          (Option.map x.initialPrompt ~f:InitialPrompt.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("status", (Option.map x.status ~f:AppStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("requiredCapabilities",
          (Option.map x.requiredCapabilities
             ~f:AppRequiredCapabilities.to_value));
        ("appDefinition",
          (Option.map x.appDefinition ~f:AppDefinition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appDefinition =
        (Option.map ~f:AppDefinition.of_xml)
          (Xml.child xml_arg0 "appDefinition") in
      let requiredCapabilities =
        (Option.map ~f:AppRequiredCapabilities.of_xml)
          (Xml.child xml_arg0 "requiredCapabilities") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:AppStatus.of_xml) (Xml.child xml_arg0 "status") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let initialPrompt =
        (Option.map ~f:InitialPrompt.of_xml)
          (Xml.child xml_arg0 "initialPrompt") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let appArn =
        (Option.map ~f:AppArn.of_xml) (Xml.child xml_arg0 "appArn") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      make ?appDefinition ?requiredCapabilities ?updatedBy ?updatedAt
        ?createdBy ?createdAt ?status ?appVersion ?initialPrompt ?description
        ?title ?appArn ?appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appDefinition =
        field_map json__ "appDefinition" AppDefinition.of_json in
      let requiredCapabilities =
        field_map json__ "requiredCapabilities"
          AppRequiredCapabilities.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" AppStatus.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let initialPrompt =
        field_map json__ "initialPrompt" InitialPrompt.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let appArn = field_map json__ "appArn" AppArn.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      make ?appDefinition ?requiredCapabilities ?updatedBy ?updatedAt
        ?createdBy ?createdAt ?status ?appVersion ?initialPrompt ?description
        ?title ?appArn ?appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the full details of an Q App, including its definition specifying the cards and flow."]
module GetQAppSessionInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App session to retrieve."]}
    let context_ = "GetQAppSessionInput"
    let make ~instanceId =
      fun ~sessionId -> fun () -> { instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current state and results for an active session of an Amazon Q App."]
module GetQAppSessionMetadataInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc "The unique identifier of the Q App session."]}
    let context_ = "GetQAppSessionMetadataInput"
    let make ~instanceId =
      fun ~sessionId -> fun () -> { instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the current configuration of a Q App session."]
module SessionSharingRevealCards =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SessionSharingEnabled =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SessionSharingAcceptResponses =
  struct
    type nonrec t = bool
    let make i = i
    let of_string = Bool.of_string
    let to_value x = `Boolean x
    let to_query v = to_query to_value v
    let to_header x = Bool.to_string x
    let of_xml xml_arg0 =
      Bool.of_string (string_of_xml ~kind:"a boolean" xml_arg0)
    let of_json = bool_of_json
    let to_json = simple_to_json to_value
  end
module SessionSharingConfiguration =
  struct
    type nonrec t =
      {
      enabled: SessionSharingEnabled.t
        [@ocaml.doc
          "Indicates whether an Q App session is shareable with other users."];
      acceptResponses: SessionSharingAcceptResponses.t option
        [@ocaml.doc
          "Indicates whether an Q App session can accept responses from users."];
      revealCards: SessionSharingRevealCards.t option
        [@ocaml.doc
          "Indicates whether collected responses for an Q App session are revealed for all users."]}
    let context_ = "SessionSharingConfiguration"
    let make ?acceptResponses =
      fun ?revealCards ->
        fun ~enabled -> fun () -> { acceptResponses; revealCards; enabled }
    let to_value x =
      structure_to_value
        [("enabled", (Some (SessionSharingEnabled.to_value x.enabled)));
        ("acceptResponses",
          (Option.map x.acceptResponses
             ~f:SessionSharingAcceptResponses.to_value));
        ("revealCards",
          (Option.map x.revealCards ~f:SessionSharingRevealCards.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revealCards =
        (Option.map ~f:SessionSharingRevealCards.of_xml)
          (Xml.child xml_arg0 "revealCards") in
      let acceptResponses =
        (Option.map ~f:SessionSharingAcceptResponses.of_xml)
          (Xml.child xml_arg0 "acceptResponses") in
      let enabled =
        SessionSharingEnabled.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "enabled") in
      make ?revealCards ?acceptResponses ~enabled ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revealCards =
        field_map json__ "revealCards" SessionSharingRevealCards.of_json in
      let acceptResponses =
        field_map json__ "acceptResponses"
          SessionSharingAcceptResponses.of_json in
      let enabled =
        field_map_exn json__ "enabled" SessionSharingEnabled.of_json in
      make ?revealCards ?acceptResponses ~enabled ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The sharing configuration of an Amazon Q App data collection session."]
module SessionName =
  struct
    type nonrec t = string
    let context_ = "SessionName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:100) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"SessionName" j
    let to_json = simple_to_json to_value
  end
module GetQAppSessionMetadataOutput =
  struct
    type nonrec t =
      {
      sessionId: UUID.t option
        [@ocaml.doc "The unique identifier of the Q App session."];
      sessionArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Q App session."];
      sessionName: SessionName.t option
        [@ocaml.doc "The name of the Q App session."];
      sharingConfiguration: SessionSharingConfiguration.t option
        [@ocaml.doc
          "The sharing configuration of the Q App data collection session."];
      sessionOwner: Boolean.t option
        [@ocaml.doc
          "Indicates whether the current user is the owner of the Q App session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn ->
        fun ?sessionName ->
          fun ?sharingConfiguration ->
            fun ?sessionOwner ->
              fun () ->
                {
                  sessionId;
                  sessionArn;
                  sessionName;
                  sharingConfiguration;
                  sessionOwner
                }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:UUID.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value));
        ("sessionName", (Option.map x.sessionName ~f:SessionName.to_value));
        ("sharingConfiguration",
          (Option.map x.sharingConfiguration
             ~f:SessionSharingConfiguration.to_value));
        ("sessionOwner", (Option.map x.sessionOwner ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionOwner =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "sessionOwner") in
      let sharingConfiguration =
        (Option.map ~f:SessionSharingConfiguration.of_xml)
          (Xml.child xml_arg0 "sharingConfiguration") in
      let sessionName =
        (Option.map ~f:SessionName.of_xml) (Xml.child xml_arg0 "sessionName") in
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sessionOwner ?sharingConfiguration ?sessionName ?sessionArn
        ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionOwner = field_map json__ "sessionOwner" Boolean.of_json in
      let sharingConfiguration =
        field_map json__ "sharingConfiguration"
          SessionSharingConfiguration.of_json in
      let sessionName = field_map json__ "sessionName" SessionName.of_json in
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" UUID.of_json in
      make ?sessionOwner ?sharingConfiguration ?sessionName ?sessionArn
        ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Retrieves the current configuration of a Q App session."]
module GetQAppSessionOutput =
  struct
    type nonrec t =
      {
      sessionId: String_.t option
        [@ocaml.doc "The unique identifier of the Q App session."];
      sessionArn: String_.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Q App session."];
      sessionName: SessionName.t option
        [@ocaml.doc "The name of the Q App session."];
      appVersion: AppVersion.t option
        [@ocaml.doc "The version of the Q App used for the session."];
      latestPublishedAppVersion: AppVersion.t option
        [@ocaml.doc
          "The latest published version of the Q App used for the session."];
      status: ExecutionStatus.t option
        [@ocaml.doc "The current status of the Q App session."];
      cardStatus: CardStatusMap.t option
        [@ocaml.doc "The current status for each card in the Q App session."];
      userIsHost: Boolean.t option
        [@ocaml.doc
          "Indicates whether the current user is the owner of the Q App data collection session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn ->
        fun ?sessionName ->
          fun ?appVersion ->
            fun ?latestPublishedAppVersion ->
              fun ?status ->
                fun ?cardStatus ->
                  fun ?userIsHost ->
                    fun () ->
                      {
                        sessionId;
                        sessionArn;
                        sessionName;
                        appVersion;
                        latestPublishedAppVersion;
                        status;
                        cardStatus;
                        userIsHost
                      }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:String_.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value));
        ("sessionName", (Option.map x.sessionName ~f:SessionName.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("latestPublishedAppVersion",
          (Option.map x.latestPublishedAppVersion ~f:AppVersion.to_value));
        ("status", (Option.map x.status ~f:ExecutionStatus.to_value));
        ("cardStatus", (Option.map x.cardStatus ~f:CardStatusMap.to_value));
        ("userIsHost", (Option.map x.userIsHost ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let userIsHost =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "userIsHost") in
      let cardStatus =
        (Option.map ~f:CardStatusMap.of_xml)
          (Xml.child xml_arg0 "cardStatus") in
      let status =
        (Option.map ~f:ExecutionStatus.of_xml) (Xml.child xml_arg0 "status") in
      let latestPublishedAppVersion =
        (Option.map ~f:AppVersion.of_xml)
          (Xml.child xml_arg0 "latestPublishedAppVersion") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let sessionName =
        (Option.map ~f:SessionName.of_xml) (Xml.child xml_arg0 "sessionName") in
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?userIsHost ?cardStatus ?status ?latestPublishedAppVersion
        ?appVersion ?sessionName ?sessionArn ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let userIsHost = field_map json__ "userIsHost" Boolean.of_json in
      let cardStatus = field_map json__ "cardStatus" CardStatusMap.of_json in
      let status = field_map json__ "status" ExecutionStatus.of_json in
      let latestPublishedAppVersion =
        field_map json__ "latestPublishedAppVersion" AppVersion.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let sessionName = field_map json__ "sessionName" SessionName.of_json in
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" String_.of_json in
      make ?userIsHost ?cardStatus ?status ?latestPublishedAppVersion
        ?appVersion ?sessionName ?sessionArn ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the current state and results for an active session of an Amazon Q App."]
module ImportDocumentInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      cardId: UUID.t
        [@ocaml.doc
          "The unique identifier of the card the file is associated with."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App the file is associated with."];
      fileContentsBase64: String_.t
        [@ocaml.doc "The base64-encoded contents of the file to upload."];
      fileName: Filename.t
        [@ocaml.doc "The name of the file being uploaded."];
      scope: DocumentScope.t
        [@ocaml.doc
          "Whether the file is associated with a Q App definition or a specific Q App session."];
      sessionId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App session the file is associated with, if applicable."]}
    let context_ = "ImportDocumentInput"
    let make ?sessionId =
      fun ~instanceId ->
        fun ~cardId ->
          fun ~appId ->
            fun ~fileContentsBase64 ->
              fun ~fileName ->
                fun ~scope ->
                  fun () ->
                    {
                      sessionId;
                      instanceId;
                      cardId;
                      appId;
                      fileContentsBase64;
                      fileName;
                      scope
                    }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("cardId", (Some (UUID.to_value x.cardId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("fileContentsBase64",
          (Some (String_.to_value x.fileContentsBase64)));
        ("fileName", (Some (Filename.to_value x.fileName)));
        ("scope", (Some (DocumentScope.to_value x.scope)));
        ("sessionId", (Option.map x.sessionId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sessionId") in
      let scope =
        DocumentScope.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "scope") in
      let fileName =
        Filename.of_xml (Xml.child_exn ~context:context_ xml_arg0 "fileName") in
      let fileContentsBase64 =
        String_.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "fileContentsBase64") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let cardId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "cardId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?sessionId ~scope ~fileName ~fileContentsBase64 ~appId ~cardId
        ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map json__ "sessionId" UUID.of_json in
      let scope = field_map_exn json__ "scope" DocumentScope.of_json in
      let fileName = field_map_exn json__ "fileName" Filename.of_json in
      let fileContentsBase64 =
        field_map_exn json__ "fileContentsBase64" String_.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let cardId = field_map_exn json__ "cardId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?sessionId ~scope ~fileName ~fileContentsBase64 ~appId ~cardId
        ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uploads a file that can then be used either as a default in a FileUploadCard from Q App definition or as a file that is used inside a single Q App run. The purpose of the document is determined by a scope parameter that indicates whether it is at the app definition level or at the app session level."]
module ImportDocumentOutput =
  struct
    type nonrec t =
      {
      fileId: String_.t option
        [@ocaml.doc "The unique identifier assigned to the uploaded file."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ContentTooLargeException of ContentTooLargeException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?fileId = fun () -> { fileId }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ContentTooLargeException e ->
          `Assoc
            [("error", (`String "ContentTooLargeException"));
            ("details", (ContentTooLargeException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("fileId", (Option.map x.fileId ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "fileId") in
      make ?fileId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileId = field_map json__ "fileId" String_.of_json in
      make ?fileId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Uploads a file that can then be used either as a default in a FileUploadCard from Q App definition or as a file that is used inside a single Q App run. The purpose of the document is determined by a scope parameter that indicates whether it is at the app definition level or at the app session level."]
module LibraryItemMember =
  struct
    type nonrec t =
      {
      libraryItemId: UUID.t option
        [@ocaml.doc "The unique identifier of the library item."];
      appId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App associated with the library item."];
      appVersion: AppVersion.t option
        [@ocaml.doc
          "The version of the Q App associated with the library item."];
      categories: CategoryList.t option
        [@ocaml.doc "The categories associated with the library item."];
      status: String_.t option [@ocaml.doc "The status of the library item."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who created the library item."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the library item."];
      ratingCount: Integer.t option
        [@ocaml.doc "The number of ratings the library item has received."];
      isRatedByUser: Boolean.t option
        [@ocaml.doc "Whether the current user has rated the library item."];
      userCount: Integer.t option
        [@ocaml.doc "The number of users who have the associated Q App."];
      isVerified: Boolean.t option
        [@ocaml.doc "Indicates whether the library item has been verified."]}
    let make ?libraryItemId =
      fun ?appId ->
        fun ?appVersion ->
          fun ?categories ->
            fun ?status ->
              fun ?createdAt ->
                fun ?createdBy ->
                  fun ?updatedAt ->
                    fun ?updatedBy ->
                      fun ?ratingCount ->
                        fun ?isRatedByUser ->
                          fun ?userCount ->
                            fun ?isVerified ->
                              fun () ->
                                {
                                  libraryItemId;
                                  appId;
                                  appVersion;
                                  categories;
                                  status;
                                  createdAt;
                                  createdBy;
                                  updatedAt;
                                  updatedBy;
                                  ratingCount;
                                  isRatedByUser;
                                  userCount;
                                  isVerified
                                }
    let to_value x =
      structure_to_value
        [("libraryItemId", (Option.map x.libraryItemId ~f:UUID.to_value));
        ("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("categories", (Option.map x.categories ~f:CategoryList.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("ratingCount", (Option.map x.ratingCount ~f:Integer.to_value));
        ("isRatedByUser", (Option.map x.isRatedByUser ~f:Boolean.to_value));
        ("userCount", (Option.map x.userCount ~f:Integer.to_value));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let userCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "userCount") in
      let isRatedByUser =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isRatedByUser") in
      let ratingCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ratingCount") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let categories =
        (Option.map ~f:CategoryList.of_xml) (Xml.child xml_arg0 "categories") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      let libraryItemId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "libraryItemId") in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let userCount = field_map json__ "userCount" Integer.of_json in
      let isRatedByUser = field_map json__ "isRatedByUser" Boolean.of_json in
      let ratingCount = field_map json__ "ratingCount" Integer.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let categories = field_map json__ "categories" CategoryList.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      let libraryItemId = field_map json__ "libraryItemId" UUID.of_json in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A library item is a snapshot of an Amazon Q App that can be published so the users in their Amazon Q Apps library can discover it, clone it, and run it."]
module LibraryItemList =
  struct
    type nonrec t = LibraryItemMember.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:LibraryItemMember.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:LibraryItemMember.of_xml)
    let of_json j =
      list_of_json ~kind:"LibraryItemList" ~of_json:LibraryItemMember.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module LibraryItemStatus =
  struct
    type nonrec t =
      | PUBLISHED 
      | DISABLED 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | PUBLISHED -> "PUBLISHED"
      | DISABLED -> "DISABLED"
      | Non_static_id s -> s
    let of_string =
      function
      | "PUBLISHED" -> PUBLISHED
      | "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 LibraryItemStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"LibraryItemStatus" j)
    let to_json = simple_to_json to_value
  end
module ListCategoriesInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."]}
    let context_ = "ListCategoriesInput"
    let make ~instanceId = fun () -> { instanceId }
    let of_header_and_body =
      ((fun (xs, pipe) ->
          make
            ~instanceId:(InstanceId.of_string
                           ((List.Assoc.find_exn ~equal:String.Caseless.equal)
                              xs "instance-id")) ())
      [@warning "-27"])
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the categories of a Amazon Q Business application environment instance. For more information, see Custom labels for Amazon Q Apps."]
module ListCategoriesOutput =
  struct
    type nonrec t =
      {
      categories: CategoriesList.t option
        [@ocaml.doc
          "The categories of a Amazon Q Business application environment instance."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?categories = fun () -> { categories }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("categories", (Option.map x.categories ~f:CategoriesList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        (Option.map ~f:CategoriesList.of_xml)
          (Xml.child xml_arg0 "categories") in
      make ?categories ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories = field_map json__ "categories" CategoriesList.of_json in
      make ?categories ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the categories of a Amazon Q Business application environment instance. For more information, see Custom labels for Amazon Q Apps."]
module PaginationToken =
  struct
    type nonrec t = string
    let context_ = "PaginationToken"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:300) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PaginationToken" j
    let to_json = simple_to_json to_value
  end
module PageLimit =
  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 PageLimit" 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 ListLibraryItemsInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      limit: PageLimit.t option
        [@ocaml.doc
          "The maximum number of library items to return in the response."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."];
      categoryId: UUID.t option
        [@ocaml.doc "Optional category to filter the library items by."]}
    let context_ = "ListLibraryItemsInput"
    let make ?limit =
      fun ?nextToken ->
        fun ?categoryId ->
          fun ~instanceId ->
            fun () -> { limit; nextToken; categoryId; instanceId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("limit", (Option.map x.limit ~f:PageLimit.to_value));
        ("nextToken", (Option.map x.nextToken ~f:PaginationToken.to_value));
        ("categoryId", (Option.map x.categoryId ~f:UUID.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categoryId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "categoryId") in
      let nextToken =
        (Option.map ~f:PaginationToken.of_xml)
          (Xml.child xml_arg0 "nextToken") in
      let limit =
        (Option.map ~f:PageLimit.of_xml) (Xml.child xml_arg0 "limit") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?categoryId ?nextToken ?limit ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categoryId = field_map json__ "categoryId" UUID.of_json in
      let nextToken = field_map json__ "nextToken" PaginationToken.of_json in
      let limit = field_map json__ "limit" PageLimit.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?categoryId ?nextToken ?limit ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the library items for Amazon Q Apps that are published and available for users in your Amazon Web Services account."]
module ListLibraryItemsOutput =
  struct
    type nonrec t =
      {
      libraryItems: LibraryItemList.t option
        [@ocaml.doc
          "The list of library items meeting the request criteria."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to request the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryItems =
      fun ?nextToken -> fun () -> { libraryItems; 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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("libraryItems",
           (Option.map x.libraryItems ~f:LibraryItemList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let libraryItems =
        (Option.map ~f:LibraryItemList.of_xml)
          (Xml.child xml_arg0 "libraryItems") in
      make ?nextToken ?libraryItems ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let libraryItems =
        field_map json__ "libraryItems" LibraryItemList.of_json in
      make ?nextToken ?libraryItems ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the library items for Amazon Q Apps that are published and available for users in your Amazon Web Services account."]
module ListQAppSessionDataInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App data collection session."]}
    let context_ = "ListQAppSessionDataInput"
    let make ~instanceId =
      fun ~sessionId -> fun () -> { instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the collected data of a Q App data collection session."]
module UserId =
  struct
    type nonrec t = string
    let context_ = "UserId"
    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:"UserId" 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 of a user."]}
    let make ?userId = fun () -> { userId }
    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 "A user of an Amazon Q App."]
module QAppSessionData =
  struct
    type nonrec t =
      {
      cardId: UUID.t option
        [@ocaml.doc
          "The card Id associated with the response submitted for a Q App session."];
      value: Document.t option
        [@ocaml.doc "The response submitted for a Q App session."];
      user: User.t option
        [@ocaml.doc
          "The user who submitted the response for a Q App session."];
      submissionId: UUID.t option
        [@ocaml.doc "The unique identifier of the submission."];
      timestamp: QAppsTimestamp.t option
        [@ocaml.doc "The date and time when the session data is submitted."]}
    let make ?cardId =
      fun ?value ->
        fun ?user ->
          fun ?submissionId ->
            fun ?timestamp ->
              fun () -> { cardId; value; user; submissionId; timestamp }
    let to_value x =
      structure_to_value
        [("cardId", (Option.map x.cardId ~f:UUID.to_value));
        ("value", (Option.map x.value ~f:Document.to_value));
        ("user", (Option.map x.user ~f:User.to_value));
        ("submissionId", (Option.map x.submissionId ~f:UUID.to_value));
        ("timestamp", (Option.map x.timestamp ~f:QAppsTimestamp.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let timestamp =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "timestamp") in
      let submissionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "submissionId") in
      let user = (Option.map ~f:User.of_xml) (Xml.child xml_arg0 "user") in
      let value =
        (Option.map ~f:Document.of_xml) (Xml.child xml_arg0 "value") in
      let cardId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "cardId") in
      make ?timestamp ?submissionId ?user ?value ?cardId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let timestamp = field_map json__ "timestamp" QAppsTimestamp.of_json in
      let submissionId = field_map json__ "submissionId" UUID.of_json in
      let user = field_map json__ "user" User.of_json in
      let value = field_map json__ "value" Document.of_json in
      let cardId = field_map json__ "cardId" UUID.of_json in
      make ?timestamp ?submissionId ?user ?value ?cardId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The response collected for a Amazon Q App session. This container represents a single response to a Q App session."]
module QAppSessionDataList =
  struct
    type nonrec t = QAppSessionData.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:QAppSessionData.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:QAppSessionData.of_xml)
    let of_json j =
      list_of_json ~kind:"QAppSessionDataList"
        ~of_json:QAppSessionData.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListQAppSessionDataOutput =
  struct
    type nonrec t =
      {
      sessionId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App data collection session."];
      sessionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Q App data collection session."];
      sessionData: QAppSessionDataList.t option
        [@ocaml.doc "The collected responses of a Q App session."];
      nextToken: String_.t option
        [@ocaml.doc
          "The pagination token that indicates the next set of results to retrieve."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn ->
        fun ?sessionData ->
          fun ?nextToken ->
            fun () -> { sessionId; sessionArn; sessionData; 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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:UUID.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value));
        ("sessionData",
          (Option.map x.sessionData ~f:QAppSessionDataList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let sessionData =
        (Option.map ~f:QAppSessionDataList.of_xml)
          (Xml.child xml_arg0 "sessionData") in
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?nextToken ?sessionData ?sessionArn ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let sessionData =
        field_map json__ "sessionData" QAppSessionDataList.of_json in
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" UUID.of_json in
      make ?nextToken ?sessionData ?sessionArn ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the collected data of a Q App data collection session."]
module ListQAppsInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      limit: PageLimit.t option
        [@ocaml.doc
          "The maximum number of Q Apps to return in the response."];
      nextToken: PaginationToken.t option
        [@ocaml.doc "The token to request the next page of results."]}
    let context_ = "ListQAppsInput"
    let make ?limit =
      fun ?nextToken ->
        fun ~instanceId -> fun () -> { limit; nextToken; instanceId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("limit", (Option.map x.limit ~f:PageLimit.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 limit =
        (Option.map ~f:PageLimit.of_xml) (Xml.child xml_arg0 "limit") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?nextToken ?limit ~instanceId ()
    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 limit = field_map json__ "limit" PageLimit.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?nextToken ?limit ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Q Apps owned by or associated with the user either because they created it or because they used it from the library in the past. The user identity is extracted from the credentials used to invoke this operation.."]
module UserAppItem =
  struct
    type nonrec t =
      {
      appId: UUID.t option [@ocaml.doc "The unique identifier of the Q App."];
      appArn: AppArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the Q App."];
      title: Title.t option [@ocaml.doc "The title of the Q App."];
      description: Description.t option
        [@ocaml.doc "The description of the Q App."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc
          "The date and time the user's association with the Q App was created."];
      canEdit: Boolean.t option
        [@ocaml.doc "A flag indicating whether the user can edit the Q App."];
      status: String_.t option
        [@ocaml.doc "The status of the user's association with the Q App."];
      isVerified: Boolean.t option
        [@ocaml.doc "Indicates whether the Q App has been verified."]}
    let make ?appId =
      fun ?appArn ->
        fun ?title ->
          fun ?description ->
            fun ?createdAt ->
              fun ?canEdit ->
                fun ?status ->
                  fun ?isVerified ->
                    fun () ->
                      {
                        appId;
                        appArn;
                        title;
                        description;
                        createdAt;
                        canEdit;
                        status;
                        isVerified
                      }
    let to_value x =
      structure_to_value
        [("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appArn", (Option.map x.appArn ~f:AppArn.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("canEdit", (Option.map x.canEdit ~f:Boolean.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let canEdit =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "canEdit") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let appArn =
        (Option.map ~f:AppArn.of_xml) (Xml.child xml_arg0 "appArn") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      make ?isVerified ?status ?canEdit ?createdAt ?description ?title
        ?appArn ?appId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let status = field_map json__ "status" String_.of_json in
      let canEdit = field_map json__ "canEdit" Boolean.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let appArn = field_map json__ "appArn" AppArn.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      make ?isVerified ?status ?canEdit ?createdAt ?description ?title
        ?appArn ?appId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An Amazon Q App associated with a user, either owned by the user or favorited."]
module UserAppsList =
  struct
    type nonrec t = UserAppItem.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:UserAppItem.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:UserAppItem.of_xml)
    let of_json j =
      list_of_json ~kind:"UserAppsList" ~of_json:UserAppItem.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListQAppsOutput =
  struct
    type nonrec t =
      {
      apps: UserAppsList.t option
        [@ocaml.doc
          "The list of Amazon Q Apps meeting the request criteria."];
      nextToken: String_.t option
        [@ocaml.doc "The token to use to request the next page of results."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?apps = fun ?nextToken -> fun () -> { apps; 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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("apps", (Option.map x.apps ~f:UserAppsList.to_value));
        ("nextToken", (Option.map x.nextToken ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let nextToken =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "nextToken") in
      let apps =
        (Option.map ~f:UserAppsList.of_xml) (Xml.child xml_arg0 "apps") in
      make ?nextToken ?apps ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let nextToken = field_map json__ "nextToken" String_.of_json in
      let apps = field_map json__ "apps" UserAppsList.of_json in
      make ?nextToken ?apps ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the Amazon Q Apps owned by or associated with the user either because they created it or because they used it from the library in the past. The user identity is extracted from the credentials used to invoke this operation.."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource whose tags should be listed."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (AmazonResourceName.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let resourceARN =
        field_map_exn json__ "resourceARN" AmazonResourceName.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags associated with an Amazon Q Apps resource."]
module TagValue =
  struct
    type nonrec t = string
    let context_ = "TagValue"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagValue" j
    let to_json = simple_to_json to_value
  end
module TagKey =
  struct
    type nonrec t = string
    let context_ = "TagKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:128) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"TagKey" j
    let to_json = simple_to_json to_value
  end
module Tags =
  struct
    type nonrec t = (TagKey.t * TagValue.t) list
    let make i = i
    let of_header xs =
      make
        (List.filter_map xs
           ~f:(fun (k, v) ->
                 (Base.String.chop_prefix k ~prefix:"x-amz-meta-") |>
                   (Option.map
                      ~f:(fun chopped ->
                            ((TagKey.of_string chopped),
                              (TagValue.of_string v))))))
    let to_value xs =
      (xs |>
         (List.map
            ~f:(fun (x, y) ->
                  (TagKey.to_value x) |>
                    (fun x -> (TagValue.to_value y) |> (fun y -> (x, y))))))
        |> (fun x -> `Map x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for Map_shape objects" ()
    let of_xml _ =
      failwith "of_xml_converter_of_shape: Map_shape case not implemented"
    let of_json j =
      object_of_json ~key_of_string:TagKey.of_string
        ~of_json:TagValue.of_json j
    let to_json v = composed_to_json to_value v
  end
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc "The list of tags that are assigned to the resource."]}
    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 ?tags = fun () -> { tags }
    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 [("tags", (Option.map x.tags ~f:Tags.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:Tags.of_xml) (Xml.child xml_arg0 "tags") in
      make ?tags ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" Tags.of_json in make ?tags ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Lists the tags associated with an Amazon Q Apps resource."]
module PermissionInputPrincipalString =
  struct
    type nonrec t = string
    let context_ = "PermissionInputPrincipalString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:256) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"PermissionInputPrincipalString" j
    let to_json = simple_to_json to_value
  end
module PermissionInputActionEnum =
  struct
    type nonrec t =
      | Read 
      | Write 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | Read -> "read" | Write -> "write" | Non_static_id s -> s
    let of_string =
      function | "read" -> Read | "write" -> Write | 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 PermissionInputActionEnum" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"PermissionInputActionEnum" j)
    let to_json = simple_to_json to_value
  end
module PermissionInput =
  struct
    type nonrec t =
      {
      action: PermissionInputActionEnum.t
        [@ocaml.doc "The action associated with the permission."];
      principal: PermissionInputPrincipalString.t
        [@ocaml.doc "The principal user to which the permission applies."]}
    let context_ = "PermissionInput"
    let make ~action = fun ~principal -> fun () -> { action; principal }
    let to_value x =
      structure_to_value
        [("action", (Some (PermissionInputActionEnum.to_value x.action)));
        ("principal",
          (Some (PermissionInputPrincipalString.to_value x.principal)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let principal =
        PermissionInputPrincipalString.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "principal") in
      let action =
        PermissionInputActionEnum.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "action") in
      make ~principal ~action ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let principal =
        field_map_exn json__ "principal"
          PermissionInputPrincipalString.of_json in
      let action =
        field_map_exn json__ "action" PermissionInputActionEnum.of_json in
      make ~principal ~action ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The permission to grant or revoke for a Amazon Q App."]
module PredictAppDefinition =
  struct
    type nonrec t =
      {
      title: Title.t option
        [@ocaml.doc "The title of the generated Q App definition."];
      description: Description.t option
        [@ocaml.doc "The description of the generated Q App definition."];
      appDefinition: AppDefinitionInput.t option
        [@ocaml.doc
          "The definition specifying the cards and flow of the generated Q App."]}
    let make ?title =
      fun ?description ->
        fun ?appDefinition -> fun () -> { title; description; appDefinition }
    let to_value x =
      structure_to_value
        [("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("appDefinition",
          (Option.map x.appDefinition ~f:AppDefinitionInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appDefinition =
        (Option.map ~f:AppDefinitionInput.of_xml)
          (Xml.child xml_arg0 "appDefinition") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      make ?appDefinition ?description ?title ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appDefinition =
        field_map json__ "appDefinition" AppDefinitionInput.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      make ?appDefinition ?description ?title ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The definition of an Amazon Q App generated based on input such as a conversation or problem statement."]
module PredictQAppInputOptionsProblemStatementString =
  struct
    type nonrec t = string
    let context_ = "PredictQAppInputOptionsProblemStatementString"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:10000) >>=
             (fun () -> check_string_min i ~min:0));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j =
      string_of_json ~kind:"PredictQAppInputOptionsProblemStatementString" j
    let to_json = simple_to_json to_value
  end
module PredictQAppInputOptionsConversationList =
  struct
    type nonrec t = ConversationMessage.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:25) >>= (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:ConversationMessage.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:ConversationMessage.of_xml)
    let of_json j =
      list_of_json ~kind:"PredictQAppInputOptionsConversationList"
        ~of_json:ConversationMessage.of_json j
    let to_json v = composed_to_json to_value v
  end
module PredictQAppInputOptions =
  struct
    type nonrec t =
      {
      conversation: PredictQAppInputOptionsConversationList.t option
        [@ocaml.doc
          "A conversation to use as input for generating the Q App definition."];
      problemStatement:
        PredictQAppInputOptionsProblemStatementString.t option
        [@ocaml.doc
          "A problem statement to use as input for generating the Q App definition."]}
    let make ?conversation =
      fun ?problemStatement -> fun () -> { conversation; problemStatement }
    let to_value x =
      structure_to_value
        [("conversation",
           (Option.map x.conversation
              ~f:PredictQAppInputOptionsConversationList.to_value));
        ("problemStatement",
          (Option.map x.problemStatement
             ~f:PredictQAppInputOptionsProblemStatementString.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let problemStatement =
        (Option.map ~f:PredictQAppInputOptionsProblemStatementString.of_xml)
          (Xml.child xml_arg0 "problemStatement") in
      let conversation =
        (Option.map ~f:PredictQAppInputOptionsConversationList.of_xml)
          (Xml.child xml_arg0 "conversation") in
      make ?problemStatement ?conversation ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let problemStatement =
        field_map json__ "problemStatement"
          PredictQAppInputOptionsProblemStatementString.of_json in
      let conversation =
        field_map json__ "conversation"
          PredictQAppInputOptionsConversationList.of_json in
      make ?problemStatement ?conversation ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The input options for generating an Q App definition."]
module PredictQAppInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      options: PredictQAppInputOptions.t option
        [@ocaml.doc
          "The input to generate the Q App definition from, either a conversation or problem statement."]}
    let context_ = "PredictQAppInput"
    let make ?options = fun ~instanceId -> fun () -> { options; instanceId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("options",
          (Option.map x.options ~f:PredictQAppInputOptions.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let options =
        (Option.map ~f:PredictQAppInputOptions.of_xml)
          (Xml.child xml_arg0 "options") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?options ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let options =
        field_map json__ "options" PredictQAppInputOptions.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?options ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates an Amazon Q App definition based on either a conversation or a problem statement provided as input.The resulting app definition can be used to call CreateQApp. This API doesn't create Amazon Q Apps directly."]
module PredictQAppOutput =
  struct
    type nonrec t =
      {
      app: PredictAppDefinition.t option
        [@ocaml.doc "The generated Q App definition."];
      problemStatement: String_.t option
        [@ocaml.doc
          "The problem statement extracted from the input conversation, if provided."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?app =
      fun ?problemStatement -> fun () -> { app; problemStatement }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("app", (Option.map x.app ~f:PredictAppDefinition.to_value));
        ("problemStatement",
          (Option.map x.problemStatement ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let problemStatement =
        (Option.map ~f:String_.of_xml)
          (Xml.child xml_arg0 "problemStatement") in
      let app =
        (Option.map ~f:PredictAppDefinition.of_xml)
          (Xml.child xml_arg0 "app") in
      make ?problemStatement ?app ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let problemStatement =
        field_map json__ "problemStatement" String_.of_json in
      let app = field_map json__ "app" PredictAppDefinition.of_json in
      make ?problemStatement ?app ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Generates an Amazon Q App definition based on either a conversation or a problem statement provided as input.The resulting app definition can be used to call CreateQApp. This API doesn't create Amazon Q Apps directly."]
module StartQAppSessionInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App to start a session for."];
      appVersion: AppVersion.t
        [@ocaml.doc "The version of the Q App to use for the session."];
      initialValues: CardValueList.t option
        [@ocaml.doc
          "Optional initial input values to provide for the Q App session."];
      sessionId: String_.t option
        [@ocaml.doc "The unique identifier of the a Q App session."];
      tags: TagMap.t option
        [@ocaml.doc "Optional tags to associate with the new Q App session."]}
    let context_ = "StartQAppSessionInput"
    let make ?initialValues =
      fun ?sessionId ->
        fun ?tags ->
          fun ~instanceId ->
            fun ~appId ->
              fun ~appVersion ->
                fun () ->
                  {
                    initialValues;
                    sessionId;
                    tags;
                    instanceId;
                    appId;
                    appVersion
                  }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("appVersion", (Some (AppVersion.to_value x.appVersion)));
        ("initialValues",
          (Option.map x.initialValues ~f:CardValueList.to_value));
        ("sessionId", (Option.map x.sessionId ~f:String_.to_value));
        ("tags", (Option.map x.tags ~f:TagMap.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags = (Option.map ~f:TagMap.of_xml) (Xml.child xml_arg0 "tags") in
      let sessionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionId") in
      let initialValues =
        (Option.map ~f:CardValueList.of_xml)
          (Xml.child xml_arg0 "initialValues") in
      let appVersion =
        AppVersion.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "appVersion") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?tags ?sessionId ?initialValues ~appVersion ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map json__ "tags" TagMap.of_json in
      let sessionId = field_map json__ "sessionId" String_.of_json in
      let initialValues =
        field_map json__ "initialValues" CardValueList.of_json in
      let appVersion = field_map_exn json__ "appVersion" AppVersion.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?tags ?sessionId ?initialValues ~appVersion ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a new session for an Amazon Q App, allowing inputs to be provided and the app to be run. Each Q App session will be condensed into a single conversation in the web experience."]
module StartQAppSessionOutput =
  struct
    type nonrec t =
      {
      sessionId: String_.t option
        [@ocaml.doc
          "The unique identifier of the new or retrieved Q App session."];
      sessionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the new Q App session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn -> fun () -> { sessionId; sessionArn }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:String_.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sessionArn ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" String_.of_json in
      make ?sessionArn ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Starts a new session for an Amazon Q App, allowing inputs to be provided and the app to be run. Each Q App session will be condensed into a single conversation in the web experience."]
module StopQAppSessionInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc "The unique identifier of the Q App session to stop."]}
    let context_ = "StopQAppSessionInput"
    let make ~instanceId =
      fun ~sessionId -> fun () -> { instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Stops an active session for an Amazon Q App.This deletes all data related to the session and makes it invalid for future uses. The results of the session will be persisted as part of the conversation."]
module TagKeys =
  struct
    type nonrec t = TagKey.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc "The Amazon Resource Name (ARN) of the resource to tag."];
      tags: Tags.t [@ocaml.doc "The tags to associate with the resource."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("tags", (Some (Tags.to_value x.tags)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tags =
        Tags.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tags") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~tags ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tags = field_map_exn json__ "tags" Tags.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" AmazonResourceName.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Associates tags with an Amazon Q Apps resource."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Associates tags with an Amazon Q Apps resource."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: AmazonResourceName.t
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the resource to disassociate the tag from."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "The keys of the tags to disassociate from the resource."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("resourceARN", (Some (AmazonResourceName.to_value x.resourceARN)));
        ("tagKeys", (Some (TagKeys.to_value x.tagKeys)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let tagKeys =
        TagKeys.of_xml (Xml.child_exn ~context:context_ xml_arg0 "tagKeys") in
      let resourceARN =
        AmazonResourceName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "resourceARN") in
      make ~tagKeys ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let tagKeys = field_map_exn json__ "tagKeys" TagKeys.of_json in
      let resourceARN =
        field_map_exn json__ "resourceARN" AmazonResourceName.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Disassociates tags from an Amazon Q Apps resource."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    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 () = ()
    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 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 "Disassociates tags from an Amazon Q Apps resource."]
module UpdateLibraryItemInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc "The unique identifier of the library item to update."];
      status: LibraryItemStatus.t option
        [@ocaml.doc
          "The new status to set for the library item, such as \"Published\" or \"Hidden\"."];
      categories: CategoryIdList.t option
        [@ocaml.doc "The new categories to associate with the library item."]}
    let context_ = "UpdateLibraryItemInput"
    let make ?status =
      fun ?categories ->
        fun ~instanceId ->
          fun ~libraryItemId ->
            fun () -> { status; categories; instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)));
        ("status", (Option.map x.status ~f:LibraryItemStatus.to_value));
        ("categories", (Option.map x.categories ~f:CategoryIdList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let categories =
        (Option.map ~f:CategoryIdList.of_xml)
          (Xml.child xml_arg0 "categories") in
      let status =
        (Option.map ~f:LibraryItemStatus.of_xml)
          (Xml.child xml_arg0 "status") in
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?categories ?status ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let categories = field_map json__ "categories" CategoryIdList.of_json in
      let status = field_map json__ "status" LibraryItemStatus.of_json in
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?categories ?status ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the library item for an Amazon Q App."]
module UpdateLibraryItemMetadataInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      libraryItemId: UUID.t
        [@ocaml.doc "The unique identifier of the updated library item."];
      isVerified: Boolean.t option
        [@ocaml.doc "The verification status of the library item"]}
    let context_ = "UpdateLibraryItemMetadataInput"
    let make ?isVerified =
      fun ~instanceId ->
        fun ~libraryItemId ->
          fun () -> { isVerified; instanceId; libraryItemId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("libraryItemId", (Some (UUID.to_value x.libraryItemId)));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let libraryItemId =
        UUID.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "libraryItemId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?isVerified ~libraryItemId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let libraryItemId = field_map_exn json__ "libraryItemId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?isVerified ~libraryItemId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the verification status of a library item for an Amazon Q App."]
module UpdateLibraryItemOutput =
  struct
    type nonrec t =
      {
      libraryItemId: UUID.t option
        [@ocaml.doc "The unique identifier of the updated library item."];
      appId: UUID.t option
        [@ocaml.doc
          "The unique identifier of the Q App associated with the library item."];
      appVersion: AppVersion.t option
        [@ocaml.doc
          "The version of the Q App associated with the library item."];
      categories: CategoryList.t option
        [@ocaml.doc
          "The categories associated with the updated library item."];
      status: String_.t option
        [@ocaml.doc "The new status of the updated library item."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc
          "The date and time the library item was originally created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who originally created the library item."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the library item was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the library item."];
      ratingCount: Integer.t option
        [@ocaml.doc "The number of ratings the library item has received."];
      isRatedByUser: Boolean.t option
        [@ocaml.doc "Whether the current user has rated the library item."];
      userCount: Integer.t option
        [@ocaml.doc "The number of users who have the associated Q App."];
      isVerified: Boolean.t option
        [@ocaml.doc "Indicates whether the library item has been verified."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ConflictException of ConflictException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?libraryItemId =
      fun ?appId ->
        fun ?appVersion ->
          fun ?categories ->
            fun ?status ->
              fun ?createdAt ->
                fun ?createdBy ->
                  fun ?updatedAt ->
                    fun ?updatedBy ->
                      fun ?ratingCount ->
                        fun ?isRatedByUser ->
                          fun ?userCount ->
                            fun ?isVerified ->
                              fun () ->
                                {
                                  libraryItemId;
                                  appId;
                                  appVersion;
                                  categories;
                                  status;
                                  createdAt;
                                  createdBy;
                                  updatedAt;
                                  updatedBy;
                                  ratingCount;
                                  isRatedByUser;
                                  userCount;
                                  isVerified
                                }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("libraryItemId", (Option.map x.libraryItemId ~f:UUID.to_value));
        ("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("categories", (Option.map x.categories ~f:CategoryList.to_value));
        ("status", (Option.map x.status ~f:String_.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("ratingCount", (Option.map x.ratingCount ~f:Integer.to_value));
        ("isRatedByUser", (Option.map x.isRatedByUser ~f:Boolean.to_value));
        ("userCount", (Option.map x.userCount ~f:Integer.to_value));
        ("isVerified", (Option.map x.isVerified ~f:Boolean.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let isVerified =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isVerified") in
      let userCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "userCount") in
      let isRatedByUser =
        (Option.map ~f:Boolean.of_xml) (Xml.child xml_arg0 "isRatedByUser") in
      let ratingCount =
        (Option.map ~f:Integer.of_xml) (Xml.child xml_arg0 "ratingCount") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "status") in
      let categories =
        (Option.map ~f:CategoryList.of_xml) (Xml.child xml_arg0 "categories") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      let libraryItemId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "libraryItemId") in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let isVerified = field_map json__ "isVerified" Boolean.of_json in
      let userCount = field_map json__ "userCount" Integer.of_json in
      let isRatedByUser = field_map json__ "isRatedByUser" Boolean.of_json in
      let ratingCount = field_map json__ "ratingCount" Integer.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" String_.of_json in
      let categories = field_map json__ "categories" CategoryList.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      let libraryItemId = field_map json__ "libraryItemId" UUID.of_json in
      make ?isVerified ?userCount ?isRatedByUser ?ratingCount ?updatedBy
        ?updatedAt ?createdBy ?createdAt ?status ?categories ?appVersion
        ?appId ?libraryItemId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Updates the library item for an Amazon Q App."]
module UpdateQAppInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc "The unique identifier of the Q App to update."];
      title: Title.t option [@ocaml.doc "The new title for the Q App."];
      description: Description.t option
        [@ocaml.doc "The new description for the Q App."];
      appDefinition: AppDefinitionInput.t option
        [@ocaml.doc
          "The new definition specifying the cards and flow for the Q App."]}
    let context_ = "UpdateQAppInput"
    let make ?title =
      fun ?description ->
        fun ?appDefinition ->
          fun ~instanceId ->
            fun ~appId ->
              fun () ->
                { title; description; appDefinition; instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("appDefinition",
          (Option.map x.appDefinition ~f:AppDefinitionInput.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let appDefinition =
        (Option.map ~f:AppDefinitionInput.of_xml)
          (Xml.child xml_arg0 "appDefinition") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?appDefinition ?description ?title ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let appDefinition =
        field_map json__ "appDefinition" AppDefinitionInput.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?appDefinition ?description ?title ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing Amazon Q App, allowing modifications to its title, description, and definition."]
module UpdateQAppOutput =
  struct
    type nonrec t =
      {
      appId: UUID.t option
        [@ocaml.doc "The unique identifier of the updated Q App."];
      appArn: AppArn.t option
        [@ocaml.doc "The Amazon Resource Name (ARN) of the updated Q App."];
      title: Title.t option
        [@ocaml.doc "The new title of the updated Q App."];
      description: Description.t option
        [@ocaml.doc "The new description of the updated Q App."];
      initialPrompt: InitialPrompt.t option
        [@ocaml.doc "The initial prompt for the updated Q App."];
      appVersion: AppVersion.t option
        [@ocaml.doc "The new version of the updated Q App."];
      status: AppStatus.t option
        [@ocaml.doc "The status of the updated Q App."];
      createdAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was originally created."];
      createdBy: String_.t option
        [@ocaml.doc "The user who originally created the Q App."];
      updatedAt: QAppsTimestamp.t option
        [@ocaml.doc "The date and time the Q App was last updated."];
      updatedBy: String_.t option
        [@ocaml.doc "The user who last updated the Q App."];
      requiredCapabilities: AppRequiredCapabilities.t option
        [@ocaml.doc "The capabilities required for the updated Q App."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `ContentTooLargeException of ContentTooLargeException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?appId =
      fun ?appArn ->
        fun ?title ->
          fun ?description ->
            fun ?initialPrompt ->
              fun ?appVersion ->
                fun ?status ->
                  fun ?createdAt ->
                    fun ?createdBy ->
                      fun ?updatedAt ->
                        fun ?updatedBy ->
                          fun ?requiredCapabilities ->
                            fun () ->
                              {
                                appId;
                                appArn;
                                title;
                                description;
                                initialPrompt;
                                appVersion;
                                status;
                                createdAt;
                                createdBy;
                                updatedAt;
                                updatedBy;
                                requiredCapabilities
                              }
    let error_of_json name json =
      match name with
      | "AccessDeniedException" ->
          `AccessDeniedException (AccessDeniedException.of_json json)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_json json)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ContentTooLargeException" ->
          `ContentTooLargeException (ContentTooLargeException.of_xml xml)
      | "InternalServerException" ->
          `InternalServerException (InternalServerException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ContentTooLargeException e ->
          `Assoc
            [("error", (`String "ContentTooLargeException"));
            ("details", (ContentTooLargeException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("appId", (Option.map x.appId ~f:UUID.to_value));
        ("appArn", (Option.map x.appArn ~f:AppArn.to_value));
        ("title", (Option.map x.title ~f:Title.to_value));
        ("description", (Option.map x.description ~f:Description.to_value));
        ("initialPrompt",
          (Option.map x.initialPrompt ~f:InitialPrompt.to_value));
        ("appVersion", (Option.map x.appVersion ~f:AppVersion.to_value));
        ("status", (Option.map x.status ~f:AppStatus.to_value));
        ("createdAt", (Option.map x.createdAt ~f:QAppsTimestamp.to_value));
        ("createdBy", (Option.map x.createdBy ~f:String_.to_value));
        ("updatedAt", (Option.map x.updatedAt ~f:QAppsTimestamp.to_value));
        ("updatedBy", (Option.map x.updatedBy ~f:String_.to_value));
        ("requiredCapabilities",
          (Option.map x.requiredCapabilities
             ~f:AppRequiredCapabilities.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let requiredCapabilities =
        (Option.map ~f:AppRequiredCapabilities.of_xml)
          (Xml.child xml_arg0 "requiredCapabilities") in
      let updatedBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "updatedBy") in
      let updatedAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "updatedAt") in
      let createdBy =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "createdBy") in
      let createdAt =
        (Option.map ~f:QAppsTimestamp.of_xml)
          (Xml.child xml_arg0 "createdAt") in
      let status =
        (Option.map ~f:AppStatus.of_xml) (Xml.child xml_arg0 "status") in
      let appVersion =
        (Option.map ~f:AppVersion.of_xml) (Xml.child xml_arg0 "appVersion") in
      let initialPrompt =
        (Option.map ~f:InitialPrompt.of_xml)
          (Xml.child xml_arg0 "initialPrompt") in
      let description =
        (Option.map ~f:Description.of_xml) (Xml.child xml_arg0 "description") in
      let title = (Option.map ~f:Title.of_xml) (Xml.child xml_arg0 "title") in
      let appArn =
        (Option.map ~f:AppArn.of_xml) (Xml.child xml_arg0 "appArn") in
      let appId = (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "appId") in
      make ?requiredCapabilities ?updatedBy ?updatedAt ?createdBy ?createdAt
        ?status ?appVersion ?initialPrompt ?description ?title ?appArn ?appId
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let requiredCapabilities =
        field_map json__ "requiredCapabilities"
          AppRequiredCapabilities.of_json in
      let updatedBy = field_map json__ "updatedBy" String_.of_json in
      let updatedAt = field_map json__ "updatedAt" QAppsTimestamp.of_json in
      let createdBy = field_map json__ "createdBy" String_.of_json in
      let createdAt = field_map json__ "createdAt" QAppsTimestamp.of_json in
      let status = field_map json__ "status" AppStatus.of_json in
      let appVersion = field_map json__ "appVersion" AppVersion.of_json in
      let initialPrompt =
        field_map json__ "initialPrompt" InitialPrompt.of_json in
      let description = field_map json__ "description" Description.of_json in
      let title = field_map json__ "title" Title.of_json in
      let appArn = field_map json__ "appArn" AppArn.of_json in
      let appId = field_map json__ "appId" UUID.of_json in
      make ?requiredCapabilities ?updatedBy ?updatedAt ?createdBy ?createdAt
        ?status ?appVersion ?initialPrompt ?description ?title ?appArn ?appId
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates an existing Amazon Q App, allowing modifications to its title, description, and definition."]
module UpdateQAppPermissionsInputRevokePermissionsList =
  struct
    type nonrec t = PermissionInput.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PermissionInput.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:PermissionInput.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateQAppPermissionsInputRevokePermissionsList"
        ~of_json:PermissionInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateQAppPermissionsInputGrantPermissionsList =
  struct
    type nonrec t = PermissionInput.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:100) >>=
             (fun () -> check_list_min i ~min:0));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:PermissionInput.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:PermissionInput.of_xml)
    let of_json j =
      list_of_json ~kind:"UpdateQAppPermissionsInputGrantPermissionsList"
        ~of_json:PermissionInput.of_json j
    let to_json v = composed_to_json to_value v
  end
module UpdateQAppPermissionsInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      appId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q App for which permissions are being updated."];
      grantPermissions:
        UpdateQAppPermissionsInputGrantPermissionsList.t option
        [@ocaml.doc "The list of permissions to grant for the Amazon Q App."];
      revokePermissions:
        UpdateQAppPermissionsInputRevokePermissionsList.t option
        [@ocaml.doc
          "The list of permissions to revoke for the Amazon Q App."]}
    let context_ = "UpdateQAppPermissionsInput"
    let make ?grantPermissions =
      fun ?revokePermissions ->
        fun ~instanceId ->
          fun ~appId ->
            fun () ->
              { grantPermissions; revokePermissions; instanceId; appId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("appId", (Some (UUID.to_value x.appId)));
        ("grantPermissions",
          (Option.map x.grantPermissions
             ~f:UpdateQAppPermissionsInputGrantPermissionsList.to_value));
        ("revokePermissions",
          (Option.map x.revokePermissions
             ~f:UpdateQAppPermissionsInputRevokePermissionsList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let revokePermissions =
        (Option.map ~f:UpdateQAppPermissionsInputRevokePermissionsList.of_xml)
          (Xml.child xml_arg0 "revokePermissions") in
      let grantPermissions =
        (Option.map ~f:UpdateQAppPermissionsInputGrantPermissionsList.of_xml)
          (Xml.child xml_arg0 "grantPermissions") in
      let appId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "appId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?revokePermissions ?grantPermissions ~appId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let revokePermissions =
        field_map json__ "revokePermissions"
          UpdateQAppPermissionsInputRevokePermissionsList.of_json in
      let grantPermissions =
        field_map json__ "grantPermissions"
          UpdateQAppPermissionsInputGrantPermissionsList.of_json in
      let appId = field_map_exn json__ "appId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?revokePermissions ?grantPermissions ~appId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates read permissions for a Amazon Q App in Amazon Q Business application environment instance."]
module UpdateQAppPermissionsOutput =
  struct
    type nonrec t =
      {
      resourceArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the Amazon Q App for which permissions were updated."];
      appId: String_.t option
        [@ocaml.doc
          "The unique identifier of the Amazon Q App for which permissions were updated."];
      permissions: PermissionsOutputList.t option
        [@ocaml.doc "The updated list of permissions for the Amazon Q App."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?resourceArn =
      fun ?appId ->
        fun ?permissions -> fun () -> { resourceArn; appId; permissions }
    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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("resourceArn", (Option.map x.resourceArn ~f:String_.to_value));
        ("appId", (Option.map x.appId ~f:String_.to_value));
        ("permissions",
          (Option.map x.permissions ~f:PermissionsOutputList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let permissions =
        (Option.map ~f:PermissionsOutputList.of_xml)
          (Xml.child xml_arg0 "permissions") in
      let appId = (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "appId") in
      let resourceArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "resourceArn") in
      make ?permissions ?appId ?resourceArn ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let permissions =
        field_map json__ "permissions" PermissionsOutputList.of_json in
      let appId = field_map json__ "appId" String_.of_json in
      let resourceArn = field_map json__ "resourceArn" String_.of_json in
      make ?permissions ?appId ?resourceArn ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates read permissions for a Amazon Q App in Amazon Q Business application environment instance."]
module UpdateQAppSessionInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App session to provide input for."];
      values: CardValueList.t option
        [@ocaml.doc
          "The input values to provide for the current state of the Q App session."]}
    let context_ = "UpdateQAppSessionInput"
    let make ?values =
      fun ~instanceId ->
        fun ~sessionId -> fun () -> { values; instanceId; sessionId }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)));
        ("values", (Option.map x.values ~f:CardValueList.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let values =
        (Option.map ~f:CardValueList.of_xml) (Xml.child xml_arg0 "values") in
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ?values ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let values = field_map json__ "values" CardValueList.of_json in
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ?values ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the session for a given Q App sessionId. This is only valid when at least one card of the session is in the WAITING state. Data for each WAITING card can be provided as input. If inputs are not provided, the call will be accepted but session will not move forward. Inputs for cards that are not in the WAITING status will be ignored."]
module UpdateQAppSessionMetadataInput =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t
        [@ocaml.doc
          "The unique identifier of the Amazon Q Business application environment instance."];
      sessionId: UUID.t
        [@ocaml.doc
          "The unique identifier of the Q App session to update configuration for."];
      sessionName: SessionName.t option
        [@ocaml.doc "The new name for the Q App session."];
      sharingConfiguration: SessionSharingConfiguration.t
        [@ocaml.doc
          "The new sharing configuration for the Q App data collection session."]}
    let context_ = "UpdateQAppSessionMetadataInput"
    let make ?sessionName =
      fun ~instanceId ->
        fun ~sessionId ->
          fun ~sharingConfiguration ->
            fun () ->
              { sessionName; instanceId; sessionId; sharingConfiguration }
    let to_value x =
      structure_to_value
        [("instance-id", (Some (InstanceId.to_value x.instanceId)));
        ("sessionId", (Some (UUID.to_value x.sessionId)));
        ("sessionName", (Option.map x.sessionName ~f:SessionName.to_value));
        ("sharingConfiguration",
          (Some (SessionSharingConfiguration.to_value x.sharingConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharingConfiguration =
        SessionSharingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "sharingConfiguration") in
      let sessionName =
        (Option.map ~f:SessionName.of_xml) (Xml.child xml_arg0 "sessionName") in
      let sessionId =
        UUID.of_xml (Xml.child_exn ~context:context_ xml_arg0 "sessionId") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "instance-id") in
      make ~sharingConfiguration ?sessionName ~sessionId ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharingConfiguration =
        field_map_exn json__ "sharingConfiguration"
          SessionSharingConfiguration.of_json in
      let sessionName = field_map json__ "sessionName" SessionName.of_json in
      let sessionId = field_map_exn json__ "sessionId" UUID.of_json in
      let instanceId = field_map_exn json__ "instanceId" InstanceId.of_json in
      make ~sharingConfiguration ?sessionName ~sessionId ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration metadata of a session for a given Q App sessionId."]
module UpdateQAppSessionMetadataOutput =
  struct
    type nonrec t =
      {
      sessionId: UUID.t option
        [@ocaml.doc "The unique identifier of the updated Q App session."];
      sessionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated Q App session."];
      sessionName: SessionName.t option
        [@ocaml.doc "The new name of the updated Q App session."];
      sharingConfiguration: SessionSharingConfiguration.t option
        [@ocaml.doc
          "The new sharing configuration of the updated Q App data collection session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn ->
        fun ?sessionName ->
          fun ?sharingConfiguration ->
            fun () ->
              { sessionId; sessionArn; sessionName; sharingConfiguration }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:UUID.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value));
        ("sessionName", (Option.map x.sessionName ~f:SessionName.to_value));
        ("sharingConfiguration",
          (Option.map x.sharingConfiguration
             ~f:SessionSharingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sharingConfiguration =
        (Option.map ~f:SessionSharingConfiguration.of_xml)
          (Xml.child xml_arg0 "sharingConfiguration") in
      let sessionName =
        (Option.map ~f:SessionName.of_xml) (Xml.child xml_arg0 "sessionName") in
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:UUID.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sharingConfiguration ?sessionName ?sessionArn ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sharingConfiguration =
        field_map json__ "sharingConfiguration"
          SessionSharingConfiguration.of_json in
      let sessionName = field_map json__ "sessionName" SessionName.of_json in
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" UUID.of_json in
      make ?sharingConfiguration ?sessionName ?sessionArn ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the configuration metadata of a session for a given Q App sessionId."]
module UpdateQAppSessionOutput =
  struct
    type nonrec t =
      {
      sessionId: String_.t option
        [@ocaml.doc "The unique identifier of the updated Q App session."];
      sessionArn: String_.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the updated Q App session."]}
    type nonrec error =
      [ `AccessDeniedException of AccessDeniedException.t 
      | `InternalServerException of InternalServerException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `ServiceQuotaExceededException of ServiceQuotaExceededException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `UnauthorizedException of UnauthorizedException.t 
      | `ValidationException of ValidationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?sessionId =
      fun ?sessionArn -> fun () -> { sessionId; sessionArn }
    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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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)
      | "ServiceQuotaExceededException" ->
          `ServiceQuotaExceededException
            (ServiceQuotaExceededException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | "UnauthorizedException" ->
          `UnauthorizedException (UnauthorizedException.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))]
      | `ServiceQuotaExceededException e ->
          `Assoc
            [("error", (`String "ServiceQuotaExceededException"));
            ("details", (ServiceQuotaExceededException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.to_json e))]
      | `UnauthorizedException e ->
          `Assoc
            [("error", (`String "UnauthorizedException"));
            ("details", (UnauthorizedException.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
        [("sessionId", (Option.map x.sessionId ~f:String_.to_value));
        ("sessionArn", (Option.map x.sessionArn ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sessionArn =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionArn") in
      let sessionId =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "sessionId") in
      make ?sessionArn ?sessionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sessionArn = field_map json__ "sessionArn" String_.of_json in
      let sessionId = field_map json__ "sessionId" String_.of_json in
      make ?sessionArn ?sessionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Updates the session for a given Q App sessionId. This is only valid when at least one card of the session is in the WAITING state. Data for each WAITING card can be provided as input. If inputs are not provided, the call will be accepted but session will not move forward. Inputs for cards that are not in the WAITING status will be ignored."]