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.kinesisanalytics
let apiVersion = "2015-08-14"
let endpointPrefix = "kinesisanalytics"
let serviceFullName = "Amazon Kinesis Analytics"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "Kinesis Analytics"
let targetPrefix = "KinesisAnalytics_20150814"
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 RecordColumnDelimiter =
  struct
    type nonrec t = string
    let context_ = "RecordColumnDelimiter"
    let make i =
      let open Result in ok_or_failwith (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:"RecordColumnDelimiter" j
    let to_json = simple_to_json to_value
  end
module RecordRowDelimiter =
  struct
    type nonrec t = string
    let context_ = "RecordRowDelimiter"
    let make i =
      let open Result in ok_or_failwith (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:"RecordRowDelimiter" j
    let to_json = simple_to_json to_value
  end
module RecordRowPath =
  struct
    type nonrec t = string
    let context_ = "RecordRowPath"
    let make i =
      let open Result in ok_or_failwith (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:"RecordRowPath" j
    let to_json = simple_to_json to_value
  end
module RecordColumnMapping =
  struct
    type nonrec t = string
    let context_ = "RecordColumnMapping"
    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:"RecordColumnMapping" j
    let to_json = simple_to_json to_value
  end
module RecordColumnName =
  struct
    type nonrec t = string
    let context_ = "RecordColumnName"
    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:"RecordColumnName" j
    let to_json = simple_to_json to_value
  end
module RecordColumnSqlType =
  struct
    type nonrec t = string
    let context_ = "RecordColumnSqlType"
    let make i =
      let open Result in ok_or_failwith (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:"RecordColumnSqlType" j
    let to_json = simple_to_json to_value
  end
module CSVMappingParameters =
  struct
    type nonrec t =
      {
      recordRowDelimiter: RecordRowDelimiter.t
        [@ocaml.doc
          "Row delimiter. For example, in a CSV format, '\\n' is the typical row delimiter."];
      recordColumnDelimiter: RecordColumnDelimiter.t
        [@ocaml.doc
          "Column delimiter. For example, in a CSV format, a comma (\",\") is the typical column delimiter."]}
    let context_ = "CSVMappingParameters"
    let make ~recordRowDelimiter =
      fun ~recordColumnDelimiter ->
        fun () -> { recordRowDelimiter; recordColumnDelimiter }
    let to_value x =
      structure_to_value
        [("RecordRowDelimiter",
           (Some (RecordRowDelimiter.to_value x.recordRowDelimiter)));
        ("RecordColumnDelimiter",
          (Some (RecordColumnDelimiter.to_value x.recordColumnDelimiter)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordColumnDelimiter =
        RecordColumnDelimiter.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordColumnDelimiter") in
      let recordRowDelimiter =
        RecordRowDelimiter.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordRowDelimiter") in
      make ~recordColumnDelimiter ~recordRowDelimiter ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordColumnDelimiter =
        field_map_exn json__ "RecordColumnDelimiter"
          RecordColumnDelimiter.of_json in
      let recordRowDelimiter =
        field_map_exn json__ "RecordRowDelimiter" RecordRowDelimiter.of_json in
      make ~recordColumnDelimiter ~recordRowDelimiter ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional mapping information when the record format uses delimiters, such as CSV. For example, the following sample records use CSV format, where the records use the '\\n' as the row delimiter and a comma (\",\") as the column delimiter: \"name1\", \"address1\" \"name2\", \"address2\""]
module JSONMappingParameters =
  struct
    type nonrec t =
      {
      recordRowPath: RecordRowPath.t
        [@ocaml.doc
          "Path to the top-level parent that contains the records."]}
    let context_ = "JSONMappingParameters"
    let make ~recordRowPath = fun () -> { recordRowPath }
    let to_value x =
      structure_to_value
        [("RecordRowPath", (Some (RecordRowPath.to_value x.recordRowPath)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordRowPath =
        RecordRowPath.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordRowPath") in
      make ~recordRowPath ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordRowPath =
        field_map_exn json__ "RecordRowPath" RecordRowPath.of_json in
      make ~recordRowPath ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides additional mapping information when JSON is the record format on the streaming source."]
module ResourceARN =
  struct
    type nonrec t = string
    let context_ = "ResourceARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        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:"ResourceARN" j
    let to_json = simple_to_json to_value
  end
module RoleARN =
  struct
    type nonrec t = string
    let context_ = "RoleARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:iam::\\d{12}:role/?[a-zA-Z_0-9+=,.@\\-_/]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"RoleARN" j
    let to_json = simple_to_json to_value
  end
module RecordColumn =
  struct
    type nonrec t =
      {
      name: RecordColumnName.t
        [@ocaml.doc
          "Name of the column created in the in-application input stream or reference table."];
      mapping: RecordColumnMapping.t option
        [@ocaml.doc
          "Reference to the data element in the streaming input or the reference data source. This element is required if the RecordFormatType is JSON."];
      sqlType: RecordColumnSqlType.t
        [@ocaml.doc
          "Type of column created in the in-application input stream or reference table."]}
    let context_ = "RecordColumn"
    let make ?mapping =
      fun ~name -> fun ~sqlType -> fun () -> { mapping; name; sqlType }
    let to_value x =
      structure_to_value
        [("Name", (Some (RecordColumnName.to_value x.name)));
        ("Mapping", (Option.map x.mapping ~f:RecordColumnMapping.to_value));
        ("SqlType", (Some (RecordColumnSqlType.to_value x.sqlType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sqlType =
        RecordColumnSqlType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SqlType") in
      let mapping =
        (Option.map ~f:RecordColumnMapping.of_xml)
          (Xml.child xml_arg0 "Mapping") in
      let name =
        RecordColumnName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~sqlType ?mapping ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sqlType =
        field_map_exn json__ "SqlType" RecordColumnSqlType.of_json in
      let mapping = field_map json__ "Mapping" RecordColumnMapping.of_json in
      let name = field_map_exn json__ "Name" RecordColumnName.of_json in
      make ~sqlType ?mapping ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the mapping of each data element in the streaming source to the corresponding column in the in-application stream. Also used to describe the format of the reference data source."]
module MappingParameters =
  struct
    type nonrec t =
      {
      jSONMappingParameters: JSONMappingParameters.t option
        [@ocaml.doc
          "Provides additional mapping information when JSON is the record format on the streaming source."];
      cSVMappingParameters: CSVMappingParameters.t option
        [@ocaml.doc
          "Provides additional mapping information when the record format uses delimiters (for example, CSV)."]}
    let make ?jSONMappingParameters =
      fun ?cSVMappingParameters ->
        fun () -> { jSONMappingParameters; cSVMappingParameters }
    let to_value x =
      structure_to_value
        [("JSONMappingParameters",
           (Option.map x.jSONMappingParameters
              ~f:JSONMappingParameters.to_value));
        ("CSVMappingParameters",
          (Option.map x.cSVMappingParameters ~f:CSVMappingParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cSVMappingParameters =
        (Option.map ~f:CSVMappingParameters.of_xml)
          (Xml.child xml_arg0 "CSVMappingParameters") in
      let jSONMappingParameters =
        (Option.map ~f:JSONMappingParameters.of_xml)
          (Xml.child xml_arg0 "JSONMappingParameters") in
      make ?cSVMappingParameters ?jSONMappingParameters ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cSVMappingParameters =
        field_map json__ "CSVMappingParameters" CSVMappingParameters.of_json in
      let jSONMappingParameters =
        field_map json__ "JSONMappingParameters"
          JSONMappingParameters.of_json in
      make ?cSVMappingParameters ?jSONMappingParameters ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When configuring application input at the time of creating or updating an application, provides additional mapping information specific to the record format (such as JSON, CSV, or record fields delimited by some delimiter) on the streaming source."]
module RecordFormatType =
  struct
    type nonrec t =
      | JSON 
      | CSV 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function | JSON -> "JSON" | CSV -> "CSV" | Non_static_id s -> s
    let of_string =
      function | "JSON" -> JSON | "CSV" -> CSV | 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 RecordFormatType" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"RecordFormatType" j)
    let to_json = simple_to_json to_value
  end
module InputParallelismCount =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:64) >>= (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 InputParallelismCount" 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 InputLambdaProcessorUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "The Amazon Resource Name (ARN) of the new AWS Lambda function that is used to preprocess the records in the stream. To specify an earlier version of the Lambda function than the latest, include the Lambda function version in the Lambda function ARN. For more information about Lambda ARNs, see Example ARNs: AWS Lambda"];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "The ARN of the new IAM role that is used to access the AWS Lambda function."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Represents an update to the InputLambdaProcessor that is used to preprocess the records in the stream."]
module RecordColumns =
  struct
    type nonrec t = RecordColumn.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:1000) >>=
             (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:RecordColumn.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:RecordColumn.of_xml)
    let of_json j =
      list_of_json ~kind:"RecordColumns" ~of_json:RecordColumn.of_json j
    let to_json v = composed_to_json to_value v
  end
module RecordEncoding =
  struct
    type nonrec t = string
    let context_ = "RecordEncoding"
    let make i =
      let open Result in ok_or_failwith (check_pattern i ~pattern:"UTF-8"); 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:"RecordEncoding" j
    let to_json = simple_to_json to_value
  end
module RecordFormat =
  struct
    type nonrec t =
      {
      recordFormatType: RecordFormatType.t
        [@ocaml.doc "The type of record format."];
      mappingParameters: MappingParameters.t option
        [@ocaml.doc
          "When configuring application input at the time of creating or updating an application, provides additional mapping information specific to the record format (such as JSON, CSV, or record fields delimited by some delimiter) on the streaming source."]}
    let context_ = "RecordFormat"
    let make ?mappingParameters =
      fun ~recordFormatType ->
        fun () -> { mappingParameters; recordFormatType }
    let to_value x =
      structure_to_value
        [("RecordFormatType",
           (Some (RecordFormatType.to_value x.recordFormatType)));
        ("MappingParameters",
          (Option.map x.mappingParameters ~f:MappingParameters.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let mappingParameters =
        (Option.map ~f:MappingParameters.of_xml)
          (Xml.child xml_arg0 "MappingParameters") in
      let recordFormatType =
        RecordFormatType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordFormatType") in
      make ?mappingParameters ~recordFormatType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let mappingParameters =
        field_map json__ "MappingParameters" MappingParameters.of_json in
      let recordFormatType =
        field_map_exn json__ "RecordFormatType" RecordFormatType.of_json in
      make ?mappingParameters ~recordFormatType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the record format and relevant mapping information that should be applied to schematize the records on the stream."]
module BucketARN =
  struct
    type nonrec t = string
    let context_ = "BucketARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        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:"BucketARN" j
    let to_json = simple_to_json to_value
  end
module FileKey =
  struct
    type nonrec t = string
    let context_ = "FileKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (fun () -> check_string_min i ~min:1));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"FileKey" j
    let to_json = simple_to_json to_value
  end
module InAppStreamName =
  struct
    type nonrec t = string
    let context_ = "InAppStreamName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (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:"InAppStreamName" j
    let to_json = simple_to_json to_value
  end
module InputLambdaProcessorDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "The ARN of the AWS Lambda function that is used to preprocess the records in the stream."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "The ARN of the IAM role that is used to access the AWS Lambda function."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains the Amazon Resource Name (ARN) of the AWS Lambda function that is used to preprocess records in the stream, and the ARN of the IAM role that is used to access the AWS Lambda expression."]
module InputStartingPosition =
  struct
    type nonrec t =
      | NOW 
      | TRIM_HORIZON 
      | LAST_STOPPED_POINT 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | NOW -> "NOW"
      | TRIM_HORIZON -> "TRIM_HORIZON"
      | LAST_STOPPED_POINT -> "LAST_STOPPED_POINT"
      | Non_static_id s -> s
    let of_string =
      function
      | "NOW" -> NOW
      | "TRIM_HORIZON" -> TRIM_HORIZON
      | "LAST_STOPPED_POINT" -> LAST_STOPPED_POINT
      | 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 InputStartingPosition" xml_arg0)
    let of_json j =
      of_string (string_of_json ~kind:"InputStartingPosition" j)
    let to_json = simple_to_json to_value
  end
module Id =
  struct
    type nonrec t = string
    let context_ = "Id"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:50) >>=
                  (fun () -> check_pattern i ~pattern:"[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:"Id" j
    let to_json = simple_to_json to_value
  end
module LogStreamARN =
  struct
    type nonrec t = string
    let context_ = "LogStreamARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () -> check_pattern i ~pattern:"arn:.*")));
        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:"LogStreamARN" j
    let to_json = simple_to_json to_value
  end
module InputParallelismUpdate =
  struct
    type nonrec t =
      {
      countUpdate: InputParallelismCount.t option
        [@ocaml.doc
          "Number of in-application streams to create for the specified streaming source."]}
    let make ?countUpdate = fun () -> { countUpdate }
    let to_value x =
      structure_to_value
        [("CountUpdate",
           (Option.map x.countUpdate ~f:InputParallelismCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let countUpdate =
        (Option.map ~f:InputParallelismCount.of_xml)
          (Xml.child xml_arg0 "CountUpdate") in
      make ?countUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let countUpdate =
        field_map json__ "CountUpdate" InputParallelismCount.of_json in
      make ?countUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Provides updates to the parallelism count."]
module InputProcessingConfigurationUpdate =
  struct
    type nonrec t =
      {
      inputLambdaProcessorUpdate: InputLambdaProcessorUpdate.t
        [@ocaml.doc
          "Provides update information for an InputLambdaProcessor."]}
    let context_ = "InputProcessingConfigurationUpdate"
    let make ~inputLambdaProcessorUpdate =
      fun () -> { inputLambdaProcessorUpdate }
    let to_value x =
      structure_to_value
        [("InputLambdaProcessorUpdate",
           (Some
              (InputLambdaProcessorUpdate.to_value
                 x.inputLambdaProcessorUpdate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputLambdaProcessorUpdate =
        InputLambdaProcessorUpdate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InputLambdaProcessorUpdate") in
      make ~inputLambdaProcessorUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputLambdaProcessorUpdate =
        field_map_exn json__ "InputLambdaProcessorUpdate"
          InputLambdaProcessorUpdate.of_json in
      make ~inputLambdaProcessorUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes updates to an InputProcessingConfiguration."]
module InputSchemaUpdate =
  struct
    type nonrec t =
      {
      recordFormatUpdate: RecordFormat.t option
        [@ocaml.doc
          "Specifies the format of the records on the streaming source."];
      recordEncodingUpdate: RecordEncoding.t option
        [@ocaml.doc
          "Specifies the encoding of the records in the streaming source. For example, UTF-8."];
      recordColumnUpdates: RecordColumns.t option
        [@ocaml.doc
          "A list of RecordColumn objects. Each object describes the mapping of the streaming source element to the corresponding column in the in-application stream."]}
    let make ?recordFormatUpdate =
      fun ?recordEncodingUpdate ->
        fun ?recordColumnUpdates ->
          fun () ->
            { recordFormatUpdate; recordEncodingUpdate; recordColumnUpdates }
    let to_value x =
      structure_to_value
        [("RecordFormatUpdate",
           (Option.map x.recordFormatUpdate ~f:RecordFormat.to_value));
        ("RecordEncodingUpdate",
          (Option.map x.recordEncodingUpdate ~f:RecordEncoding.to_value));
        ("RecordColumnUpdates",
          (Option.map x.recordColumnUpdates ~f:RecordColumns.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordColumnUpdates =
        (Option.map ~f:RecordColumns.of_xml)
          (Xml.child xml_arg0 "RecordColumnUpdates") in
      let recordEncodingUpdate =
        (Option.map ~f:RecordEncoding.of_xml)
          (Xml.child xml_arg0 "RecordEncodingUpdate") in
      let recordFormatUpdate =
        (Option.map ~f:RecordFormat.of_xml)
          (Xml.child xml_arg0 "RecordFormatUpdate") in
      make ?recordColumnUpdates ?recordEncodingUpdate ?recordFormatUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordColumnUpdates =
        field_map json__ "RecordColumnUpdates" RecordColumns.of_json in
      let recordEncodingUpdate =
        field_map json__ "RecordEncodingUpdate" RecordEncoding.of_json in
      let recordFormatUpdate =
        field_map json__ "RecordFormatUpdate" RecordFormat.of_json in
      make ?recordColumnUpdates ?recordEncodingUpdate ?recordFormatUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes updates for the application's input schema."]
module KinesisFirehoseInputUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the input Amazon Kinesis Firehose delivery stream to read."];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to grant the necessary permissions to this role."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When updating application input configuration, provides information about an Amazon Kinesis Firehose delivery stream as the streaming source."]
module KinesisStreamsInputUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the input Amazon Kinesis stream to read."];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to grant the necessary permissions to this role."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When updating application input configuration, provides information about an Amazon Kinesis stream as the streaming source."]
module DestinationSchema =
  struct
    type nonrec t =
      {
      recordFormatType: RecordFormatType.t
        [@ocaml.doc
          "Specifies the format of the records on the output stream."]}
    let context_ = "DestinationSchema"
    let make ~recordFormatType = fun () -> { recordFormatType }
    let to_value x =
      structure_to_value
        [("RecordFormatType",
           (Some (RecordFormatType.to_value x.recordFormatType)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordFormatType =
        RecordFormatType.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordFormatType") in
      make ~recordFormatType ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordFormatType =
        field_map_exn json__ "RecordFormatType" RecordFormatType.of_json in
      make ~recordFormatType ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the data format when records are written to the destination. For more information, see Configuring Application Output."]
module KinesisFirehoseOutputUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis Firehose delivery stream to write to."];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to grant the necessary permissions to this role."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When updating an output configuration using the UpdateApplication operation, provides information about an Amazon Kinesis Firehose delivery stream configured as the destination."]
module KinesisStreamsOutputUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis stream where you want to write the output."];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to grant the necessary permissions to this role."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When updating an output configuration using the UpdateApplication operation, provides information about an Amazon Kinesis stream configured as the destination."]
module LambdaOutputUpdate =
  struct
    type nonrec t =
      {
      resourceARNUpdate: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the destination Lambda function. To specify an earlier version of the Lambda function than the latest, include the Lambda function version in the Lambda function ARN. For more information about Lambda ARNs, see Example ARNs: AWS Lambda"];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to write to the destination function on your behalf. You need to grant the necessary permissions to this role."]}
    let make ?resourceARNUpdate =
      fun ?roleARNUpdate -> fun () -> { resourceARNUpdate; roleARNUpdate }
    let to_value x =
      structure_to_value
        [("ResourceARNUpdate",
           (Option.map x.resourceARNUpdate ~f:ResourceARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let resourceARNUpdate =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ResourceARNUpdate") in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let resourceARNUpdate =
        field_map json__ "ResourceARNUpdate" ResourceARN.of_json in
      make ?roleARNUpdate ?resourceARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When updating an output configuration using the UpdateApplication operation, provides information about an AWS Lambda function configured as the destination."]
module InAppTableName =
  struct
    type nonrec t = string
    let context_ = "InAppTableName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:32) >>=
             (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:"InAppTableName" j
    let to_json = simple_to_json to_value
  end
module S3ReferenceDataSourceUpdate =
  struct
    type nonrec t =
      {
      bucketARNUpdate: BucketARN.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the S3 bucket."];
      fileKeyUpdate: FileKey.t option [@ocaml.doc "Object key name."];
      referenceRoleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to read the Amazon S3 object and populate the in-application."]}
    let make ?bucketARNUpdate =
      fun ?fileKeyUpdate ->
        fun ?referenceRoleARNUpdate ->
          fun () ->
            { bucketARNUpdate; fileKeyUpdate; referenceRoleARNUpdate }
    let to_value x =
      structure_to_value
        [("BucketARNUpdate",
           (Option.map x.bucketARNUpdate ~f:BucketARN.to_value));
        ("FileKeyUpdate", (Option.map x.fileKeyUpdate ~f:FileKey.to_value));
        ("ReferenceRoleARNUpdate",
          (Option.map x.referenceRoleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceRoleARNUpdate =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "ReferenceRoleARNUpdate") in
      let fileKeyUpdate =
        (Option.map ~f:FileKey.of_xml) (Xml.child xml_arg0 "FileKeyUpdate") in
      let bucketARNUpdate =
        (Option.map ~f:BucketARN.of_xml)
          (Xml.child xml_arg0 "BucketARNUpdate") in
      make ?referenceRoleARNUpdate ?fileKeyUpdate ?bucketARNUpdate ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceRoleARNUpdate =
        field_map json__ "ReferenceRoleARNUpdate" RoleARN.of_json in
      let fileKeyUpdate = field_map json__ "FileKeyUpdate" FileKey.of_json in
      let bucketARNUpdate =
        field_map json__ "BucketARNUpdate" BucketARN.of_json in
      make ?referenceRoleARNUpdate ?fileKeyUpdate ?bucketARNUpdate ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the S3 bucket name, object key name, and IAM role that Amazon Kinesis Analytics can assume to read the Amazon S3 object on your behalf and populate the in-application reference table."]
module SourceSchema =
  struct
    type nonrec t =
      {
      recordFormat: RecordFormat.t
        [@ocaml.doc
          "Specifies the format of the records on the streaming source."];
      recordEncoding: RecordEncoding.t option
        [@ocaml.doc
          "Specifies the encoding of the records in the streaming source. For example, UTF-8."];
      recordColumns: RecordColumns.t
        [@ocaml.doc "A list of RecordColumn objects."]}
    let context_ = "SourceSchema"
    let make ?recordEncoding =
      fun ~recordFormat ->
        fun ~recordColumns ->
          fun () -> { recordEncoding; recordFormat; recordColumns }
    let to_value x =
      structure_to_value
        [("RecordFormat", (Some (RecordFormat.to_value x.recordFormat)));
        ("RecordEncoding",
          (Option.map x.recordEncoding ~f:RecordEncoding.to_value));
        ("RecordColumns", (Some (RecordColumns.to_value x.recordColumns)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let recordColumns =
        RecordColumns.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordColumns") in
      let recordEncoding =
        (Option.map ~f:RecordEncoding.of_xml)
          (Xml.child xml_arg0 "RecordEncoding") in
      let recordFormat =
        RecordFormat.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "RecordFormat") in
      make ~recordColumns ?recordEncoding ~recordFormat ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let recordColumns =
        field_map_exn json__ "RecordColumns" RecordColumns.of_json in
      let recordEncoding =
        field_map json__ "RecordEncoding" RecordEncoding.of_json in
      let recordFormat =
        field_map_exn json__ "RecordFormat" RecordFormat.of_json in
      make ~recordColumns ?recordEncoding ~recordFormat ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns created in the in-application stream."]
module InAppStreamNames =
  struct
    type nonrec t = InAppStreamName.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:InAppStreamName.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:InAppStreamName.of_xml)
    let of_json j =
      list_of_json ~kind:"InAppStreamNames" ~of_json:InAppStreamName.of_json
        j
    let to_json v = composed_to_json to_value v
  end
module InputParallelism =
  struct
    type nonrec t =
      {
      count: InputParallelismCount.t option
        [@ocaml.doc
          "Number of in-application streams to create. For more information, see Limits."]}
    let make ?count = fun () -> { count }
    let to_value x =
      structure_to_value
        [("Count", (Option.map x.count ~f:InputParallelismCount.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let count =
        (Option.map ~f:InputParallelismCount.of_xml)
          (Xml.child xml_arg0 "Count") in
      make ?count ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let count = field_map json__ "Count" InputParallelismCount.of_json in
      make ?count ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the number of in-application streams to create for a given streaming source. For information about parallelism, see Configuring Application Input."]
module InputProcessingConfigurationDescription =
  struct
    type nonrec t =
      {
      inputLambdaProcessorDescription:
        InputLambdaProcessorDescription.t option
        [@ocaml.doc
          "Provides configuration information about the associated InputLambdaProcessorDescription."]}
    let make ?inputLambdaProcessorDescription =
      fun () -> { inputLambdaProcessorDescription }
    let to_value x =
      structure_to_value
        [("InputLambdaProcessorDescription",
           (Option.map x.inputLambdaProcessorDescription
              ~f:InputLambdaProcessorDescription.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputLambdaProcessorDescription =
        (Option.map ~f:InputLambdaProcessorDescription.of_xml)
          (Xml.child xml_arg0 "InputLambdaProcessorDescription") in
      make ?inputLambdaProcessorDescription ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputLambdaProcessorDescription =
        field_map json__ "InputLambdaProcessorDescription"
          InputLambdaProcessorDescription.of_json in
      make ?inputLambdaProcessorDescription ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides configuration information about an input processor. Currently, the only input processor available is AWS Lambda."]
module InputStartingPositionConfiguration =
  struct
    type nonrec t =
      {
      inputStartingPosition: InputStartingPosition.t option
        [@ocaml.doc
          "The starting position on the stream. NOW - Start reading just after the most recent record in the stream, start at the request time stamp that the customer issued. TRIM_HORIZON - Start reading at the last untrimmed record in the stream, which is the oldest record available in the stream. This option is not available for an Amazon Kinesis Firehose delivery stream. LAST_STOPPED_POINT - Resume reading from where the application last stopped reading."]}
    let make ?inputStartingPosition = fun () -> { inputStartingPosition }
    let to_value x =
      structure_to_value
        [("InputStartingPosition",
           (Option.map x.inputStartingPosition
              ~f:InputStartingPosition.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputStartingPosition =
        (Option.map ~f:InputStartingPosition.of_xml)
          (Xml.child xml_arg0 "InputStartingPosition") in
      make ?inputStartingPosition ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputStartingPosition =
        field_map json__ "InputStartingPosition"
          InputStartingPosition.of_json in
      make ?inputStartingPosition ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the point at which the application reads from the streaming source."]
module KinesisFirehoseInputDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis Firehose delivery stream."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics assumes to access the stream."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Amazon Kinesis Firehose delivery stream that is configured as the streaming source in the application input configuration."]
module KinesisStreamsInputDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis stream."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the Amazon Kinesis stream that is configured as the streaming source in the application input configuration."]
module KinesisFirehoseOutputDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis Firehose delivery stream."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For an application output, describes the Amazon Kinesis Firehose delivery stream configured as its destination."]
module KinesisStreamsOutputDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the Amazon Kinesis stream."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For an application output, describes the Amazon Kinesis stream configured as its destination."]
module LambdaOutputDescription =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the destination Lambda function."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to write to the destination function."]}
    let make ?resourceARN =
      fun ?roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "For an application output, describes the AWS Lambda function configured as its destination."]
module S3ReferenceDataSourceDescription =
  struct
    type nonrec t =
      {
      bucketARN: BucketARN.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the S3 bucket."];
      fileKey: FileKey.t option [@ocaml.doc "Amazon S3 object key name."];
      referenceRoleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to read the Amazon S3 object on your behalf to populate the in-application reference table."]}
    let make ?bucketARN =
      fun ?fileKey ->
        fun ?referenceRoleARN ->
          fun () -> { bucketARN; fileKey; referenceRoleARN }
    let to_value x =
      structure_to_value
        [("BucketARN", (Option.map x.bucketARN ~f:BucketARN.to_value));
        ("FileKey", (Option.map x.fileKey ~f:FileKey.to_value));
        ("ReferenceRoleARN",
          (Option.map x.referenceRoleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceRoleARN =
        (Option.map ~f:RoleARN.of_xml)
          (Xml.child xml_arg0 "ReferenceRoleARN") in
      let fileKey =
        (Option.map ~f:FileKey.of_xml) (Xml.child xml_arg0 "FileKey") in
      let bucketARN =
        (Option.map ~f:BucketARN.of_xml) (Xml.child xml_arg0 "BucketARN") in
      make ?referenceRoleARN ?fileKey ?bucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceRoleARN =
        field_map json__ "ReferenceRoleARN" RoleARN.of_json in
      let fileKey = field_map json__ "FileKey" FileKey.of_json in
      let bucketARN = field_map json__ "BucketARN" BucketARN.of_json in
      make ?referenceRoleARN ?fileKey ?bucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides the bucket name and object key name that stores the reference data."]
module InputLambdaProcessor =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "The ARN of the AWS Lambda function that operates on records in the stream. To specify an earlier version of the Lambda function than the latest, include the Lambda function version in the Lambda function ARN. For more information about Lambda ARNs, see Example ARNs: AWS Lambda"];
      roleARN: RoleARN.t
        [@ocaml.doc
          "The ARN of the IAM role that is used to access the AWS Lambda function."]}
    let context_ = "InputLambdaProcessor"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "An object that contains the Amazon Resource Name (ARN) of the AWS Lambda function that is used to preprocess records in the stream, and the ARN of the IAM role that is used to access the AWS Lambda function."]
module CloudWatchLoggingOptionUpdate =
  struct
    type nonrec t =
      {
      cloudWatchLoggingOptionId: Id.t
        [@ocaml.doc "ID of the CloudWatch logging option to update"];
      logStreamARNUpdate: LogStreamARN.t option
        [@ocaml.doc
          "ARN of the CloudWatch log to receive application messages."];
      roleARNUpdate: RoleARN.t option
        [@ocaml.doc
          "IAM ARN of the role to use to send application messages. Note: To write application messages to CloudWatch, the IAM role used must have the PutLogEvents policy action enabled."]}
    let context_ = "CloudWatchLoggingOptionUpdate"
    let make ?logStreamARNUpdate =
      fun ?roleARNUpdate ->
        fun ~cloudWatchLoggingOptionId ->
          fun () ->
            { logStreamARNUpdate; roleARNUpdate; cloudWatchLoggingOptionId }
    let to_value x =
      structure_to_value
        [("CloudWatchLoggingOptionId",
           (Some (Id.to_value x.cloudWatchLoggingOptionId)));
        ("LogStreamARNUpdate",
          (Option.map x.logStreamARNUpdate ~f:LogStreamARN.to_value));
        ("RoleARNUpdate", (Option.map x.roleARNUpdate ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARNUpdate =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARNUpdate") in
      let logStreamARNUpdate =
        (Option.map ~f:LogStreamARN.of_xml)
          (Xml.child xml_arg0 "LogStreamARNUpdate") in
      let cloudWatchLoggingOptionId =
        Id.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CloudWatchLoggingOptionId") in
      make ?roleARNUpdate ?logStreamARNUpdate ~cloudWatchLoggingOptionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARNUpdate = field_map json__ "RoleARNUpdate" RoleARN.of_json in
      let logStreamARNUpdate =
        field_map json__ "LogStreamARNUpdate" LogStreamARN.of_json in
      let cloudWatchLoggingOptionId =
        field_map_exn json__ "CloudWatchLoggingOptionId" Id.of_json in
      make ?roleARNUpdate ?logStreamARNUpdate ~cloudWatchLoggingOptionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Describes CloudWatch logging option updates."]
module InputUpdate =
  struct
    type nonrec t =
      {
      inputId: Id.t
        [@ocaml.doc "Input ID of the application input to be updated."];
      namePrefixUpdate: InAppStreamName.t option
        [@ocaml.doc
          "Name prefix for in-application streams that Amazon Kinesis Analytics creates for the specific streaming source."];
      inputProcessingConfigurationUpdate:
        InputProcessingConfigurationUpdate.t option
        [@ocaml.doc
          "Describes updates for an input processing configuration."];
      kinesisStreamsInputUpdate: KinesisStreamsInputUpdate.t option
        [@ocaml.doc
          "If an Amazon Kinesis stream is the streaming source to be updated, provides an updated stream Amazon Resource Name (ARN) and IAM role ARN."];
      kinesisFirehoseInputUpdate: KinesisFirehoseInputUpdate.t option
        [@ocaml.doc
          "If an Amazon Kinesis Firehose delivery stream is the streaming source to be updated, provides an updated stream ARN and IAM role ARN."];
      inputSchemaUpdate: InputSchemaUpdate.t option
        [@ocaml.doc
          "Describes the data format on the streaming source, and how record elements on the streaming source map to columns of the in-application stream that is created."];
      inputParallelismUpdate: InputParallelismUpdate.t option
        [@ocaml.doc
          "Describes the parallelism updates (the number in-application streams Amazon Kinesis Analytics creates for the specific streaming source)."]}
    let context_ = "InputUpdate"
    let make ?namePrefixUpdate =
      fun ?inputProcessingConfigurationUpdate ->
        fun ?kinesisStreamsInputUpdate ->
          fun ?kinesisFirehoseInputUpdate ->
            fun ?inputSchemaUpdate ->
              fun ?inputParallelismUpdate ->
                fun ~inputId ->
                  fun () ->
                    {
                      namePrefixUpdate;
                      inputProcessingConfigurationUpdate;
                      kinesisStreamsInputUpdate;
                      kinesisFirehoseInputUpdate;
                      inputSchemaUpdate;
                      inputParallelismUpdate;
                      inputId
                    }
    let to_value x =
      structure_to_value
        [("InputId", (Some (Id.to_value x.inputId)));
        ("NamePrefixUpdate",
          (Option.map x.namePrefixUpdate ~f:InAppStreamName.to_value));
        ("InputProcessingConfigurationUpdate",
          (Option.map x.inputProcessingConfigurationUpdate
             ~f:InputProcessingConfigurationUpdate.to_value));
        ("KinesisStreamsInputUpdate",
          (Option.map x.kinesisStreamsInputUpdate
             ~f:KinesisStreamsInputUpdate.to_value));
        ("KinesisFirehoseInputUpdate",
          (Option.map x.kinesisFirehoseInputUpdate
             ~f:KinesisFirehoseInputUpdate.to_value));
        ("InputSchemaUpdate",
          (Option.map x.inputSchemaUpdate ~f:InputSchemaUpdate.to_value));
        ("InputParallelismUpdate",
          (Option.map x.inputParallelismUpdate
             ~f:InputParallelismUpdate.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputParallelismUpdate =
        (Option.map ~f:InputParallelismUpdate.of_xml)
          (Xml.child xml_arg0 "InputParallelismUpdate") in
      let inputSchemaUpdate =
        (Option.map ~f:InputSchemaUpdate.of_xml)
          (Xml.child xml_arg0 "InputSchemaUpdate") in
      let kinesisFirehoseInputUpdate =
        (Option.map ~f:KinesisFirehoseInputUpdate.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseInputUpdate") in
      let kinesisStreamsInputUpdate =
        (Option.map ~f:KinesisStreamsInputUpdate.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsInputUpdate") in
      let inputProcessingConfigurationUpdate =
        (Option.map ~f:InputProcessingConfigurationUpdate.of_xml)
          (Xml.child xml_arg0 "InputProcessingConfigurationUpdate") in
      let namePrefixUpdate =
        (Option.map ~f:InAppStreamName.of_xml)
          (Xml.child xml_arg0 "NamePrefixUpdate") in
      let inputId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "InputId") in
      make ?inputParallelismUpdate ?inputSchemaUpdate
        ?kinesisFirehoseInputUpdate ?kinesisStreamsInputUpdate
        ?inputProcessingConfigurationUpdate ?namePrefixUpdate ~inputId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputParallelismUpdate =
        field_map json__ "InputParallelismUpdate"
          InputParallelismUpdate.of_json in
      let inputSchemaUpdate =
        field_map json__ "InputSchemaUpdate" InputSchemaUpdate.of_json in
      let kinesisFirehoseInputUpdate =
        field_map json__ "KinesisFirehoseInputUpdate"
          KinesisFirehoseInputUpdate.of_json in
      let kinesisStreamsInputUpdate =
        field_map json__ "KinesisStreamsInputUpdate"
          KinesisStreamsInputUpdate.of_json in
      let inputProcessingConfigurationUpdate =
        field_map json__ "InputProcessingConfigurationUpdate"
          InputProcessingConfigurationUpdate.of_json in
      let namePrefixUpdate =
        field_map json__ "NamePrefixUpdate" InAppStreamName.of_json in
      let inputId = field_map_exn json__ "InputId" Id.of_json in
      make ?inputParallelismUpdate ?inputSchemaUpdate
        ?kinesisFirehoseInputUpdate ?kinesisStreamsInputUpdate
        ?inputProcessingConfigurationUpdate ?namePrefixUpdate ~inputId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes updates to a specific input configuration (identified by the InputId of an application)."]
module OutputUpdate =
  struct
    type nonrec t =
      {
      outputId: Id.t
        [@ocaml.doc
          "Identifies the specific output configuration that you want to update."];
      nameUpdate: InAppStreamName.t option
        [@ocaml.doc
          "If you want to specify a different in-application stream for this output configuration, use this field to specify the new in-application stream name."];
      kinesisStreamsOutputUpdate: KinesisStreamsOutputUpdate.t option
        [@ocaml.doc
          "Describes an Amazon Kinesis stream as the destination for the output."];
      kinesisFirehoseOutputUpdate: KinesisFirehoseOutputUpdate.t option
        [@ocaml.doc
          "Describes an Amazon Kinesis Firehose delivery stream as the destination for the output."];
      lambdaOutputUpdate: LambdaOutputUpdate.t option
        [@ocaml.doc
          "Describes an AWS Lambda function as the destination for the output."];
      destinationSchemaUpdate: DestinationSchema.t option
        [@ocaml.doc
          "Describes the data format when records are written to the destination. For more information, see Configuring Application Output."]}
    let context_ = "OutputUpdate"
    let make ?nameUpdate =
      fun ?kinesisStreamsOutputUpdate ->
        fun ?kinesisFirehoseOutputUpdate ->
          fun ?lambdaOutputUpdate ->
            fun ?destinationSchemaUpdate ->
              fun ~outputId ->
                fun () ->
                  {
                    nameUpdate;
                    kinesisStreamsOutputUpdate;
                    kinesisFirehoseOutputUpdate;
                    lambdaOutputUpdate;
                    destinationSchemaUpdate;
                    outputId
                  }
    let to_value x =
      structure_to_value
        [("OutputId", (Some (Id.to_value x.outputId)));
        ("NameUpdate", (Option.map x.nameUpdate ~f:InAppStreamName.to_value));
        ("KinesisStreamsOutputUpdate",
          (Option.map x.kinesisStreamsOutputUpdate
             ~f:KinesisStreamsOutputUpdate.to_value));
        ("KinesisFirehoseOutputUpdate",
          (Option.map x.kinesisFirehoseOutputUpdate
             ~f:KinesisFirehoseOutputUpdate.to_value));
        ("LambdaOutputUpdate",
          (Option.map x.lambdaOutputUpdate ~f:LambdaOutputUpdate.to_value));
        ("DestinationSchemaUpdate",
          (Option.map x.destinationSchemaUpdate ~f:DestinationSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationSchemaUpdate =
        (Option.map ~f:DestinationSchema.of_xml)
          (Xml.child xml_arg0 "DestinationSchemaUpdate") in
      let lambdaOutputUpdate =
        (Option.map ~f:LambdaOutputUpdate.of_xml)
          (Xml.child xml_arg0 "LambdaOutputUpdate") in
      let kinesisFirehoseOutputUpdate =
        (Option.map ~f:KinesisFirehoseOutputUpdate.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseOutputUpdate") in
      let kinesisStreamsOutputUpdate =
        (Option.map ~f:KinesisStreamsOutputUpdate.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsOutputUpdate") in
      let nameUpdate =
        (Option.map ~f:InAppStreamName.of_xml)
          (Xml.child xml_arg0 "NameUpdate") in
      let outputId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "OutputId") in
      make ?destinationSchemaUpdate ?lambdaOutputUpdate
        ?kinesisFirehoseOutputUpdate ?kinesisStreamsOutputUpdate ?nameUpdate
        ~outputId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationSchemaUpdate =
        field_map json__ "DestinationSchemaUpdate" DestinationSchema.of_json in
      let lambdaOutputUpdate =
        field_map json__ "LambdaOutputUpdate" LambdaOutputUpdate.of_json in
      let kinesisFirehoseOutputUpdate =
        field_map json__ "KinesisFirehoseOutputUpdate"
          KinesisFirehoseOutputUpdate.of_json in
      let kinesisStreamsOutputUpdate =
        field_map json__ "KinesisStreamsOutputUpdate"
          KinesisStreamsOutputUpdate.of_json in
      let nameUpdate = field_map json__ "NameUpdate" InAppStreamName.of_json in
      let outputId = field_map_exn json__ "OutputId" Id.of_json in
      make ?destinationSchemaUpdate ?lambdaOutputUpdate
        ?kinesisFirehoseOutputUpdate ?kinesisStreamsOutputUpdate ?nameUpdate
        ~outputId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes updates to the output configuration identified by the OutputId."]
module ReferenceDataSourceUpdate =
  struct
    type nonrec t =
      {
      referenceId: Id.t
        [@ocaml.doc
          "ID of the reference data source being updated. You can use the DescribeApplication operation to get this value."];
      tableNameUpdate: InAppTableName.t option
        [@ocaml.doc
          "In-application table name that is created by this update."];
      s3ReferenceDataSourceUpdate: S3ReferenceDataSourceUpdate.t option
        [@ocaml.doc
          "Describes the S3 bucket name, object key name, and IAM role that Amazon Kinesis Analytics can assume to read the Amazon S3 object on your behalf and populate the in-application reference table."];
      referenceSchemaUpdate: SourceSchema.t option
        [@ocaml.doc
          "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns created in the in-application stream."]}
    let context_ = "ReferenceDataSourceUpdate"
    let make ?tableNameUpdate =
      fun ?s3ReferenceDataSourceUpdate ->
        fun ?referenceSchemaUpdate ->
          fun ~referenceId ->
            fun () ->
              {
                tableNameUpdate;
                s3ReferenceDataSourceUpdate;
                referenceSchemaUpdate;
                referenceId
              }
    let to_value x =
      structure_to_value
        [("ReferenceId", (Some (Id.to_value x.referenceId)));
        ("TableNameUpdate",
          (Option.map x.tableNameUpdate ~f:InAppTableName.to_value));
        ("S3ReferenceDataSourceUpdate",
          (Option.map x.s3ReferenceDataSourceUpdate
             ~f:S3ReferenceDataSourceUpdate.to_value));
        ("ReferenceSchemaUpdate",
          (Option.map x.referenceSchemaUpdate ~f:SourceSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceSchemaUpdate =
        (Option.map ~f:SourceSchema.of_xml)
          (Xml.child xml_arg0 "ReferenceSchemaUpdate") in
      let s3ReferenceDataSourceUpdate =
        (Option.map ~f:S3ReferenceDataSourceUpdate.of_xml)
          (Xml.child xml_arg0 "S3ReferenceDataSourceUpdate") in
      let tableNameUpdate =
        (Option.map ~f:InAppTableName.of_xml)
          (Xml.child xml_arg0 "TableNameUpdate") in
      let referenceId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ReferenceId") in
      make ?referenceSchemaUpdate ?s3ReferenceDataSourceUpdate
        ?tableNameUpdate ~referenceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceSchemaUpdate =
        field_map json__ "ReferenceSchemaUpdate" SourceSchema.of_json in
      let s3ReferenceDataSourceUpdate =
        field_map json__ "S3ReferenceDataSourceUpdate"
          S3ReferenceDataSourceUpdate.of_json in
      let tableNameUpdate =
        field_map json__ "TableNameUpdate" InAppTableName.of_json in
      let referenceId = field_map_exn json__ "ReferenceId" Id.of_json in
      make ?referenceSchemaUpdate ?s3ReferenceDataSourceUpdate
        ?tableNameUpdate ~referenceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When you update a reference data source configuration for an application, this object provides all the updated values (such as the source bucket name and object key name), the in-application table name that is created, and updated mapping information that maps the data in the Amazon S3 object to the in-application reference table that is created."]
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 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 ApplicationName =
  struct
    type nonrec t = string
    let context_ = "ApplicationName"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:128) >>=
                  (fun () -> check_pattern i ~pattern:"[a-zA-Z0-9_.-]+")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ApplicationName" j
    let to_json = simple_to_json to_value
  end
module ApplicationStatus =
  struct
    type nonrec t =
      | DELETING 
      | STARTING 
      | STOPPING 
      | READY 
      | RUNNING 
      | UPDATING 
      | Non_static_id of string 
    let make i = i
    let to_string =
      function
      | DELETING -> "DELETING"
      | STARTING -> "STARTING"
      | STOPPING -> "STOPPING"
      | READY -> "READY"
      | RUNNING -> "RUNNING"
      | UPDATING -> "UPDATING"
      | Non_static_id s -> s
    let of_string =
      function
      | "DELETING" -> DELETING
      | "STARTING" -> STARTING
      | "STOPPING" -> STOPPING
      | "READY" -> READY
      | "RUNNING" -> RUNNING
      | "UPDATING" -> UPDATING
      | 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 ApplicationStatus" xml_arg0)
    let of_json j = of_string (string_of_json ~kind:"ApplicationStatus" j)
    let to_json = simple_to_json to_value
  end
module ParsedInputRecordField =
  struct
    type nonrec t = string
    let context_ = "ParsedInputRecordField"
    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:"ParsedInputRecordField" j
    let to_json = simple_to_json to_value
  end
module ProcessedInputRecord =
  struct
    type nonrec t = string
    let context_ = "ProcessedInputRecord"
    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:"ProcessedInputRecord" j
    let to_json = simple_to_json to_value
  end
module RawInputRecord =
  struct
    type nonrec t = string
    let context_ = "RawInputRecord"
    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:"RawInputRecord" j
    let to_json = simple_to_json to_value
  end
module CloudWatchLoggingOptionDescription =
  struct
    type nonrec t =
      {
      cloudWatchLoggingOptionId: Id.t option
        [@ocaml.doc "ID of the CloudWatch logging option description."];
      logStreamARN: LogStreamARN.t option
        [@ocaml.doc
          "ARN of the CloudWatch log to receive application messages."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "IAM ARN of the role to use to send application messages. Note: To write application messages to CloudWatch, the IAM role used must have the PutLogEvents policy action enabled."]}
    let make ?cloudWatchLoggingOptionId =
      fun ?logStreamARN ->
        fun ?roleARN ->
          fun () -> { cloudWatchLoggingOptionId; logStreamARN; roleARN }
    let to_value x =
      structure_to_value
        [("CloudWatchLoggingOptionId",
           (Option.map x.cloudWatchLoggingOptionId ~f:Id.to_value));
        ("LogStreamARN",
          (Option.map x.logStreamARN ~f:LogStreamARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let logStreamARN =
        (Option.map ~f:LogStreamARN.of_xml)
          (Xml.child xml_arg0 "LogStreamARN") in
      let cloudWatchLoggingOptionId =
        (Option.map ~f:Id.of_xml)
          (Xml.child xml_arg0 "CloudWatchLoggingOptionId") in
      make ?roleARN ?logStreamARN ?cloudWatchLoggingOptionId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let logStreamARN = field_map json__ "LogStreamARN" LogStreamARN.of_json in
      let cloudWatchLoggingOptionId =
        field_map json__ "CloudWatchLoggingOptionId" Id.of_json in
      make ?roleARN ?logStreamARN ?cloudWatchLoggingOptionId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Description of the CloudWatch logging option."]
module InputDescription =
  struct
    type nonrec t =
      {
      inputId: Id.t option
        [@ocaml.doc
          "Input ID associated with the application input. This is the ID that Amazon Kinesis Analytics assigns to each input configuration you add to your application."];
      namePrefix: InAppStreamName.t option
        [@ocaml.doc "In-application name prefix."];
      inAppStreamNames: InAppStreamNames.t option
        [@ocaml.doc
          "Returns the in-application stream names that are mapped to the stream source."];
      inputProcessingConfigurationDescription:
        InputProcessingConfigurationDescription.t option
        [@ocaml.doc
          "The description of the preprocessor that executes on records in this input before the application's code is run."];
      kinesisStreamsInputDescription: KinesisStreamsInputDescription.t option
        [@ocaml.doc
          "If an Amazon Kinesis stream is configured as streaming source, provides Amazon Kinesis stream's Amazon Resource Name (ARN) and an IAM role that enables Amazon Kinesis Analytics to access the stream on your behalf."];
      kinesisFirehoseInputDescription:
        KinesisFirehoseInputDescription.t option
        [@ocaml.doc
          "If an Amazon Kinesis Firehose delivery stream is configured as a streaming source, provides the delivery stream's ARN and an IAM role that enables Amazon Kinesis Analytics to access the stream on your behalf."];
      inputSchema: SourceSchema.t option
        [@ocaml.doc
          "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns in the in-application stream that is being created."];
      inputParallelism: InputParallelism.t option
        [@ocaml.doc
          "Describes the configured parallelism (number of in-application streams mapped to the streaming source)."];
      inputStartingPositionConfiguration:
        InputStartingPositionConfiguration.t option
        [@ocaml.doc
          "Point at which the application is configured to read from the input stream."]}
    let make ?inputId =
      fun ?namePrefix ->
        fun ?inAppStreamNames ->
          fun ?inputProcessingConfigurationDescription ->
            fun ?kinesisStreamsInputDescription ->
              fun ?kinesisFirehoseInputDescription ->
                fun ?inputSchema ->
                  fun ?inputParallelism ->
                    fun ?inputStartingPositionConfiguration ->
                      fun () ->
                        {
                          inputId;
                          namePrefix;
                          inAppStreamNames;
                          inputProcessingConfigurationDescription;
                          kinesisStreamsInputDescription;
                          kinesisFirehoseInputDescription;
                          inputSchema;
                          inputParallelism;
                          inputStartingPositionConfiguration
                        }
    let to_value x =
      structure_to_value
        [("InputId", (Option.map x.inputId ~f:Id.to_value));
        ("NamePrefix", (Option.map x.namePrefix ~f:InAppStreamName.to_value));
        ("InAppStreamNames",
          (Option.map x.inAppStreamNames ~f:InAppStreamNames.to_value));
        ("InputProcessingConfigurationDescription",
          (Option.map x.inputProcessingConfigurationDescription
             ~f:InputProcessingConfigurationDescription.to_value));
        ("KinesisStreamsInputDescription",
          (Option.map x.kinesisStreamsInputDescription
             ~f:KinesisStreamsInputDescription.to_value));
        ("KinesisFirehoseInputDescription",
          (Option.map x.kinesisFirehoseInputDescription
             ~f:KinesisFirehoseInputDescription.to_value));
        ("InputSchema", (Option.map x.inputSchema ~f:SourceSchema.to_value));
        ("InputParallelism",
          (Option.map x.inputParallelism ~f:InputParallelism.to_value));
        ("InputStartingPositionConfiguration",
          (Option.map x.inputStartingPositionConfiguration
             ~f:InputStartingPositionConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputStartingPositionConfiguration =
        (Option.map ~f:InputStartingPositionConfiguration.of_xml)
          (Xml.child xml_arg0 "InputStartingPositionConfiguration") in
      let inputParallelism =
        (Option.map ~f:InputParallelism.of_xml)
          (Xml.child xml_arg0 "InputParallelism") in
      let inputSchema =
        (Option.map ~f:SourceSchema.of_xml)
          (Xml.child xml_arg0 "InputSchema") in
      let kinesisFirehoseInputDescription =
        (Option.map ~f:KinesisFirehoseInputDescription.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseInputDescription") in
      let kinesisStreamsInputDescription =
        (Option.map ~f:KinesisStreamsInputDescription.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsInputDescription") in
      let inputProcessingConfigurationDescription =
        (Option.map ~f:InputProcessingConfigurationDescription.of_xml)
          (Xml.child xml_arg0 "InputProcessingConfigurationDescription") in
      let inAppStreamNames =
        (Option.map ~f:InAppStreamNames.of_xml)
          (Xml.child xml_arg0 "InAppStreamNames") in
      let namePrefix =
        (Option.map ~f:InAppStreamName.of_xml)
          (Xml.child xml_arg0 "NamePrefix") in
      let inputId = (Option.map ~f:Id.of_xml) (Xml.child xml_arg0 "InputId") in
      make ?inputStartingPositionConfiguration ?inputParallelism ?inputSchema
        ?kinesisFirehoseInputDescription ?kinesisStreamsInputDescription
        ?inputProcessingConfigurationDescription ?inAppStreamNames
        ?namePrefix ?inputId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputStartingPositionConfiguration =
        field_map json__ "InputStartingPositionConfiguration"
          InputStartingPositionConfiguration.of_json in
      let inputParallelism =
        field_map json__ "InputParallelism" InputParallelism.of_json in
      let inputSchema = field_map json__ "InputSchema" SourceSchema.of_json in
      let kinesisFirehoseInputDescription =
        field_map json__ "KinesisFirehoseInputDescription"
          KinesisFirehoseInputDescription.of_json in
      let kinesisStreamsInputDescription =
        field_map json__ "KinesisStreamsInputDescription"
          KinesisStreamsInputDescription.of_json in
      let inputProcessingConfigurationDescription =
        field_map json__ "InputProcessingConfigurationDescription"
          InputProcessingConfigurationDescription.of_json in
      let inAppStreamNames =
        field_map json__ "InAppStreamNames" InAppStreamNames.of_json in
      let namePrefix = field_map json__ "NamePrefix" InAppStreamName.of_json in
      let inputId = field_map json__ "InputId" Id.of_json in
      make ?inputStartingPositionConfiguration ?inputParallelism ?inputSchema
        ?kinesisFirehoseInputDescription ?kinesisStreamsInputDescription
        ?inputProcessingConfigurationDescription ?inAppStreamNames
        ?namePrefix ?inputId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the application input configuration. For more information, see Configuring Application Input."]
module OutputDescription =
  struct
    type nonrec t =
      {
      outputId: Id.t option
        [@ocaml.doc "A unique identifier for the output configuration."];
      name: InAppStreamName.t option
        [@ocaml.doc
          "Name of the in-application stream configured as output."];
      kinesisStreamsOutputDescription:
        KinesisStreamsOutputDescription.t option
        [@ocaml.doc
          "Describes Amazon Kinesis stream configured as the destination where output is written."];
      kinesisFirehoseOutputDescription:
        KinesisFirehoseOutputDescription.t option
        [@ocaml.doc
          "Describes the Amazon Kinesis Firehose delivery stream configured as the destination where output is written."];
      lambdaOutputDescription: LambdaOutputDescription.t option
        [@ocaml.doc
          "Describes the AWS Lambda function configured as the destination where output is written."];
      destinationSchema: DestinationSchema.t option
        [@ocaml.doc "Data format used for writing data to the destination."]}
    let make ?outputId =
      fun ?name ->
        fun ?kinesisStreamsOutputDescription ->
          fun ?kinesisFirehoseOutputDescription ->
            fun ?lambdaOutputDescription ->
              fun ?destinationSchema ->
                fun () ->
                  {
                    outputId;
                    name;
                    kinesisStreamsOutputDescription;
                    kinesisFirehoseOutputDescription;
                    lambdaOutputDescription;
                    destinationSchema
                  }
    let to_value x =
      structure_to_value
        [("OutputId", (Option.map x.outputId ~f:Id.to_value));
        ("Name", (Option.map x.name ~f:InAppStreamName.to_value));
        ("KinesisStreamsOutputDescription",
          (Option.map x.kinesisStreamsOutputDescription
             ~f:KinesisStreamsOutputDescription.to_value));
        ("KinesisFirehoseOutputDescription",
          (Option.map x.kinesisFirehoseOutputDescription
             ~f:KinesisFirehoseOutputDescription.to_value));
        ("LambdaOutputDescription",
          (Option.map x.lambdaOutputDescription
             ~f:LambdaOutputDescription.to_value));
        ("DestinationSchema",
          (Option.map x.destinationSchema ~f:DestinationSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationSchema =
        (Option.map ~f:DestinationSchema.of_xml)
          (Xml.child xml_arg0 "DestinationSchema") in
      let lambdaOutputDescription =
        (Option.map ~f:LambdaOutputDescription.of_xml)
          (Xml.child xml_arg0 "LambdaOutputDescription") in
      let kinesisFirehoseOutputDescription =
        (Option.map ~f:KinesisFirehoseOutputDescription.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseOutputDescription") in
      let kinesisStreamsOutputDescription =
        (Option.map ~f:KinesisStreamsOutputDescription.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsOutputDescription") in
      let name =
        (Option.map ~f:InAppStreamName.of_xml) (Xml.child xml_arg0 "Name") in
      let outputId =
        (Option.map ~f:Id.of_xml) (Xml.child xml_arg0 "OutputId") in
      make ?destinationSchema ?lambdaOutputDescription
        ?kinesisFirehoseOutputDescription ?kinesisStreamsOutputDescription
        ?name ?outputId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationSchema =
        field_map json__ "DestinationSchema" DestinationSchema.of_json in
      let lambdaOutputDescription =
        field_map json__ "LambdaOutputDescription"
          LambdaOutputDescription.of_json in
      let kinesisFirehoseOutputDescription =
        field_map json__ "KinesisFirehoseOutputDescription"
          KinesisFirehoseOutputDescription.of_json in
      let kinesisStreamsOutputDescription =
        field_map json__ "KinesisStreamsOutputDescription"
          KinesisStreamsOutputDescription.of_json in
      let name = field_map json__ "Name" InAppStreamName.of_json in
      let outputId = field_map json__ "OutputId" Id.of_json in
      make ?destinationSchema ?lambdaOutputDescription
        ?kinesisFirehoseOutputDescription ?kinesisStreamsOutputDescription
        ?name ?outputId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the application output configuration, which includes the in-application stream name and the destination where the stream data is written. The destination can be an Amazon Kinesis stream or an Amazon Kinesis Firehose delivery stream."]
module ReferenceDataSourceDescription =
  struct
    type nonrec t =
      {
      referenceId: Id.t option
        [@ocaml.doc
          "ID of the reference data source. This is the ID that Amazon Kinesis Analytics assigns when you add the reference data source to your application using the AddApplicationReferenceDataSource operation."];
      tableName: InAppTableName.t option
        [@ocaml.doc
          "The in-application table name created by the specific reference data source configuration."];
      s3ReferenceDataSourceDescription:
        S3ReferenceDataSourceDescription.t option
        [@ocaml.doc
          "Provides the S3 bucket name, the object key name that contains the reference data. It also provides the Amazon Resource Name (ARN) of the IAM role that Amazon Kinesis Analytics can assume to read the Amazon S3 object and populate the in-application reference table."];
      referenceSchema: SourceSchema.t option
        [@ocaml.doc
          "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns created in the in-application stream."]}
    let make ?referenceId =
      fun ?tableName ->
        fun ?s3ReferenceDataSourceDescription ->
          fun ?referenceSchema ->
            fun () ->
              {
                referenceId;
                tableName;
                s3ReferenceDataSourceDescription;
                referenceSchema
              }
    let to_value x =
      structure_to_value
        [("ReferenceId", (Option.map x.referenceId ~f:Id.to_value));
        ("TableName", (Option.map x.tableName ~f:InAppTableName.to_value));
        ("S3ReferenceDataSourceDescription",
          (Option.map x.s3ReferenceDataSourceDescription
             ~f:S3ReferenceDataSourceDescription.to_value));
        ("ReferenceSchema",
          (Option.map x.referenceSchema ~f:SourceSchema.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceSchema =
        (Option.map ~f:SourceSchema.of_xml)
          (Xml.child xml_arg0 "ReferenceSchema") in
      let s3ReferenceDataSourceDescription =
        (Option.map ~f:S3ReferenceDataSourceDescription.of_xml)
          (Xml.child xml_arg0 "S3ReferenceDataSourceDescription") in
      let tableName =
        (Option.map ~f:InAppTableName.of_xml)
          (Xml.child xml_arg0 "TableName") in
      let referenceId =
        (Option.map ~f:Id.of_xml) (Xml.child xml_arg0 "ReferenceId") in
      make ?referenceSchema ?s3ReferenceDataSourceDescription ?tableName
        ?referenceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceSchema =
        field_map json__ "ReferenceSchema" SourceSchema.of_json in
      let s3ReferenceDataSourceDescription =
        field_map json__ "S3ReferenceDataSourceDescription"
          S3ReferenceDataSourceDescription.of_json in
      let tableName = field_map json__ "TableName" InAppTableName.of_json in
      let referenceId = field_map json__ "ReferenceId" Id.of_json in
      make ?referenceSchema ?s3ReferenceDataSourceDescription ?tableName
        ?referenceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the reference data source configured for an application."]
module InputProcessingConfiguration =
  struct
    type nonrec t =
      {
      inputLambdaProcessor: InputLambdaProcessor.t
        [@ocaml.doc
          "The InputLambdaProcessor that is used to preprocess the records in the stream before being processed by your application code."]}
    let context_ = "InputProcessingConfiguration"
    let make ~inputLambdaProcessor = fun () -> { inputLambdaProcessor }
    let to_value x =
      structure_to_value
        [("InputLambdaProcessor",
           (Some (InputLambdaProcessor.to_value x.inputLambdaProcessor)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputLambdaProcessor =
        InputLambdaProcessor.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputLambdaProcessor") in
      make ~inputLambdaProcessor ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputLambdaProcessor =
        field_map_exn json__ "InputLambdaProcessor"
          InputLambdaProcessor.of_json in
      make ~inputLambdaProcessor ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a description of a processor that is used to preprocess the records in the stream before being processed by your application code. Currently, the only input processor available is AWS Lambda."]
module KinesisFirehoseInput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc "ARN of the input delivery stream."];
      roleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to make sure that the role has the necessary permissions to access the stream."]}
    let context_ = "KinesisFirehoseInput"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies an Amazon Kinesis Firehose delivery stream as the streaming source. You provide the delivery stream's Amazon Resource Name (ARN) and an IAM role ARN that enables Amazon Kinesis Analytics to access the stream on your behalf."]
module KinesisStreamsInput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc "ARN of the input Amazon Kinesis stream to read."];
      roleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf. You need to grant the necessary permissions to this role."]}
    let context_ = "KinesisStreamsInput"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies an Amazon Kinesis stream as the streaming source. You provide the stream's Amazon Resource Name (ARN) and an IAM role ARN that enables Amazon Kinesis Analytics to access the stream on your behalf."]
module KinesisFirehoseOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "ARN of the destination Amazon Kinesis Firehose delivery stream to write to."];
      roleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to write to the destination stream on your behalf. You need to grant the necessary permissions to this role."]}
    let context_ = "KinesisFirehoseOutput"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When configuring application output, identifies an Amazon Kinesis Firehose delivery stream as the destination. You provide the stream Amazon Resource Name (ARN) and an IAM role that enables Amazon Kinesis Analytics to write to the stream on your behalf."]
module KinesisStreamsOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "ARN of the destination Amazon Kinesis stream to write to."];
      roleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to write to the destination stream on your behalf. You need to grant the necessary permissions to this role."]}
    let context_ = "KinesisStreamsOutput"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When configuring application output, identifies an Amazon Kinesis stream as the destination. You provide the stream Amazon Resource Name (ARN) and also an IAM role ARN that Amazon Kinesis Analytics can use to write to the stream on your behalf."]
module LambdaOutput =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t
        [@ocaml.doc
          "Amazon Resource Name (ARN) of the destination Lambda function to write to. To specify an earlier version of the Lambda function than the latest, include the Lambda function version in the Lambda function ARN. For more information about Lambda ARNs, see Example ARNs: AWS Lambda"];
      roleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to write to the destination function on your behalf. You need to grant the necessary permissions to this role."]}
    let context_ = "LambdaOutput"
    let make ~resourceARN =
      fun ~roleARN -> fun () -> { resourceARN; roleARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (ResourceARN.to_value x.resourceARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let resourceARN =
        ResourceARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ResourceARN") in
      make ~roleARN ~resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let resourceARN =
        field_map_exn json__ "ResourceARN" ResourceARN.of_json in
      make ~roleARN ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When configuring application output, identifies an AWS Lambda function as the destination. You provide the function Amazon Resource Name (ARN) and also an IAM role ARN that Amazon Kinesis Analytics can use to write to the function on your behalf."]
module ErrorMessage =
  struct
    type nonrec t = string
    let context_ = "ErrorMessage"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"ErrorMessage" j
    let to_json = simple_to_json to_value
  end
module ApplicationCode =
  struct
    type nonrec t = string
    let context_ = "ApplicationCode"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:102400) >>=
             (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:"ApplicationCode" j
    let to_json = simple_to_json to_value
  end
module CloudWatchLoggingOptionUpdates =
  struct
    type nonrec t = CloudWatchLoggingOptionUpdate.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:CloudWatchLoggingOptionUpdate.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:CloudWatchLoggingOptionUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"CloudWatchLoggingOptionUpdates"
        ~of_json:CloudWatchLoggingOptionUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module InputUpdates =
  struct
    type nonrec t = InputUpdate.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:InputUpdate.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:InputUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"InputUpdates" ~of_json:InputUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutputUpdates =
  struct
    type nonrec t = OutputUpdate.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:OutputUpdate.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:OutputUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"OutputUpdates" ~of_json:OutputUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReferenceDataSourceUpdates =
  struct
    type nonrec t = ReferenceDataSourceUpdate.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:ReferenceDataSourceUpdate.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:ReferenceDataSourceUpdate.of_xml)
    let of_json j =
      list_of_json ~kind:"ReferenceDataSourceUpdates"
        ~of_json:ReferenceDataSourceUpdate.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tag =
  struct
    type nonrec t =
      {
      key: TagKey.t [@ocaml.doc "The key of the key-value tag."];
      value: TagValue.t option
        [@ocaml.doc "The value of the key-value tag. The value is optional."]}
    let context_ = "Tag"
    let make ?value = fun ~key -> fun () -> { value; key }
    let to_value x =
      structure_to_value
        [("Key", (Some (TagKey.to_value x.key)));
        ("Value", (Option.map x.value ~f:TagValue.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let value =
        (Option.map ~f:TagValue.of_xml) (Xml.child xml_arg0 "Value") in
      let key =
        TagKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Key") in
      make ?value ~key ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let value = field_map json__ "Value" TagValue.of_json in
      let key = field_map_exn json__ "Key" TagKey.of_json in
      make ?value ~key ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "A key-value pair (the value is optional) that you can define and assign to AWS resources. If you specify a tag that already exists, the tag value is replaced with the value that you specify in the request. Note that the maximum number of application tags includes system tags. The maximum number of user-defined application tags is 50. For more information, see Using Tagging."]
module InputConfiguration =
  struct
    type nonrec t =
      {
      id: Id.t
        [@ocaml.doc
          "Input source ID. You can get this ID by calling the DescribeApplication operation."];
      inputStartingPositionConfiguration:
        InputStartingPositionConfiguration.t
        [@ocaml.doc
          "Point at which you want the application to start processing records from the streaming source."]}
    let context_ = "InputConfiguration"
    let make ~id =
      fun ~inputStartingPositionConfiguration ->
        fun () -> { id; inputStartingPositionConfiguration }
    let to_value x =
      structure_to_value
        [("Id", (Some (Id.to_value x.id)));
        ("InputStartingPositionConfiguration",
          (Some
             (InputStartingPositionConfiguration.to_value
                x.inputStartingPositionConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputStartingPositionConfiguration =
        InputStartingPositionConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InputStartingPositionConfiguration") in
      let id = Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Id") in
      make ~inputStartingPositionConfiguration ~id ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputStartingPositionConfiguration =
        field_map_exn json__ "InputStartingPositionConfiguration"
          InputStartingPositionConfiguration.of_json in
      let id = field_map_exn json__ "Id" Id.of_json in
      make ~inputStartingPositionConfiguration ~id ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When you start your application, you provide this configuration, which identifies the input source and the point in the input source at which you want the application to start processing records."]
module ApplicationSummary =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t option
        [@ocaml.doc "Name of the application."];
      applicationARN: ResourceARN.t option
        [@ocaml.doc "ARN of the application."];
      applicationStatus: ApplicationStatus.t option
        [@ocaml.doc "Status of the application."]}
    let make ?applicationName =
      fun ?applicationARN ->
        fun ?applicationStatus ->
          fun () -> { applicationName; applicationARN; applicationStatus }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Option.map x.applicationName ~f:ApplicationName.to_value));
        ("ApplicationARN",
          (Option.map x.applicationARN ~f:ResourceARN.to_value));
        ("ApplicationStatus",
          (Option.map x.applicationStatus ~f:ApplicationStatus.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationStatus =
        (Option.map ~f:ApplicationStatus.of_xml)
          (Xml.child xml_arg0 "ApplicationStatus") in
      let applicationARN =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ApplicationARN") in
      let applicationName =
        (Option.map ~f:ApplicationName.of_xml)
          (Xml.child xml_arg0 "ApplicationName") in
      make ?applicationStatus ?applicationARN ?applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationStatus =
        field_map json__ "ApplicationStatus" ApplicationStatus.of_json in
      let applicationARN =
        field_map json__ "ApplicationARN" ResourceARN.of_json in
      let applicationName =
        field_map json__ "ApplicationName" ApplicationName.of_json in
      make ?applicationStatus ?applicationARN ?applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Provides application summary information, including the application Amazon Resource Name (ARN), name, and status."]
module ParsedInputRecord =
  struct
    type nonrec t = ParsedInputRecordField.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:ParsedInputRecordField.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:ParsedInputRecordField.of_xml)
    let of_json j =
      list_of_json ~kind:"ParsedInputRecord"
        ~of_json:ParsedInputRecordField.of_json j
    let to_json v = composed_to_json to_value v
  end
module ProcessedInputRecords =
  struct
    type nonrec t = ProcessedInputRecord.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:ProcessedInputRecord.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:ProcessedInputRecord.of_xml)
    let of_json j =
      list_of_json ~kind:"ProcessedInputRecords"
        ~of_json:ProcessedInputRecord.of_json j
    let to_json v = composed_to_json to_value v
  end
module RawInputRecords =
  struct
    type nonrec t = RawInputRecord.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:RawInputRecord.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:RawInputRecord.of_xml)
    let of_json j =
      list_of_json ~kind:"RawInputRecords" ~of_json:RawInputRecord.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationDescription =
  struct
    type nonrec t = string
    let context_ = "ApplicationDescription"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:1024) >>=
             (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:"ApplicationDescription" j
    let to_json = simple_to_json to_value
  end
module ApplicationVersionId =
  struct
    type nonrec t = Int64.t
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int64_max i ~max:999999999L) >>=
             (fun () -> check_int64_min i ~min:1L));
        i
    let of_string = Int64.of_string
    let to_value x = `Long x
    let to_query v = to_query to_value v
    let to_header x = Int64.to_string x
    let of_xml xml_arg0 =
      Int64.of_string (string_of_xml ~kind:"a long" xml_arg0)
    let of_json j = Int64.of_float (float_of_json ~kind:"a long" j)
    let to_json = simple_to_json to_value
  end
module CloudWatchLoggingOptionDescriptions =
  struct
    type nonrec t = CloudWatchLoggingOptionDescription.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:CloudWatchLoggingOptionDescription.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:CloudWatchLoggingOptionDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"CloudWatchLoggingOptionDescriptions"
        ~of_json:CloudWatchLoggingOptionDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module InputDescriptions =
  struct
    type nonrec t = InputDescription.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:InputDescription.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:InputDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"InputDescriptions"
        ~of_json:InputDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module OutputDescriptions =
  struct
    type nonrec t = OutputDescription.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:OutputDescription.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:OutputDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"OutputDescriptions"
        ~of_json:OutputDescription.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReferenceDataSourceDescriptions =
  struct
    type nonrec t = ReferenceDataSourceDescription.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:ReferenceDataSourceDescription.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:ReferenceDataSourceDescription.of_xml)
    let of_json j =
      list_of_json ~kind:"ReferenceDataSourceDescriptions"
        ~of_json:ReferenceDataSourceDescription.of_json j
    let to_json v = composed_to_json to_value v
  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 CloudWatchLoggingOption =
  struct
    type nonrec t =
      {
      logStreamARN: LogStreamARN.t
        [@ocaml.doc
          "ARN of the CloudWatch log to receive application messages."];
      roleARN: RoleARN.t
        [@ocaml.doc
          "IAM ARN of the role to use to send application messages. Note: To write application messages to CloudWatch, the IAM role that is used must have the PutLogEvents policy action enabled."]}
    let context_ = "CloudWatchLoggingOption"
    let make ~logStreamARN =
      fun ~roleARN -> fun () -> { logStreamARN; roleARN }
    let to_value x =
      structure_to_value
        [("LogStreamARN", (Some (LogStreamARN.to_value x.logStreamARN)));
        ("RoleARN", (Some (RoleARN.to_value x.roleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      let logStreamARN =
        LogStreamARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "LogStreamARN") in
      make ~roleARN ~logStreamARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      let logStreamARN =
        field_map_exn json__ "LogStreamARN" LogStreamARN.of_json in
      make ~roleARN ~logStreamARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a description of CloudWatch logging options, including the log stream Amazon Resource Name (ARN) and the role ARN."]
module Input =
  struct
    type nonrec t =
      {
      namePrefix: InAppStreamName.t
        [@ocaml.doc
          "Name prefix to use when creating an in-application stream. Suppose that you specify a prefix \"MyInApplicationStream.\" Amazon Kinesis Analytics then creates one or more (as per the InputParallelism count you specified) in-application streams with names \"MyInApplicationStream_001,\" \"MyInApplicationStream_002,\" and so on."];
      inputProcessingConfiguration: InputProcessingConfiguration.t option
        [@ocaml.doc
          "The InputProcessingConfiguration for the input. An input processor transforms records as they are received from the stream, before the application's SQL code executes. Currently, the only input processing configuration available is InputLambdaProcessor."];
      kinesisStreamsInput: KinesisStreamsInput.t option
        [@ocaml.doc
          "If the streaming source is an Amazon Kinesis stream, identifies the stream's Amazon Resource Name (ARN) and an IAM role that enables Amazon Kinesis Analytics to access the stream on your behalf. Note: Either KinesisStreamsInput or KinesisFirehoseInput is required."];
      kinesisFirehoseInput: KinesisFirehoseInput.t option
        [@ocaml.doc
          "If the streaming source is an Amazon Kinesis Firehose delivery stream, identifies the delivery stream's ARN and an IAM role that enables Amazon Kinesis Analytics to access the stream on your behalf. Note: Either KinesisStreamsInput or KinesisFirehoseInput is required."];
      inputParallelism: InputParallelism.t option
        [@ocaml.doc
          "Describes the number of in-application streams to create. Data from your source is routed to these in-application input streams. (see Configuring Application Input."];
      inputSchema: SourceSchema.t
        [@ocaml.doc
          "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns in the in-application stream that is being created. Also used to describe the format of the reference data source."]}
    let context_ = "Input"
    let make ?inputProcessingConfiguration =
      fun ?kinesisStreamsInput ->
        fun ?kinesisFirehoseInput ->
          fun ?inputParallelism ->
            fun ~namePrefix ->
              fun ~inputSchema ->
                fun () ->
                  {
                    inputProcessingConfiguration;
                    kinesisStreamsInput;
                    kinesisFirehoseInput;
                    inputParallelism;
                    namePrefix;
                    inputSchema
                  }
    let to_value x =
      structure_to_value
        [("NamePrefix", (Some (InAppStreamName.to_value x.namePrefix)));
        ("InputProcessingConfiguration",
          (Option.map x.inputProcessingConfiguration
             ~f:InputProcessingConfiguration.to_value));
        ("KinesisStreamsInput",
          (Option.map x.kinesisStreamsInput ~f:KinesisStreamsInput.to_value));
        ("KinesisFirehoseInput",
          (Option.map x.kinesisFirehoseInput ~f:KinesisFirehoseInput.to_value));
        ("InputParallelism",
          (Option.map x.inputParallelism ~f:InputParallelism.to_value));
        ("InputSchema", (Some (SourceSchema.to_value x.inputSchema)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputSchema =
        SourceSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputSchema") in
      let inputParallelism =
        (Option.map ~f:InputParallelism.of_xml)
          (Xml.child xml_arg0 "InputParallelism") in
      let kinesisFirehoseInput =
        (Option.map ~f:KinesisFirehoseInput.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseInput") in
      let kinesisStreamsInput =
        (Option.map ~f:KinesisStreamsInput.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsInput") in
      let inputProcessingConfiguration =
        (Option.map ~f:InputProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "InputProcessingConfiguration") in
      let namePrefix =
        InAppStreamName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "NamePrefix") in
      make ~inputSchema ?inputParallelism ?kinesisFirehoseInput
        ?kinesisStreamsInput ?inputProcessingConfiguration ~namePrefix ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputSchema =
        field_map_exn json__ "InputSchema" SourceSchema.of_json in
      let inputParallelism =
        field_map json__ "InputParallelism" InputParallelism.of_json in
      let kinesisFirehoseInput =
        field_map json__ "KinesisFirehoseInput" KinesisFirehoseInput.of_json in
      let kinesisStreamsInput =
        field_map json__ "KinesisStreamsInput" KinesisStreamsInput.of_json in
      let inputProcessingConfiguration =
        field_map json__ "InputProcessingConfiguration"
          InputProcessingConfiguration.of_json in
      let namePrefix =
        field_map_exn json__ "NamePrefix" InAppStreamName.of_json in
      make ~inputSchema ?inputParallelism ?kinesisFirehoseInput
        ?kinesisStreamsInput ?inputProcessingConfiguration ~namePrefix ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "When you configure the application input, you specify the streaming source, the in-application stream name that is created, and the mapping between the two. For more information, see Configuring Application Input."]
module Output =
  struct
    type nonrec t =
      {
      name: InAppStreamName.t
        [@ocaml.doc "Name of the in-application stream."];
      kinesisStreamsOutput: KinesisStreamsOutput.t option
        [@ocaml.doc
          "Identifies an Amazon Kinesis stream as the destination."];
      kinesisFirehoseOutput: KinesisFirehoseOutput.t option
        [@ocaml.doc
          "Identifies an Amazon Kinesis Firehose delivery stream as the destination."];
      lambdaOutput: LambdaOutput.t option
        [@ocaml.doc "Identifies an AWS Lambda function as the destination."];
      destinationSchema: DestinationSchema.t
        [@ocaml.doc
          "Describes the data format when records are written to the destination. For more information, see Configuring Application Output."]}
    let context_ = "Output"
    let make ?kinesisStreamsOutput =
      fun ?kinesisFirehoseOutput ->
        fun ?lambdaOutput ->
          fun ~name ->
            fun ~destinationSchema ->
              fun () ->
                {
                  kinesisStreamsOutput;
                  kinesisFirehoseOutput;
                  lambdaOutput;
                  name;
                  destinationSchema
                }
    let to_value x =
      structure_to_value
        [("Name", (Some (InAppStreamName.to_value x.name)));
        ("KinesisStreamsOutput",
          (Option.map x.kinesisStreamsOutput ~f:KinesisStreamsOutput.to_value));
        ("KinesisFirehoseOutput",
          (Option.map x.kinesisFirehoseOutput
             ~f:KinesisFirehoseOutput.to_value));
        ("LambdaOutput",
          (Option.map x.lambdaOutput ~f:LambdaOutput.to_value));
        ("DestinationSchema",
          (Some (DestinationSchema.to_value x.destinationSchema)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let destinationSchema =
        DestinationSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "DestinationSchema") in
      let lambdaOutput =
        (Option.map ~f:LambdaOutput.of_xml)
          (Xml.child xml_arg0 "LambdaOutput") in
      let kinesisFirehoseOutput =
        (Option.map ~f:KinesisFirehoseOutput.of_xml)
          (Xml.child xml_arg0 "KinesisFirehoseOutput") in
      let kinesisStreamsOutput =
        (Option.map ~f:KinesisStreamsOutput.of_xml)
          (Xml.child xml_arg0 "KinesisStreamsOutput") in
      let name =
        InAppStreamName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "Name") in
      make ~destinationSchema ?lambdaOutput ?kinesisFirehoseOutput
        ?kinesisStreamsOutput ~name ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let destinationSchema =
        field_map_exn json__ "DestinationSchema" DestinationSchema.of_json in
      let lambdaOutput = field_map json__ "LambdaOutput" LambdaOutput.of_json in
      let kinesisFirehoseOutput =
        field_map json__ "KinesisFirehoseOutput"
          KinesisFirehoseOutput.of_json in
      let kinesisStreamsOutput =
        field_map json__ "KinesisStreamsOutput" KinesisStreamsOutput.of_json in
      let name = field_map_exn json__ "Name" InAppStreamName.of_json in
      make ~destinationSchema ?lambdaOutput ?kinesisFirehoseOutput
        ?kinesisStreamsOutput ~name ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes application output configuration in which you identify an in-application stream and a destination where you want the in-application stream data to be written. The destination can be an Amazon Kinesis stream or an Amazon Kinesis Firehose delivery stream. For limits on how many destinations an application can write and other limitations, see Limits."]
module S3ReferenceDataSource =
  struct
    type nonrec t =
      {
      bucketARN: BucketARN.t
        [@ocaml.doc "Amazon Resource Name (ARN) of the S3 bucket."];
      fileKey: FileKey.t
        [@ocaml.doc "Object key name containing reference data."];
      referenceRoleARN: RoleARN.t
        [@ocaml.doc
          "ARN of the IAM role that the service can assume to read data on your behalf. This role must have permission for the s3:GetObject action on the object and trust policy that allows Amazon Kinesis Analytics service principal to assume this role."]}
    let context_ = "S3ReferenceDataSource"
    let make ~bucketARN =
      fun ~fileKey ->
        fun ~referenceRoleARN ->
          fun () -> { bucketARN; fileKey; referenceRoleARN }
    let to_value x =
      structure_to_value
        [("BucketARN", (Some (BucketARN.to_value x.bucketARN)));
        ("FileKey", (Some (FileKey.to_value x.fileKey)));
        ("ReferenceRoleARN", (Some (RoleARN.to_value x.referenceRoleARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceRoleARN =
        RoleARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReferenceRoleARN") in
      let fileKey =
        FileKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "FileKey") in
      let bucketARN =
        BucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketARN") in
      make ~referenceRoleARN ~fileKey ~bucketARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceRoleARN =
        field_map_exn json__ "ReferenceRoleARN" RoleARN.of_json in
      let fileKey = field_map_exn json__ "FileKey" FileKey.of_json in
      let bucketARN = field_map_exn json__ "BucketARN" BucketARN.of_json in
      make ~referenceRoleARN ~fileKey ~bucketARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Identifies the S3 bucket and object that contains the reference data. Also identifies the IAM role Amazon Kinesis Analytics can assume to read this object on your behalf. An Amazon Kinesis Analytics application loads reference data only once. If the data changes, you call the UpdateApplication operation to trigger reloading of data into your application."]
module CodeValidationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option [@ocaml.doc "Test"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "User-provided application code (query) is invalid. This can be a simple syntax error."]
module ConcurrentModificationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Exception thrown as a result of concurrent modification to an application. For example, two individuals attempting to edit the same application at the same time."]
module InvalidArgumentException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specified input parameter value is invalid."]
module ResourceInUseException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Application is not available for this operation."]
module ResourceNotFoundException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Specified application can't be found."]
module UnsupportedOperationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The request was rejected because a specified parameter is not supported or a specified resource is not valid for this operation."]
module ApplicationUpdate =
  struct
    type nonrec t =
      {
      inputUpdates: InputUpdates.t option
        [@ocaml.doc "Describes application input configuration updates."];
      applicationCodeUpdate: ApplicationCode.t option
        [@ocaml.doc "Describes application code updates."];
      outputUpdates: OutputUpdates.t option
        [@ocaml.doc "Describes application output configuration updates."];
      referenceDataSourceUpdates: ReferenceDataSourceUpdates.t option
        [@ocaml.doc "Describes application reference data source updates."];
      cloudWatchLoggingOptionUpdates: CloudWatchLoggingOptionUpdates.t option
        [@ocaml.doc
          "Describes application CloudWatch logging option updates."]}
    let make ?inputUpdates =
      fun ?applicationCodeUpdate ->
        fun ?outputUpdates ->
          fun ?referenceDataSourceUpdates ->
            fun ?cloudWatchLoggingOptionUpdates ->
              fun () ->
                {
                  inputUpdates;
                  applicationCodeUpdate;
                  outputUpdates;
                  referenceDataSourceUpdates;
                  cloudWatchLoggingOptionUpdates
                }
    let to_value x =
      structure_to_value
        [("InputUpdates",
           (Option.map x.inputUpdates ~f:InputUpdates.to_value));
        ("ApplicationCodeUpdate",
          (Option.map x.applicationCodeUpdate ~f:ApplicationCode.to_value));
        ("OutputUpdates",
          (Option.map x.outputUpdates ~f:OutputUpdates.to_value));
        ("ReferenceDataSourceUpdates",
          (Option.map x.referenceDataSourceUpdates
             ~f:ReferenceDataSourceUpdates.to_value));
        ("CloudWatchLoggingOptionUpdates",
          (Option.map x.cloudWatchLoggingOptionUpdates
             ~f:CloudWatchLoggingOptionUpdates.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cloudWatchLoggingOptionUpdates =
        (Option.map ~f:CloudWatchLoggingOptionUpdates.of_xml)
          (Xml.child xml_arg0 "CloudWatchLoggingOptionUpdates") in
      let referenceDataSourceUpdates =
        (Option.map ~f:ReferenceDataSourceUpdates.of_xml)
          (Xml.child xml_arg0 "ReferenceDataSourceUpdates") in
      let outputUpdates =
        (Option.map ~f:OutputUpdates.of_xml)
          (Xml.child xml_arg0 "OutputUpdates") in
      let applicationCodeUpdate =
        (Option.map ~f:ApplicationCode.of_xml)
          (Xml.child xml_arg0 "ApplicationCodeUpdate") in
      let inputUpdates =
        (Option.map ~f:InputUpdates.of_xml)
          (Xml.child xml_arg0 "InputUpdates") in
      make ?cloudWatchLoggingOptionUpdates ?referenceDataSourceUpdates
        ?outputUpdates ?applicationCodeUpdate ?inputUpdates ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cloudWatchLoggingOptionUpdates =
        field_map json__ "CloudWatchLoggingOptionUpdates"
          CloudWatchLoggingOptionUpdates.of_json in
      let referenceDataSourceUpdates =
        field_map json__ "ReferenceDataSourceUpdates"
          ReferenceDataSourceUpdates.of_json in
      let outputUpdates =
        field_map json__ "OutputUpdates" OutputUpdates.of_json in
      let applicationCodeUpdate =
        field_map json__ "ApplicationCodeUpdate" ApplicationCode.of_json in
      let inputUpdates = field_map json__ "InputUpdates" InputUpdates.of_json in
      make ?cloudWatchLoggingOptionUpdates ?referenceDataSourceUpdates
        ?outputUpdates ?applicationCodeUpdate ?inputUpdates ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes updates to apply to an existing Amazon Kinesis Analytics application."]
module TooManyTagsException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Application created with too many tags, or too many tags added to an application. Note that the maximum number of application tags includes system tags. The maximum number of user-defined application tags is 50."]
module KinesisAnalyticsARN =
  struct
    type nonrec t = string
    let context_ = "KinesisAnalyticsARN"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:2048) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"arn:aws:kinesisanalytics:[a-z]{2}-[a-z]+-\\d{1}+:\\d{12}+:application/[a-zA-Z0-9_.-]{1,128}")));
        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:"KinesisAnalyticsARN" j
    let to_json = simple_to_json to_value
  end
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:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:TagKey.to_value)) |> (fun x -> `List x)
    let to_query v = to_query to_value v
    let to_header _ =
      failwithf "to_header is not implemented for List_shape objects" ()
    let of_xml x =
      make
        (List.map
           ((Xml.all_children x) |>
              (List.filter
                 ~f:(function
                     | `Data s ->
                         (match Stdlib.String.trim s with
                          | "" -> false
                          | _ -> true)
                     | _ -> true))) ~f:TagKey.of_xml)
    let of_json j = list_of_json ~kind:"TagKeys" ~of_json:TagKey.of_json j
    let to_json v = composed_to_json to_value v
  end
module Tags =
  struct
    type nonrec t = Tag.t list
    let make i =
      let open Result in
        ok_or_failwith
          ((check_list_max i ~max:200) >>=
             (fun () -> check_list_min i ~min:1));
        i
    let of_string _ =
      failwithf "of_string is not implemented for List_shape objects" ()
      [@@warning "-32"]
    let to_value xs =
      (xs |> (List.map ~f:Tag.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:Tag.of_xml)
    let of_json j = list_of_json ~kind:"Tags" ~of_json:Tag.of_json j
    let to_json v = composed_to_json to_value v
  end
module InvalidApplicationConfigurationException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option [@ocaml.doc "test"]}
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "User-provided application configuration is not valid."]
module InputConfigurations =
  struct
    type nonrec t = InputConfiguration.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:InputConfiguration.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:InputConfiguration.of_xml)
    let of_json j =
      list_of_json ~kind:"InputConfigurations"
        ~of_json:InputConfiguration.of_json j
    let to_json v = composed_to_json to_value v
  end
module ApplicationSummaries =
  struct
    type nonrec t = ApplicationSummary.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:ApplicationSummary.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:ApplicationSummary.of_xml)
    let of_json j =
      list_of_json ~kind:"ApplicationSummaries"
        ~of_json:ApplicationSummary.of_json j
    let to_json v = composed_to_json to_value v
  end
module BooleanObject =
  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 ListApplicationsInputLimit =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:50) >>= (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 ListApplicationsInputLimit"
           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 ParsedInputRecords =
  struct
    type nonrec t = ParsedInputRecord.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:ParsedInputRecord.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:ParsedInputRecord.of_xml)
    let of_json j =
      list_of_json ~kind:"ParsedInputRecords"
        ~of_json:ParsedInputRecord.of_json j
    let to_json v = composed_to_json to_value v
  end
module ResourceProvisionedThroughputExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Discovery failed to get a record from the streaming source because of the Amazon Kinesis Streams ProvisionedThroughputExceededException. For more information, see GetRecords in the Amazon Kinesis Streams API Reference."]
module ServiceUnavailableException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service is unavailable. Back off and retry the operation."]
module UnableToDetectSchemaException =
  struct
    type nonrec t =
      {
      message: ErrorMessage.t option ;
      rawInputRecords: RawInputRecords.t option ;
      processedInputRecords: ProcessedInputRecords.t option }
    let make ?message =
      fun ?rawInputRecords ->
        fun ?processedInputRecords ->
          fun () -> { message; rawInputRecords; processedInputRecords }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value));
        ("RawInputRecords",
          (Option.map x.rawInputRecords ~f:RawInputRecords.to_value));
        ("ProcessedInputRecords",
          (Option.map x.processedInputRecords
             ~f:ProcessedInputRecords.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let processedInputRecords =
        (Option.map ~f:ProcessedInputRecords.of_xml)
          (Xml.child xml_arg0 "ProcessedInputRecords") in
      let rawInputRecords =
        (Option.map ~f:RawInputRecords.of_xml)
          (Xml.child xml_arg0 "RawInputRecords") in
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?processedInputRecords ?rawInputRecords ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let processedInputRecords =
        field_map json__ "ProcessedInputRecords"
          ProcessedInputRecords.of_json in
      let rawInputRecords =
        field_map json__ "RawInputRecords" RawInputRecords.of_json in
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?processedInputRecords ?rawInputRecords ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Data format is not valid. Amazon Kinesis Analytics is not able to detect schema for the given streaming source."]
module S3Configuration =
  struct
    type nonrec t =
      {
      roleARN: RoleARN.t
        [@ocaml.doc "IAM ARN of the role used to access the data."];
      bucketARN: BucketARN.t
        [@ocaml.doc "ARN of the S3 bucket that contains the data."];
      fileKey: FileKey.t
        [@ocaml.doc "The name of the object that contains the data."]}
    let context_ = "S3Configuration"
    let make ~roleARN =
      fun ~bucketARN ->
        fun ~fileKey -> fun () -> { roleARN; bucketARN; fileKey }
    let to_value x =
      structure_to_value
        [("RoleARN", (Some (RoleARN.to_value x.roleARN)));
        ("BucketARN", (Some (BucketARN.to_value x.bucketARN)));
        ("FileKey", (Some (FileKey.to_value x.fileKey)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let fileKey =
        FileKey.of_xml (Xml.child_exn ~context:context_ xml_arg0 "FileKey") in
      let bucketARN =
        BucketARN.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "BucketARN") in
      let roleARN =
        RoleARN.of_xml (Xml.child_exn ~context:context_ xml_arg0 "RoleARN") in
      make ~fileKey ~bucketARN ~roleARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let fileKey = field_map_exn json__ "FileKey" FileKey.of_json in
      let bucketARN = field_map_exn json__ "BucketARN" BucketARN.of_json in
      let roleARN = field_map_exn json__ "RoleARN" RoleARN.of_json in
      make ~fileKey ~bucketARN ~roleARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Provides a description of an Amazon S3 data source, including the Amazon Resource Name (ARN) of the S3 bucket, the ARN of the IAM role that is used to access the bucket, and the name of the Amazon S3 object that contains the data."]
module ApplicationDetail =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t option
        [@ocaml.doc "Name of the application."];
      applicationDescription: ApplicationDescription.t option
        [@ocaml.doc "Description of the application."];
      applicationARN: ResourceARN.t option
        [@ocaml.doc "ARN of the application."];
      applicationStatus: ApplicationStatus.t option
        [@ocaml.doc "Status of the application."];
      createTimestamp: Timestamp.t option
        [@ocaml.doc "Time stamp when the application version was created."];
      lastUpdateTimestamp: Timestamp.t option
        [@ocaml.doc "Time stamp when the application was last updated."];
      inputDescriptions: InputDescriptions.t option
        [@ocaml.doc
          "Describes the application input configuration. For more information, see Configuring Application Input."];
      outputDescriptions: OutputDescriptions.t option
        [@ocaml.doc
          "Describes the application output configuration. For more information, see Configuring Application Output."];
      referenceDataSourceDescriptions:
        ReferenceDataSourceDescriptions.t option
        [@ocaml.doc
          "Describes reference data sources configured for the application. For more information, see Configuring Application Input."];
      cloudWatchLoggingOptionDescriptions:
        CloudWatchLoggingOptionDescriptions.t option
        [@ocaml.doc
          "Describes the CloudWatch log streams that are configured to receive application messages. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see Working with Amazon CloudWatch Logs."];
      applicationCode: ApplicationCode.t option
        [@ocaml.doc
          "Returns the application code that you provided to perform data analysis on any of the in-application streams in your application."];
      applicationVersionId: ApplicationVersionId.t option
        [@ocaml.doc "Provides the current application version."]}
    let make ?applicationName =
      fun ?applicationDescription ->
        fun ?applicationARN ->
          fun ?applicationStatus ->
            fun ?createTimestamp ->
              fun ?lastUpdateTimestamp ->
                fun ?inputDescriptions ->
                  fun ?outputDescriptions ->
                    fun ?referenceDataSourceDescriptions ->
                      fun ?cloudWatchLoggingOptionDescriptions ->
                        fun ?applicationCode ->
                          fun ?applicationVersionId ->
                            fun () ->
                              {
                                applicationName;
                                applicationDescription;
                                applicationARN;
                                applicationStatus;
                                createTimestamp;
                                lastUpdateTimestamp;
                                inputDescriptions;
                                outputDescriptions;
                                referenceDataSourceDescriptions;
                                cloudWatchLoggingOptionDescriptions;
                                applicationCode;
                                applicationVersionId
                              }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Option.map x.applicationName ~f:ApplicationName.to_value));
        ("ApplicationDescription",
          (Option.map x.applicationDescription
             ~f:ApplicationDescription.to_value));
        ("ApplicationARN",
          (Option.map x.applicationARN ~f:ResourceARN.to_value));
        ("ApplicationStatus",
          (Option.map x.applicationStatus ~f:ApplicationStatus.to_value));
        ("CreateTimestamp",
          (Option.map x.createTimestamp ~f:Timestamp.to_value));
        ("LastUpdateTimestamp",
          (Option.map x.lastUpdateTimestamp ~f:Timestamp.to_value));
        ("InputDescriptions",
          (Option.map x.inputDescriptions ~f:InputDescriptions.to_value));
        ("OutputDescriptions",
          (Option.map x.outputDescriptions ~f:OutputDescriptions.to_value));
        ("ReferenceDataSourceDescriptions",
          (Option.map x.referenceDataSourceDescriptions
             ~f:ReferenceDataSourceDescriptions.to_value));
        ("CloudWatchLoggingOptionDescriptions",
          (Option.map x.cloudWatchLoggingOptionDescriptions
             ~f:CloudWatchLoggingOptionDescriptions.to_value));
        ("ApplicationCode",
          (Option.map x.applicationCode ~f:ApplicationCode.to_value));
        ("ApplicationVersionId",
          (Option.map x.applicationVersionId ~f:ApplicationVersionId.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationVersionId =
        (Option.map ~f:ApplicationVersionId.of_xml)
          (Xml.child xml_arg0 "ApplicationVersionId") in
      let applicationCode =
        (Option.map ~f:ApplicationCode.of_xml)
          (Xml.child xml_arg0 "ApplicationCode") in
      let cloudWatchLoggingOptionDescriptions =
        (Option.map ~f:CloudWatchLoggingOptionDescriptions.of_xml)
          (Xml.child xml_arg0 "CloudWatchLoggingOptionDescriptions") in
      let referenceDataSourceDescriptions =
        (Option.map ~f:ReferenceDataSourceDescriptions.of_xml)
          (Xml.child xml_arg0 "ReferenceDataSourceDescriptions") in
      let outputDescriptions =
        (Option.map ~f:OutputDescriptions.of_xml)
          (Xml.child xml_arg0 "OutputDescriptions") in
      let inputDescriptions =
        (Option.map ~f:InputDescriptions.of_xml)
          (Xml.child xml_arg0 "InputDescriptions") in
      let lastUpdateTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "LastUpdateTimestamp") in
      let createTimestamp =
        (Option.map ~f:Timestamp.of_xml)
          (Xml.child xml_arg0 "CreateTimestamp") in
      let applicationStatus =
        (Option.map ~f:ApplicationStatus.of_xml)
          (Xml.child xml_arg0 "ApplicationStatus") in
      let applicationARN =
        (Option.map ~f:ResourceARN.of_xml)
          (Xml.child xml_arg0 "ApplicationARN") in
      let applicationDescription =
        (Option.map ~f:ApplicationDescription.of_xml)
          (Xml.child xml_arg0 "ApplicationDescription") in
      let applicationName =
        (Option.map ~f:ApplicationName.of_xml)
          (Xml.child xml_arg0 "ApplicationName") in
      make ?applicationVersionId ?applicationCode
        ?cloudWatchLoggingOptionDescriptions ?referenceDataSourceDescriptions
        ?outputDescriptions ?inputDescriptions ?lastUpdateTimestamp
        ?createTimestamp ?applicationStatus ?applicationARN
        ?applicationDescription ?applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationVersionId =
        field_map json__ "ApplicationVersionId" ApplicationVersionId.of_json in
      let applicationCode =
        field_map json__ "ApplicationCode" ApplicationCode.of_json in
      let cloudWatchLoggingOptionDescriptions =
        field_map json__ "CloudWatchLoggingOptionDescriptions"
          CloudWatchLoggingOptionDescriptions.of_json in
      let referenceDataSourceDescriptions =
        field_map json__ "ReferenceDataSourceDescriptions"
          ReferenceDataSourceDescriptions.of_json in
      let outputDescriptions =
        field_map json__ "OutputDescriptions" OutputDescriptions.of_json in
      let inputDescriptions =
        field_map json__ "InputDescriptions" InputDescriptions.of_json in
      let lastUpdateTimestamp =
        field_map json__ "LastUpdateTimestamp" Timestamp.of_json in
      let createTimestamp =
        field_map json__ "CreateTimestamp" Timestamp.of_json in
      let applicationStatus =
        field_map json__ "ApplicationStatus" ApplicationStatus.of_json in
      let applicationARN =
        field_map json__ "ApplicationARN" ResourceARN.of_json in
      let applicationDescription =
        field_map json__ "ApplicationDescription"
          ApplicationDescription.of_json in
      let applicationName =
        field_map json__ "ApplicationName" ApplicationName.of_json in
      make ?applicationVersionId ?applicationCode
        ?cloudWatchLoggingOptionDescriptions ?referenceDataSourceDescriptions
        ?outputDescriptions ?inputDescriptions ?lastUpdateTimestamp
        ?createTimestamp ?applicationStatus ?applicationARN
        ?applicationDescription ?applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Provides a description of the application, including the application Amazon Resource Name (ARN), status, latest version, and input and output configuration."]
module LimitExceededException =
  struct
    type nonrec t = {
      message: ErrorMessage.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("message", (Option.map x.message ~f:ErrorMessage.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:ErrorMessage.of_xml) (Xml.child xml_arg0 "message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "message" ErrorMessage.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "Exceeded the number of applications allowed."]
module CloudWatchLoggingOptions =
  struct
    type nonrec t = CloudWatchLoggingOption.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:CloudWatchLoggingOption.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:CloudWatchLoggingOption.of_xml)
    let of_json j =
      list_of_json ~kind:"CloudWatchLoggingOptions"
        ~of_json:CloudWatchLoggingOption.of_json j
    let to_json v = composed_to_json to_value v
  end
module Inputs =
  struct
    type nonrec t = Input.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:Input.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:Input.of_xml)
    let of_json j = list_of_json ~kind:"Inputs" ~of_json:Input.of_json j
    let to_json v = composed_to_json to_value v
  end
module Outputs =
  struct
    type nonrec t = Output.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:Output.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:Output.of_xml)
    let of_json j = list_of_json ~kind:"Outputs" ~of_json:Output.of_json j
    let to_json v = composed_to_json to_value v
  end
module ReferenceDataSource =
  struct
    type nonrec t =
      {
      tableName: InAppTableName.t
        [@ocaml.doc "Name of the in-application table to create."];
      s3ReferenceDataSource: S3ReferenceDataSource.t option
        [@ocaml.doc
          "Identifies the S3 bucket and object that contains the reference data. Also identifies the IAM role Amazon Kinesis Analytics can assume to read this object on your behalf. An Amazon Kinesis Analytics application loads reference data only once. If the data changes, you call the UpdateApplication operation to trigger reloading of data into your application."];
      referenceSchema: SourceSchema.t
        [@ocaml.doc
          "Describes the format of the data in the streaming source, and how each data element maps to corresponding columns created in the in-application stream."]}
    let context_ = "ReferenceDataSource"
    let make ?s3ReferenceDataSource =
      fun ~tableName ->
        fun ~referenceSchema ->
          fun () -> { s3ReferenceDataSource; tableName; referenceSchema }
    let to_value x =
      structure_to_value
        [("TableName", (Some (InAppTableName.to_value x.tableName)));
        ("S3ReferenceDataSource",
          (Option.map x.s3ReferenceDataSource
             ~f:S3ReferenceDataSource.to_value));
        ("ReferenceSchema", (Some (SourceSchema.to_value x.referenceSchema)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceSchema =
        SourceSchema.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReferenceSchema") in
      let s3ReferenceDataSource =
        (Option.map ~f:S3ReferenceDataSource.of_xml)
          (Xml.child xml_arg0 "S3ReferenceDataSource") in
      let tableName =
        InAppTableName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "TableName") in
      make ~referenceSchema ?s3ReferenceDataSource ~tableName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceSchema =
        field_map_exn json__ "ReferenceSchema" SourceSchema.of_json in
      let s3ReferenceDataSource =
        field_map json__ "S3ReferenceDataSource"
          S3ReferenceDataSource.of_json in
      let tableName = field_map_exn json__ "TableName" InAppTableName.of_json in
      make ~referenceSchema ?s3ReferenceDataSource ~tableName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Describes the reference data source by providing the source information (S3 bucket name and object key name), the resulting in-application table name that is created, and the necessary schema to map the data elements in the Amazon S3 object to the in-application table."]
module UpdateApplicationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `CodeValidationException of CodeValidationException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_xml xml)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CodeValidationException e ->
          `Assoc
            [("error", (`String "CodeValidationException"));
            ("details", (CodeValidationException.to_json e))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Updates an existing Amazon Kinesis Analytics application. Using this API, you can update application code, input configuration, and output configuration. Note that Amazon Kinesis Analytics updates the CurrentApplicationVersionId each time you update your application. This operation requires permission for the kinesisanalytics:UpdateApplication action."]
module UpdateApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of the Amazon Kinesis Analytics application to update."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "The current application version ID. You can use the DescribeApplication operation to get this value."];
      applicationUpdate: ApplicationUpdate.t
        [@ocaml.doc "Describes application updates."]}
    let context_ = "UpdateApplicationRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~applicationUpdate ->
          fun () ->
            { applicationName; currentApplicationVersionId; applicationUpdate
            }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("ApplicationUpdate",
          (Some (ApplicationUpdate.to_value x.applicationUpdate)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationUpdate =
        ApplicationUpdate.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationUpdate") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~applicationUpdate ~currentApplicationVersionId ~applicationName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationUpdate =
        field_map_exn json__ "ApplicationUpdate" ApplicationUpdate.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~applicationUpdate ~currentApplicationVersionId ~applicationName
        ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Updates an existing Amazon Kinesis Analytics application. Using this API, you can update application code, input configuration, and output configuration. Note that Amazon Kinesis Analytics updates the CurrentApplicationVersionId each time you update your application. This operation requires permission for the kinesisanalytics:UpdateApplication action."]
module UntagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a Kinesis Analytics application. For more information, see Using Tagging."]
module UntagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: KinesisAnalyticsARN.t
        [@ocaml.doc
          "The ARN of the Kinesis Analytics application from which to remove the tags."];
      tagKeys: TagKeys.t
        [@ocaml.doc
          "A list of keys of tags to remove from the specified application."]}
    let context_ = "UntagResourceRequest"
    let make ~resourceARN =
      fun ~tagKeys -> fun () -> { resourceARN; tagKeys }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (KinesisAnalyticsARN.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 =
        KinesisAnalyticsARN.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" KinesisAnalyticsARN.of_json in
      make ~tagKeys ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Removes one or more tags from a Kinesis Analytics application. For more information, see Using Tagging."]
module TagResourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let of_header_and_body = ((fun (xs, pipe) -> make ())[@warning "-27"])
    let to_value _ = `Structure []
    let to_query v = to_query to_value v
    let of_xml _ = make ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json _ = make ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more key-value tags to a Kinesis Analytics application. Note that the maximum number of application tags includes system tags. The maximum number of user-defined application tags is 50. For more information, see Using Tagging."]
module TagResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: KinesisAnalyticsARN.t
        [@ocaml.doc "The ARN of the application to assign the tags."];
      tags: Tags.t
        [@ocaml.doc "The key-value tags to assign to the application."]}
    let context_ = "TagResourceRequest"
    let make ~resourceARN = fun ~tags -> fun () -> { resourceARN; tags }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (KinesisAnalyticsARN.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 =
        KinesisAnalyticsARN.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" KinesisAnalyticsARN.of_json in
      make ~tags ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Adds one or more key-value tags to a Kinesis Analytics application. Note that the maximum number of application tags includes system tags. The maximum number of user-defined application tags is 50. For more information, see Using Tagging."]
module StopApplicationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module StopApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Name of the running application to stop."]}
    let context_ = "StopApplicationRequest"
    let make ~applicationName = fun () -> { applicationName }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module StartApplicationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `InvalidApplicationConfigurationException of
          InvalidApplicationConfigurationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "InvalidApplicationConfigurationException" ->
          `InvalidApplicationConfigurationException
            (InvalidApplicationConfigurationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidApplicationConfigurationException" ->
          `InvalidApplicationConfigurationException
            (InvalidApplicationConfigurationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidApplicationConfigurationException e ->
          `Assoc
            [("error", (`String "InvalidApplicationConfigurationException"));
            ("details", (InvalidApplicationConfigurationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module StartApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Name of the application."];
      inputConfigurations: InputConfigurations.t
        [@ocaml.doc
          "Identifies the specific input, by ID, that the application starts consuming. Amazon Kinesis Analytics starts reading the streaming source associated with the input. You can also specify where in the streaming source you want Amazon Kinesis Analytics to start reading."]}
    let context_ = "StartApplicationRequest"
    let make ~applicationName =
      fun ~inputConfigurations ->
        fun () -> { applicationName; inputConfigurations }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("InputConfigurations",
          (Some (InputConfigurations.to_value x.inputConfigurations)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputConfigurations =
        InputConfigurations.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InputConfigurations") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~inputConfigurations ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputConfigurations =
        field_map_exn json__ "InputConfigurations"
          InputConfigurations.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~inputConfigurations ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module ListTagsForResourceResponse =
  struct
    type nonrec t =
      {
      tags: Tags.t option
        [@ocaml.doc "The key-value tags assigned to the application."]}
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?tags = fun () -> { tags }
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `Unknown_operation_error (code, msg) ->
          `Assoc (("error", (`String code)) ::
            ((match msg with
              | None -> []
              | Some m -> [("message", (`String m))])))
    let to_value x =
      structure_to_value [("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
       "Retrieves the list of key-value tags assigned to the application. For more information, see Using Tagging."]
module ListTagsForResourceRequest =
  struct
    type nonrec t =
      {
      resourceARN: KinesisAnalyticsARN.t
        [@ocaml.doc "The ARN of the application for which to retrieve tags."]}
    let context_ = "ListTagsForResourceRequest"
    let make ~resourceARN = fun () -> { resourceARN }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Some (KinesisAnalyticsARN.to_value x.resourceARN)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let resourceARN =
        KinesisAnalyticsARN.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" KinesisAnalyticsARN.of_json in
      make ~resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Retrieves the list of key-value tags assigned to the application. For more information, see Using Tagging."]
module ListApplicationsResponse =
  struct
    type nonrec t =
      {
      applicationSummaries: ApplicationSummaries.t option
        [@ocaml.doc "List of ApplicationSummary objects."];
      hasMoreApplications: BooleanObject.t option
        [@ocaml.doc
          "Returns true if there are more applications to retrieve."]}
    type nonrec error =
      [ `Unknown_operation_error of (string * string option) ]
    let make ?applicationSummaries =
      fun ?hasMoreApplications ->
        fun () -> { applicationSummaries; hasMoreApplications }
    let error_of_json name json =
      match name with
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `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
        [("ApplicationSummaries",
           (Option.map x.applicationSummaries
              ~f:ApplicationSummaries.to_value));
        ("HasMoreApplications",
          (Option.map x.hasMoreApplications ~f:BooleanObject.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let hasMoreApplications =
        (Option.map ~f:BooleanObject.of_xml)
          (Xml.child xml_arg0 "HasMoreApplications") in
      let applicationSummaries =
        (Option.map ~f:ApplicationSummaries.of_xml)
          (Xml.child xml_arg0 "ApplicationSummaries") in
      make ?hasMoreApplications ?applicationSummaries ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let hasMoreApplications =
        field_map json__ "HasMoreApplications" BooleanObject.of_json in
      let applicationSummaries =
        field_map json__ "ApplicationSummaries" ApplicationSummaries.of_json in
      make ?hasMoreApplications ?applicationSummaries ()
    let to_json v = composed_to_json to_value v
  end
module ListApplicationsRequest =
  struct
    type nonrec t =
      {
      limit: ListApplicationsInputLimit.t option
        [@ocaml.doc "Maximum number of applications to list."];
      exclusiveStartApplicationName: ApplicationName.t option
        [@ocaml.doc
          "Name of the application to start the list with. When using pagination to retrieve the list, you don't need to specify this parameter in the first request. However, in subsequent requests, you add the last application name from the previous response to get the next page of applications."]}
    let make ?limit =
      fun ?exclusiveStartApplicationName ->
        fun () -> { limit; exclusiveStartApplicationName }
    let to_value x =
      structure_to_value
        [("Limit",
           (Option.map x.limit ~f:ListApplicationsInputLimit.to_value));
        ("ExclusiveStartApplicationName",
          (Option.map x.exclusiveStartApplicationName
             ~f:ApplicationName.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let exclusiveStartApplicationName =
        (Option.map ~f:ApplicationName.of_xml)
          (Xml.child xml_arg0 "ExclusiveStartApplicationName") in
      let limit =
        (Option.map ~f:ListApplicationsInputLimit.of_xml)
          (Xml.child xml_arg0 "Limit") in
      make ?exclusiveStartApplicationName ?limit ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let exclusiveStartApplicationName =
        field_map json__ "ExclusiveStartApplicationName"
          ApplicationName.of_json in
      let limit = field_map json__ "Limit" ListApplicationsInputLimit.of_json in
      make ?exclusiveStartApplicationName ?limit ()
    let to_json v = composed_to_json to_value v
  end
module DiscoverInputSchemaResponse =
  struct
    type nonrec t =
      {
      inputSchema: SourceSchema.t option
        [@ocaml.doc
          "Schema inferred from the streaming source. It identifies the format of the data in the streaming source and how each data element maps to corresponding columns in the in-application stream that you can create."];
      parsedInputRecords: ParsedInputRecords.t option
        [@ocaml.doc
          "An array of elements, where each element corresponds to a row in a stream record (a stream record can have more than one row)."];
      processedInputRecords: ProcessedInputRecords.t option
        [@ocaml.doc
          "Stream data that was modified by the processor specified in the InputProcessingConfiguration parameter."];
      rawInputRecords: RawInputRecords.t option
        [@ocaml.doc "Raw stream data that was sampled to infer the schema."]}
    type nonrec error =
      [ `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceProvisionedThroughputExceededException of
          ResourceProvisionedThroughputExceededException.t 
      | `ServiceUnavailableException of ServiceUnavailableException.t 
      | `UnableToDetectSchemaException of UnableToDetectSchemaException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?inputSchema =
      fun ?parsedInputRecords ->
        fun ?processedInputRecords ->
          fun ?rawInputRecords ->
            fun () ->
              {
                inputSchema;
                parsedInputRecords;
                processedInputRecords;
                rawInputRecords
              }
    let error_of_json name json =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceProvisionedThroughputExceededException" ->
          `ResourceProvisionedThroughputExceededException
            (ResourceProvisionedThroughputExceededException.of_json json)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_json json)
      | "UnableToDetectSchemaException" ->
          `UnableToDetectSchemaException
            (UnableToDetectSchemaException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceProvisionedThroughputExceededException" ->
          `ResourceProvisionedThroughputExceededException
            (ResourceProvisionedThroughputExceededException.of_xml xml)
      | "ServiceUnavailableException" ->
          `ServiceUnavailableException
            (ServiceUnavailableException.of_xml xml)
      | "UnableToDetectSchemaException" ->
          `UnableToDetectSchemaException
            (UnableToDetectSchemaException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceProvisionedThroughputExceededException e ->
          `Assoc
            [("error",
               (`String "ResourceProvisionedThroughputExceededException"));
            ("details",
              (ResourceProvisionedThroughputExceededException.to_json e))]
      | `ServiceUnavailableException e ->
          `Assoc
            [("error", (`String "ServiceUnavailableException"));
            ("details", (ServiceUnavailableException.to_json e))]
      | `UnableToDetectSchemaException e ->
          `Assoc
            [("error", (`String "UnableToDetectSchemaException"));
            ("details", (UnableToDetectSchemaException.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
        [("InputSchema", (Option.map x.inputSchema ~f:SourceSchema.to_value));
        ("ParsedInputRecords",
          (Option.map x.parsedInputRecords ~f:ParsedInputRecords.to_value));
        ("ProcessedInputRecords",
          (Option.map x.processedInputRecords
             ~f:ProcessedInputRecords.to_value));
        ("RawInputRecords",
          (Option.map x.rawInputRecords ~f:RawInputRecords.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let rawInputRecords =
        (Option.map ~f:RawInputRecords.of_xml)
          (Xml.child xml_arg0 "RawInputRecords") in
      let processedInputRecords =
        (Option.map ~f:ProcessedInputRecords.of_xml)
          (Xml.child xml_arg0 "ProcessedInputRecords") in
      let parsedInputRecords =
        (Option.map ~f:ParsedInputRecords.of_xml)
          (Xml.child xml_arg0 "ParsedInputRecords") in
      let inputSchema =
        (Option.map ~f:SourceSchema.of_xml)
          (Xml.child xml_arg0 "InputSchema") in
      make ?rawInputRecords ?processedInputRecords ?parsedInputRecords
        ?inputSchema ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let rawInputRecords =
        field_map json__ "RawInputRecords" RawInputRecords.of_json in
      let processedInputRecords =
        field_map json__ "ProcessedInputRecords"
          ProcessedInputRecords.of_json in
      let parsedInputRecords =
        field_map json__ "ParsedInputRecords" ParsedInputRecords.of_json in
      let inputSchema = field_map json__ "InputSchema" SourceSchema.of_json in
      make ?rawInputRecords ?processedInputRecords ?parsedInputRecords
        ?inputSchema ()
    let to_json v = composed_to_json to_value v
  end
module DiscoverInputSchemaRequest =
  struct
    type nonrec t =
      {
      resourceARN: ResourceARN.t option
        [@ocaml.doc "Amazon Resource Name (ARN) of the streaming source."];
      roleARN: RoleARN.t option
        [@ocaml.doc
          "ARN of the IAM role that Amazon Kinesis Analytics can assume to access the stream on your behalf."];
      inputStartingPositionConfiguration:
        InputStartingPositionConfiguration.t option
        [@ocaml.doc
          "Point at which you want Amazon Kinesis Analytics to start reading records from the specified streaming source discovery purposes."];
      s3Configuration: S3Configuration.t option
        [@ocaml.doc
          "Specify this parameter to discover a schema from data in an Amazon S3 object."];
      inputProcessingConfiguration: InputProcessingConfiguration.t option
        [@ocaml.doc
          "The InputProcessingConfiguration to use to preprocess the records before discovering the schema of the records."]}
    let make ?resourceARN =
      fun ?roleARN ->
        fun ?inputStartingPositionConfiguration ->
          fun ?s3Configuration ->
            fun ?inputProcessingConfiguration ->
              fun () ->
                {
                  resourceARN;
                  roleARN;
                  inputStartingPositionConfiguration;
                  s3Configuration;
                  inputProcessingConfiguration
                }
    let to_value x =
      structure_to_value
        [("ResourceARN", (Option.map x.resourceARN ~f:ResourceARN.to_value));
        ("RoleARN", (Option.map x.roleARN ~f:RoleARN.to_value));
        ("InputStartingPositionConfiguration",
          (Option.map x.inputStartingPositionConfiguration
             ~f:InputStartingPositionConfiguration.to_value));
        ("S3Configuration",
          (Option.map x.s3Configuration ~f:S3Configuration.to_value));
        ("InputProcessingConfiguration",
          (Option.map x.inputProcessingConfiguration
             ~f:InputProcessingConfiguration.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputProcessingConfiguration =
        (Option.map ~f:InputProcessingConfiguration.of_xml)
          (Xml.child xml_arg0 "InputProcessingConfiguration") in
      let s3Configuration =
        (Option.map ~f:S3Configuration.of_xml)
          (Xml.child xml_arg0 "S3Configuration") in
      let inputStartingPositionConfiguration =
        (Option.map ~f:InputStartingPositionConfiguration.of_xml)
          (Xml.child xml_arg0 "InputStartingPositionConfiguration") in
      let roleARN =
        (Option.map ~f:RoleARN.of_xml) (Xml.child xml_arg0 "RoleARN") in
      let resourceARN =
        (Option.map ~f:ResourceARN.of_xml) (Xml.child xml_arg0 "ResourceARN") in
      make ?inputProcessingConfiguration ?s3Configuration
        ?inputStartingPositionConfiguration ?roleARN ?resourceARN ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputProcessingConfiguration =
        field_map json__ "InputProcessingConfiguration"
          InputProcessingConfiguration.of_json in
      let s3Configuration =
        field_map json__ "S3Configuration" S3Configuration.of_json in
      let inputStartingPositionConfiguration =
        field_map json__ "InputStartingPositionConfiguration"
          InputStartingPositionConfiguration.of_json in
      let roleARN = field_map json__ "RoleARN" RoleARN.of_json in
      let resourceARN = field_map json__ "ResourceARN" ResourceARN.of_json in
      make ?inputProcessingConfiguration ?s3Configuration
        ?inputStartingPositionConfiguration ?roleARN ?resourceARN ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Infers a schema by evaluating sample records on the specified streaming source (Amazon Kinesis stream or Amazon Kinesis Firehose delivery stream) or S3 object. In the response, the operation returns the inferred schema and also the sample records that the operation used to infer the schema. You can use the inferred schema when configuring a streaming source for your application. For conceptual information, see Configuring Application Input. Note that when you create an application using the Amazon Kinesis Analytics console, the console uses this operation to infer a schema and show it in the console user interface. This operation requires permissions to perform the kinesisanalytics:DiscoverInputSchema action."]
module DescribeApplicationResponse =
  struct
    type nonrec t =
      {
      applicationDetail: ApplicationDetail.t option
        [@ocaml.doc
          "Provides a description of the application, such as the application Amazon Resource Name (ARN), status, latest version, and input and output configuration details."]}
    type nonrec error =
      [ `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationDetail = fun () -> { applicationDetail }
    let error_of_json name json =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
        [("ApplicationDetail",
           (Option.map x.applicationDetail ~f:ApplicationDetail.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationDetail =
        (Option.map ~f:ApplicationDetail.of_xml)
          (Xml.child xml_arg0 "ApplicationDetail") in
      make ?applicationDetail ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationDetail =
        field_map json__ "ApplicationDetail" ApplicationDetail.of_json in
      make ?applicationDetail ()
    let to_json v = composed_to_json to_value v
  end
module DescribeApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Name of the application."]}
    let context_ = "DescribeApplicationRequest"
    let make ~applicationName = fun () -> { applicationName }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module DeleteApplicationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module DeleteApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of the Amazon Kinesis Analytics application to delete."];
      createTimestamp: Timestamp.t
        [@ocaml.doc
          "You can use the DescribeApplication operation to get this value."]}
    let context_ = "DeleteApplicationRequest"
    let make ~applicationName =
      fun ~createTimestamp -> fun () -> { applicationName; createTimestamp }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CreateTimestamp", (Some (Timestamp.to_value x.createTimestamp)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let createTimestamp =
        Timestamp.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CreateTimestamp") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~createTimestamp ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let createTimestamp =
        field_map_exn json__ "CreateTimestamp" Timestamp.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~createTimestamp ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module DeleteApplicationReferenceDataSourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes a reference data source configuration from the specified application configuration. If the application is running, Amazon Kinesis Analytics immediately removes the in-application table that you created using the AddApplicationReferenceDataSource operation. This operation requires permissions to perform the kinesisanalytics.DeleteApplicationReferenceDataSource action."]
module DeleteApplicationReferenceDataSourceRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Name of an existing application."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Version of the application. You can use the DescribeApplication operation to get the current application version. If the version specified is not the current version, the ConcurrentModificationException is returned."];
      referenceId: Id.t
        [@ocaml.doc
          "ID of the reference data source. When you add a reference data source to your application using the AddApplicationReferenceDataSource, Amazon Kinesis Analytics assigns an ID. You can use the DescribeApplication operation to get the reference ID."]}
    let context_ = "DeleteApplicationReferenceDataSourceRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~referenceId ->
          fun () ->
            { applicationName; currentApplicationVersionId; referenceId }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("ReferenceId", (Some (Id.to_value x.referenceId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "ReferenceId") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~referenceId ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceId = field_map_exn json__ "ReferenceId" Id.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~referenceId ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes a reference data source configuration from the specified application configuration. If the application is running, Amazon Kinesis Analytics immediately removes the in-application table that you created using the AddApplicationReferenceDataSource operation. This operation requires permissions to perform the kinesisanalytics.DeleteApplicationReferenceDataSource action."]
module DeleteApplicationOutputResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module DeleteApplicationOutputRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Amazon Kinesis Analytics application name."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Amazon Kinesis Analytics application version. You can use the DescribeApplication operation to get the current application version. If the version specified is not the current version, the ConcurrentModificationException is returned."];
      outputId: Id.t
        [@ocaml.doc
          "The ID of the configuration to delete. Each output configuration that is added to the application, either when the application is created or later using the AddApplicationOutput operation, has a unique ID. You need to provide the ID to uniquely identify the output configuration that you want to delete from the application configuration. You can use the DescribeApplication operation to get the specific OutputId."]}
    let context_ = "DeleteApplicationOutputRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~outputId ->
          fun () ->
            { applicationName; currentApplicationVersionId; outputId }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("OutputId", (Some (Id.to_value x.outputId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let outputId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "OutputId") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~outputId ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let outputId = field_map_exn json__ "OutputId" Id.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~outputId ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module DeleteApplicationInputProcessingConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes an InputProcessingConfiguration from an input."]
module DeleteApplicationInputProcessingConfigurationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "The Kinesis Analytics application name."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc "The version ID of the Kinesis Analytics application."];
      inputId: Id.t
        [@ocaml.doc
          "The ID of the input configuration from which to delete the input processing configuration. You can get a list of the input IDs for an application by using the DescribeApplication operation."]}
    let context_ = "DeleteApplicationInputProcessingConfigurationRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~inputId ->
          fun () -> { applicationName; currentApplicationVersionId; inputId }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("InputId", (Some (Id.to_value x.inputId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "InputId") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~inputId ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputId = field_map_exn json__ "InputId" Id.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~inputId ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes an InputProcessingConfiguration from an input."]
module DeleteApplicationCloudWatchLoggingOptionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes a CloudWatch log stream from an application. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see Working with Amazon CloudWatch Logs."]
module DeleteApplicationCloudWatchLoggingOptionRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "The Kinesis Analytics application name."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc "The version ID of the Kinesis Analytics application."];
      cloudWatchLoggingOptionId: Id.t
        [@ocaml.doc
          "The CloudWatchLoggingOptionId of the CloudWatch logging option to delete. You can get the CloudWatchLoggingOptionId by using the DescribeApplication operation."]}
    let context_ = "DeleteApplicationCloudWatchLoggingOptionRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~cloudWatchLoggingOptionId ->
          fun () ->
            {
              applicationName;
              currentApplicationVersionId;
              cloudWatchLoggingOptionId
            }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("CloudWatchLoggingOptionId",
          (Some (Id.to_value x.cloudWatchLoggingOptionId)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cloudWatchLoggingOptionId =
        Id.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CloudWatchLoggingOptionId") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~cloudWatchLoggingOptionId ~currentApplicationVersionId
        ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cloudWatchLoggingOptionId =
        field_map_exn json__ "CloudWatchLoggingOptionId" Id.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~cloudWatchLoggingOptionId ~currentApplicationVersionId
        ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Deletes a CloudWatch log stream from an application. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see Working with Amazon CloudWatch Logs."]
module CreateApplicationResponse =
  struct
    type nonrec t =
      {
      applicationSummary: ApplicationSummary.t option
        [@ocaml.doc
          "In response to your CreateApplication request, Amazon Kinesis Analytics returns a response with a summary of the application it created, including the application Amazon Resource Name (ARN), name, and status."]}
    type nonrec error =
      [ `CodeValidationException of CodeValidationException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `LimitExceededException of LimitExceededException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `TooManyTagsException of TooManyTagsException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?applicationSummary = fun () -> { applicationSummary }
    let error_of_json name json =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_xml xml)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "LimitExceededException" ->
          `LimitExceededException (LimitExceededException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "TooManyTagsException" ->
          `TooManyTagsException (TooManyTagsException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CodeValidationException e ->
          `Assoc
            [("error", (`String "CodeValidationException"));
            ("details", (CodeValidationException.to_json e))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `LimitExceededException e ->
          `Assoc
            [("error", (`String "LimitExceededException"));
            ("details", (LimitExceededException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `TooManyTagsException e ->
          `Assoc
            [("error", (`String "TooManyTagsException"));
            ("details", (TooManyTagsException.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
        [("ApplicationSummary",
           (Option.map x.applicationSummary ~f:ApplicationSummary.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let applicationSummary =
        (Option.map ~f:ApplicationSummary.of_xml)
          (Xml.child xml_arg0 "ApplicationSummary") in
      make ?applicationSummary ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let applicationSummary =
        field_map json__ "ApplicationSummary" ApplicationSummary.of_json in
      make ?applicationSummary ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "TBD"]
module CreateApplicationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of your Amazon Kinesis Analytics application (for example, sample-app)."];
      applicationDescription: ApplicationDescription.t option
        [@ocaml.doc "Summary description of the application."];
      inputs: Inputs.t option
        [@ocaml.doc
          "Use this parameter to configure the application input. You can configure your application to receive input from a single streaming source. In this configuration, you map this streaming source to an in-application stream that is created. Your application code can then query the in-application stream like a table (you can think of it as a constantly updating table). For the streaming source, you provide its Amazon Resource Name (ARN) and format of data on the stream (for example, JSON, CSV, etc.). You also must provide an IAM role that Amazon Kinesis Analytics can assume to read this stream on your behalf. To create the in-application stream, you need to specify a schema to transform your data into a schematized version used in SQL. In the schema, you provide the necessary mapping of the data elements in the streaming source to record columns in the in-app stream."];
      outputs: Outputs.t option
        [@ocaml.doc
          "You can configure application output to write data from any of the in-application streams to up to three destinations. These destinations can be Amazon Kinesis streams, Amazon Kinesis Firehose delivery streams, AWS Lambda destinations, or any combination of the three. In the configuration, you specify the in-application stream name, the destination stream or Lambda function Amazon Resource Name (ARN), and the format to use when writing data. You must also provide an IAM role that Amazon Kinesis Analytics can assume to write to the destination stream or Lambda function on your behalf. In the output configuration, you also provide the output stream or Lambda function ARN. For stream destinations, you provide the format of data in the stream (for example, JSON, CSV). You also must provide an IAM role that Amazon Kinesis Analytics can assume to write to the stream or Lambda function on your behalf."];
      cloudWatchLoggingOptions: CloudWatchLoggingOptions.t option
        [@ocaml.doc
          "Use this parameter to configure a CloudWatch log stream to monitor application configuration errors. For more information, see Working with Amazon CloudWatch Logs."];
      applicationCode: ApplicationCode.t option
        [@ocaml.doc
          "One or more SQL statements that read input data, transform it, and generate output. For example, you can write a SQL statement that reads data from one in-application stream, generates a running average of the number of advertisement clicks by vendor, and insert resulting rows in another in-application stream using pumps. For more information about the typical pattern, see Application Code. You can provide such series of SQL statements, where output of one statement can be used as the input for the next statement. You store intermediate results by creating in-application streams and pumps. Note that the application code must create the streams with names specified in the Outputs. For example, if your Outputs defines output streams named ExampleOutputStream1 and ExampleOutputStream2, then your application code must create these streams."];
      tags: Tags.t option
        [@ocaml.doc
          "A list of one or more tags to assign to the application. A tag is a key-value pair that identifies an application. Note that the maximum number of application tags includes system tags. The maximum number of user-defined application tags is 50. For more information, see Using Tagging."]}
    let context_ = "CreateApplicationRequest"
    let make ?applicationDescription =
      fun ?inputs ->
        fun ?outputs ->
          fun ?cloudWatchLoggingOptions ->
            fun ?applicationCode ->
              fun ?tags ->
                fun ~applicationName ->
                  fun () ->
                    {
                      applicationDescription;
                      inputs;
                      outputs;
                      cloudWatchLoggingOptions;
                      applicationCode;
                      tags;
                      applicationName
                    }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("ApplicationDescription",
          (Option.map x.applicationDescription
             ~f:ApplicationDescription.to_value));
        ("Inputs", (Option.map x.inputs ~f:Inputs.to_value));
        ("Outputs", (Option.map x.outputs ~f:Outputs.to_value));
        ("CloudWatchLoggingOptions",
          (Option.map x.cloudWatchLoggingOptions
             ~f:CloudWatchLoggingOptions.to_value));
        ("ApplicationCode",
          (Option.map x.applicationCode ~f:ApplicationCode.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
      let applicationCode =
        (Option.map ~f:ApplicationCode.of_xml)
          (Xml.child xml_arg0 "ApplicationCode") in
      let cloudWatchLoggingOptions =
        (Option.map ~f:CloudWatchLoggingOptions.of_xml)
          (Xml.child xml_arg0 "CloudWatchLoggingOptions") in
      let outputs =
        (Option.map ~f:Outputs.of_xml) (Xml.child xml_arg0 "Outputs") in
      let inputs =
        (Option.map ~f:Inputs.of_xml) (Xml.child xml_arg0 "Inputs") in
      let applicationDescription =
        (Option.map ~f:ApplicationDescription.of_xml)
          (Xml.child xml_arg0 "ApplicationDescription") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ?tags ?applicationCode ?cloudWatchLoggingOptions ?outputs ?inputs
        ?applicationDescription ~applicationName ()
    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
      let applicationCode =
        field_map json__ "ApplicationCode" ApplicationCode.of_json in
      let cloudWatchLoggingOptions =
        field_map json__ "CloudWatchLoggingOptions"
          CloudWatchLoggingOptions.of_json in
      let outputs = field_map json__ "Outputs" Outputs.of_json in
      let inputs = field_map json__ "Inputs" Inputs.of_json in
      let applicationDescription =
        field_map json__ "ApplicationDescription"
          ApplicationDescription.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ?tags ?applicationCode ?cloudWatchLoggingOptions ?outputs ?inputs
        ?applicationDescription ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "TBD"]
module AddApplicationReferenceDataSourceResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module AddApplicationReferenceDataSourceRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "Name of an existing application."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Version of the application for which you are adding the reference data source. You can use the DescribeApplication operation to get the current application version. If the version specified is not the current version, the ConcurrentModificationException is returned."];
      referenceDataSource: ReferenceDataSource.t
        [@ocaml.doc
          "The reference data source can be an object in your Amazon S3 bucket. Amazon Kinesis Analytics reads the object and copies the data into the in-application table that is created. You provide an S3 bucket, object key name, and the resulting in-application table that is created. You must also provide an IAM role with the necessary permissions that Amazon Kinesis Analytics can assume to read the object from your S3 bucket on your behalf."]}
    let context_ = "AddApplicationReferenceDataSourceRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~referenceDataSource ->
          fun () ->
            {
              applicationName;
              currentApplicationVersionId;
              referenceDataSource
            }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("ReferenceDataSource",
          (Some (ReferenceDataSource.to_value x.referenceDataSource)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let referenceDataSource =
        ReferenceDataSource.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ReferenceDataSource") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~referenceDataSource ~currentApplicationVersionId ~applicationName
        ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let referenceDataSource =
        field_map_exn json__ "ReferenceDataSource"
          ReferenceDataSource.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~referenceDataSource ~currentApplicationVersionId ~applicationName
        ()
    let to_json v = composed_to_json to_value v
  end
module AddApplicationOutputResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module AddApplicationOutputRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of the application to which you want to add the output configuration."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Version of the application to which you want to add the output configuration. You can use the DescribeApplication operation to get the current application version. If the version specified is not the current version, the ConcurrentModificationException is returned."];
      output: Output.t
        [@ocaml.doc
          "An array of objects, each describing one output configuration. In the output configuration, you specify the name of an in-application stream, a destination (that is, an Amazon Kinesis stream, an Amazon Kinesis Firehose delivery stream, or an AWS Lambda function), and record the formation to use when writing to the destination."]}
    let context_ = "AddApplicationOutputRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~output ->
          fun () -> { applicationName; currentApplicationVersionId; output }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("Output", (Some (Output.to_value x.output)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let output =
        Output.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Output") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~output ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let output = field_map_exn json__ "Output" Output.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~output ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module AddApplicationInputResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [ `CodeValidationException of CodeValidationException.t 
      | `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_json json)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "CodeValidationException" ->
          `CodeValidationException (CodeValidationException.of_xml xml)
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `CodeValidationException e ->
          `Assoc
            [("error", (`String "CodeValidationException"));
            ("details", (CodeValidationException.to_json e))]
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
module AddApplicationInputRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of your existing Amazon Kinesis Analytics application to which you want to add the streaming source."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Current version of your Amazon Kinesis Analytics application. You can use the DescribeApplication operation to find the current application version."];
      input: Input.t [@ocaml.doc "The Input to add."]}
    let context_ = "AddApplicationInputRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~input ->
          fun () -> { applicationName; currentApplicationVersionId; input }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("Input", (Some (Input.to_value x.input)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let input =
        Input.of_xml (Xml.child_exn ~context:context_ xml_arg0 "Input") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~input ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let input = field_map_exn json__ "Input" Input.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~input ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end
module AddApplicationInputProcessingConfigurationResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Adds an InputProcessingConfiguration to an application. An input processor preprocesses records on the input stream before the application's SQL code executes. Currently, the only input processor available is AWS Lambda."]
module AddApplicationInputProcessingConfigurationRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc
          "Name of the application to which you want to add the input processing configuration."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc
          "Version of the application to which you want to add the input processing configuration. You can use the DescribeApplication operation to get the current application version. If the version specified is not the current version, the ConcurrentModificationException is returned."];
      inputId: Id.t
        [@ocaml.doc
          "The ID of the input configuration to add the input processing configuration to. You can get a list of the input IDs for an application using the DescribeApplication operation."];
      inputProcessingConfiguration: InputProcessingConfiguration.t
        [@ocaml.doc
          "The InputProcessingConfiguration to add to the application."]}
    let context_ = "AddApplicationInputProcessingConfigurationRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~inputId ->
          fun ~inputProcessingConfiguration ->
            fun () ->
              {
                applicationName;
                currentApplicationVersionId;
                inputId;
                inputProcessingConfiguration
              }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("InputId", (Some (Id.to_value x.inputId)));
        ("InputProcessingConfiguration",
          (Some
             (InputProcessingConfiguration.to_value
                x.inputProcessingConfiguration)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let inputProcessingConfiguration =
        InputProcessingConfiguration.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "InputProcessingConfiguration") in
      let inputId =
        Id.of_xml (Xml.child_exn ~context:context_ xml_arg0 "InputId") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~inputProcessingConfiguration ~inputId
        ~currentApplicationVersionId ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let inputProcessingConfiguration =
        field_map_exn json__ "InputProcessingConfiguration"
          InputProcessingConfiguration.of_json in
      let inputId = field_map_exn json__ "InputId" Id.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~inputProcessingConfiguration ~inputId
        ~currentApplicationVersionId ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Adds an InputProcessingConfiguration to an application. An input processor preprocesses records on the input stream before the application's SQL code executes. Currently, the only input processor available is AWS Lambda."]
module AddApplicationCloudWatchLoggingOptionResponse =
  struct
    type nonrec t = unit
    type nonrec error =
      [
        `ConcurrentModificationException of ConcurrentModificationException.t 
      | `InvalidArgumentException of InvalidArgumentException.t 
      | `ResourceInUseException of ResourceInUseException.t 
      | `ResourceNotFoundException of ResourceNotFoundException.t 
      | `UnsupportedOperationException of UnsupportedOperationException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make () = ()
    let error_of_json name json =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_json json)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_json json)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_json json)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_json json)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "ConcurrentModificationException" ->
          `ConcurrentModificationException
            (ConcurrentModificationException.of_xml xml)
      | "InvalidArgumentException" ->
          `InvalidArgumentException (InvalidArgumentException.of_xml xml)
      | "ResourceInUseException" ->
          `ResourceInUseException (ResourceInUseException.of_xml xml)
      | "ResourceNotFoundException" ->
          `ResourceNotFoundException (ResourceNotFoundException.of_xml xml)
      | "UnsupportedOperationException" ->
          `UnsupportedOperationException
            (UnsupportedOperationException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `ConcurrentModificationException e ->
          `Assoc
            [("error", (`String "ConcurrentModificationException"));
            ("details", (ConcurrentModificationException.to_json e))]
      | `InvalidArgumentException e ->
          `Assoc
            [("error", (`String "InvalidArgumentException"));
            ("details", (InvalidArgumentException.to_json e))]
      | `ResourceInUseException e ->
          `Assoc
            [("error", (`String "ResourceInUseException"));
            ("details", (ResourceInUseException.to_json e))]
      | `ResourceNotFoundException e ->
          `Assoc
            [("error", (`String "ResourceNotFoundException"));
            ("details", (ResourceNotFoundException.to_json e))]
      | `UnsupportedOperationException e ->
          `Assoc
            [("error", (`String "UnsupportedOperationException"));
            ("details", (UnsupportedOperationException.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
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Adds a CloudWatch log stream to monitor application configuration errors. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see Working with Amazon CloudWatch Logs."]
module AddApplicationCloudWatchLoggingOptionRequest =
  struct
    type nonrec t =
      {
      applicationName: ApplicationName.t
        [@ocaml.doc "The Kinesis Analytics application name."];
      currentApplicationVersionId: ApplicationVersionId.t
        [@ocaml.doc "The version ID of the Kinesis Analytics application."];
      cloudWatchLoggingOption: CloudWatchLoggingOption.t
        [@ocaml.doc
          "Provides the CloudWatch log stream Amazon Resource Name (ARN) and the IAM role ARN. Note: To write application messages to CloudWatch, the IAM role that is used must have the PutLogEvents policy action enabled."]}
    let context_ = "AddApplicationCloudWatchLoggingOptionRequest"
    let make ~applicationName =
      fun ~currentApplicationVersionId ->
        fun ~cloudWatchLoggingOption ->
          fun () ->
            {
              applicationName;
              currentApplicationVersionId;
              cloudWatchLoggingOption
            }
    let to_value x =
      structure_to_value
        [("ApplicationName",
           (Some (ApplicationName.to_value x.applicationName)));
        ("CurrentApplicationVersionId",
          (Some (ApplicationVersionId.to_value x.currentApplicationVersionId)));
        ("CloudWatchLoggingOption",
          (Some (CloudWatchLoggingOption.to_value x.cloudWatchLoggingOption)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let cloudWatchLoggingOption =
        CloudWatchLoggingOption.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "CloudWatchLoggingOption") in
      let currentApplicationVersionId =
        ApplicationVersionId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0
             "CurrentApplicationVersionId") in
      let applicationName =
        ApplicationName.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "ApplicationName") in
      make ~cloudWatchLoggingOption ~currentApplicationVersionId
        ~applicationName ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let cloudWatchLoggingOption =
        field_map_exn json__ "CloudWatchLoggingOption"
          CloudWatchLoggingOption.of_json in
      let currentApplicationVersionId =
        field_map_exn json__ "CurrentApplicationVersionId"
          ApplicationVersionId.of_json in
      let applicationName =
        field_map_exn json__ "ApplicationName" ApplicationName.of_json in
      make ~cloudWatchLoggingOption ~currentApplicationVersionId
        ~applicationName ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "This documentation is for version 1 of the Amazon Kinesis Data Analytics API, which only supports SQL applications. Version 2 of the API supports SQL and Java applications. For more information about version 2, see Amazon Kinesis Data Analytics API V2 Documentation. Adds a CloudWatch log stream to monitor application configuration errors. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see Working with Amazon CloudWatch Logs."]