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.ec2_instance_connect
let apiVersion = "2018-04-02"
let endpointPrefix = "ec2-instance-connect"
let serviceFullName = "AWS EC2 Instance Connect"
let signatureVersion = "v4"
let protocol = "json"
let globalEndpoint = endpointPrefix ^ ".amazonaws.com"
let serviceAbbreviation = "EC2 Instance Connect"
let targetPrefix = "AWSEC2InstanceConnectService"
let simple_to_json to_value x =
  Botodata.Json.value_to_json_scalar (to_value x)
let composed_to_json to_value x = Botodata.Json.value_to_json (to_value x)
let to_query to_value x = Client.Query.of_value (to_value x)
let structure_to_value_aux st ~f =
  let filter = function | (k, Some v) -> Some (k, v) | _ -> None in
  let pair k v = (k, v) in
  let defer_value (k, dv) = pair k dv in
  ((List.filter_map st ~f:filter) |> (List.map ~f:defer_value)) |>
    (fun x -> `Structure (f x))
let structure_to_value = structure_to_value_aux ~f:Fn.id
let structure_to_wrapped_value ~wrapper ~response =
  structure_to_value_aux
    ~f:(fun x -> [(wrapper, (`Structure x)); (response, (`Structure []))])
module String_ =
  struct
    type nonrec t = string
    let context_ = "String"
    let make i = i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"String" j
    let to_json = simple_to_json to_value
  end
module AuthException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Either your AWS credentials are not valid or you do not have access to the EC2 instance."]
module EC2InstanceNotFoundException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "The specified instance was not found."]
module EC2InstanceStateInvalidException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to connect because the instance is not in a valid state. Connecting to a stopped or terminated instance is not supported. If the instance is stopped, start your instance, and try to connect again."]
module EC2InstanceTypeInvalidException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The instance type is not supported for connecting via the serial console. Only Nitro instance types are currently supported."]
module EC2InstanceUnavailableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The instance is currently unavailable. Wait a few minutes and try again."]
module InvalidArgsException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc "One of the parameters is not valid."]
module RequestId =
  struct
    type nonrec t = string
    let context_ = "RequestId"
    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:"RequestId" j
    let to_json = simple_to_json to_value
  end
module SerialConsoleAccessDisabledException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your account is not authorized to use the EC2 Serial Console. To authorize your account, run the EnableSerialConsoleAccess API. For more information, see EnableSerialConsoleAccess in the Amazon EC2 API Reference."]
module SerialConsoleSessionLimitExceededException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The instance currently has 1 active serial console session. Only 1 session is supported at a time."]
module SerialConsoleSessionUnavailableException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Unable to start a serial console session. Please try again."]
module SerialConsoleSessionUnsupportedException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Your instance's BIOS version is unsupported for serial console connection. Reboot your instance to update its BIOS, and then try again to connect."]
module ServiceException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The service encountered an error. Follow the instructions in the error message and try again."]
module Success =
  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 ThrottlingException =
  struct
    type nonrec t = {
      message: String_.t option }
    let make ?message = fun () -> { message }
    let to_value x =
      structure_to_value
        [("Message", (Option.map x.message ~f:String_.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let message =
        (Option.map ~f:String_.of_xml) (Xml.child xml_arg0 "Message") in
      make ?message ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let message = field_map json__ "Message" String_.of_json in
      make ?message ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "The requests were made too frequently and have been throttled. Wait a while and try again. To increase the limit on your request frequency, contact AWS Support."]
module InstanceId =
  struct
    type nonrec t = string
    let context_ = "InstanceId"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:10) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () -> check_pattern i ~pattern:"^i-[a-f0-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:"InstanceId" j
    let to_json = simple_to_json to_value
  end
module SSHPublicKey =
  struct
    type nonrec t = string
    let context_ = "SSHPublicKey"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_max i ~max:4096) >>=
             (fun () -> check_string_min i ~min:80));
        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:"SSHPublicKey" j
    let to_json = simple_to_json to_value
  end
module SerialPort =
  struct
    type nonrec t = int
    let make i =
      let open Result in
        ok_or_failwith
          ((check_int_max i ~max:0) >>= (fun () -> check_int_min i ~min:0));
        i
    let of_string = Int.of_string
    let to_value x = `Integer x
    let to_query v = to_query to_value v
    let to_header x = Int.to_string x
    let of_xml xml_arg0 =
      Int.of_string
        (string_of_xml ~kind:"an integer for SerialPort" 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 AvailabilityZone =
  struct
    type nonrec t = string
    let context_ = "AvailabilityZone"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:6) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i ~pattern:"^(\\w+-){2,3}\\d+\\w+$")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"AvailabilityZone" j
    let to_json = simple_to_json to_value
  end
module InstanceOSUser =
  struct
    type nonrec t = string
    let context_ = "InstanceOSUser"
    let make i =
      let open Result in
        ok_or_failwith
          ((check_string_min i ~min:1) >>=
             (fun () ->
                (check_string_max i ~max:32) >>=
                  (fun () ->
                     check_pattern i
                       ~pattern:"(^[A-Za-z_][A-Za-z0-9\\@\\._-]{0,30}[A-Za-z0-9\\$_-]?$)|(^(?=.{2,32}$)[0-9]{1,32}[A-Za-z\\@\\._-][A-Za-z0-9\\@\\._-]*[A-Za-z0-9\\$_-]?$)")));
        i
    let of_string x = x
    let to_value x = `String x
    let to_query v = to_query to_value v
    let to_header x = x
    let of_xml = Xml.string_data_exn ~context:context_
    let of_json j = string_of_json ~kind:"InstanceOSUser" j
    let to_json = simple_to_json to_value
  end
module SendSerialConsoleSSHPublicKeyResponse =
  struct
    type nonrec t =
      {
      requestId: RequestId.t option
        [@ocaml.doc
          "The ID of the request. Please provide this ID when contacting AWS Support for assistance."];
      success: Success.t option
        [@ocaml.doc
          "Is true if the request succeeds and an error otherwise."]}
    type nonrec error =
      [ `AuthException of AuthException.t 
      | `EC2InstanceNotFoundException of EC2InstanceNotFoundException.t 
      | `EC2InstanceStateInvalidException of
          EC2InstanceStateInvalidException.t 
      | `EC2InstanceTypeInvalidException of EC2InstanceTypeInvalidException.t 
      | `EC2InstanceUnavailableException of EC2InstanceUnavailableException.t 
      | `InvalidArgsException of InvalidArgsException.t 
      | `SerialConsoleAccessDisabledException of
          SerialConsoleAccessDisabledException.t 
      | `SerialConsoleSessionLimitExceededException of
          SerialConsoleSessionLimitExceededException.t 
      | `SerialConsoleSessionUnavailableException of
          SerialConsoleSessionUnavailableException.t 
      | `SerialConsoleSessionUnsupportedException of
          SerialConsoleSessionUnsupportedException.t 
      | `ServiceException of ServiceException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?requestId = fun ?success -> fun () -> { requestId; success }
    let error_of_json name json =
      match name with
      | "AuthException" -> `AuthException (AuthException.of_json json)
      | "EC2InstanceNotFoundException" ->
          `EC2InstanceNotFoundException
            (EC2InstanceNotFoundException.of_json json)
      | "EC2InstanceStateInvalidException" ->
          `EC2InstanceStateInvalidException
            (EC2InstanceStateInvalidException.of_json json)
      | "EC2InstanceTypeInvalidException" ->
          `EC2InstanceTypeInvalidException
            (EC2InstanceTypeInvalidException.of_json json)
      | "EC2InstanceUnavailableException" ->
          `EC2InstanceUnavailableException
            (EC2InstanceUnavailableException.of_json json)
      | "InvalidArgsException" ->
          `InvalidArgsException (InvalidArgsException.of_json json)
      | "SerialConsoleAccessDisabledException" ->
          `SerialConsoleAccessDisabledException
            (SerialConsoleAccessDisabledException.of_json json)
      | "SerialConsoleSessionLimitExceededException" ->
          `SerialConsoleSessionLimitExceededException
            (SerialConsoleSessionLimitExceededException.of_json json)
      | "SerialConsoleSessionUnavailableException" ->
          `SerialConsoleSessionUnavailableException
            (SerialConsoleSessionUnavailableException.of_json json)
      | "SerialConsoleSessionUnsupportedException" ->
          `SerialConsoleSessionUnsupportedException
            (SerialConsoleSessionUnsupportedException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthException" -> `AuthException (AuthException.of_xml xml)
      | "EC2InstanceNotFoundException" ->
          `EC2InstanceNotFoundException
            (EC2InstanceNotFoundException.of_xml xml)
      | "EC2InstanceStateInvalidException" ->
          `EC2InstanceStateInvalidException
            (EC2InstanceStateInvalidException.of_xml xml)
      | "EC2InstanceTypeInvalidException" ->
          `EC2InstanceTypeInvalidException
            (EC2InstanceTypeInvalidException.of_xml xml)
      | "EC2InstanceUnavailableException" ->
          `EC2InstanceUnavailableException
            (EC2InstanceUnavailableException.of_xml xml)
      | "InvalidArgsException" ->
          `InvalidArgsException (InvalidArgsException.of_xml xml)
      | "SerialConsoleAccessDisabledException" ->
          `SerialConsoleAccessDisabledException
            (SerialConsoleAccessDisabledException.of_xml xml)
      | "SerialConsoleSessionLimitExceededException" ->
          `SerialConsoleSessionLimitExceededException
            (SerialConsoleSessionLimitExceededException.of_xml xml)
      | "SerialConsoleSessionUnavailableException" ->
          `SerialConsoleSessionUnavailableException
            (SerialConsoleSessionUnavailableException.of_xml xml)
      | "SerialConsoleSessionUnsupportedException" ->
          `SerialConsoleSessionUnsupportedException
            (SerialConsoleSessionUnsupportedException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthException e ->
          `Assoc
            [("error", (`String "AuthException"));
            ("details", (AuthException.to_json e))]
      | `EC2InstanceNotFoundException e ->
          `Assoc
            [("error", (`String "EC2InstanceNotFoundException"));
            ("details", (EC2InstanceNotFoundException.to_json e))]
      | `EC2InstanceStateInvalidException e ->
          `Assoc
            [("error", (`String "EC2InstanceStateInvalidException"));
            ("details", (EC2InstanceStateInvalidException.to_json e))]
      | `EC2InstanceTypeInvalidException e ->
          `Assoc
            [("error", (`String "EC2InstanceTypeInvalidException"));
            ("details", (EC2InstanceTypeInvalidException.to_json e))]
      | `EC2InstanceUnavailableException e ->
          `Assoc
            [("error", (`String "EC2InstanceUnavailableException"));
            ("details", (EC2InstanceUnavailableException.to_json e))]
      | `InvalidArgsException e ->
          `Assoc
            [("error", (`String "InvalidArgsException"));
            ("details", (InvalidArgsException.to_json e))]
      | `SerialConsoleAccessDisabledException e ->
          `Assoc
            [("error", (`String "SerialConsoleAccessDisabledException"));
            ("details", (SerialConsoleAccessDisabledException.to_json e))]
      | `SerialConsoleSessionLimitExceededException e ->
          `Assoc
            [("error",
               (`String "SerialConsoleSessionLimitExceededException"));
            ("details",
              (SerialConsoleSessionLimitExceededException.to_json e))]
      | `SerialConsoleSessionUnavailableException e ->
          `Assoc
            [("error", (`String "SerialConsoleSessionUnavailableException"));
            ("details", (SerialConsoleSessionUnavailableException.to_json e))]
      | `SerialConsoleSessionUnsupportedException e ->
          `Assoc
            [("error", (`String "SerialConsoleSessionUnsupportedException"));
            ("details", (SerialConsoleSessionUnsupportedException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("RequestId", (Option.map x.requestId ~f:RequestId.to_value));
        ("Success", (Option.map x.success ~f:Success.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let success =
        (Option.map ~f:Success.of_xml) (Xml.child xml_arg0 "Success") in
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      make ?success ?requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let success = field_map json__ "Success" Success.of_json in
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      make ?success ?requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pushes an SSH public key to the specified EC2 instance. The key remains for 60 seconds, which gives you 60 seconds to establish a serial console connection to the instance using SSH. For more information, see EC2 Serial Console in the Amazon EC2 User Guide."]
module SendSerialConsoleSSHPublicKeyRequest =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t [@ocaml.doc "The ID of the EC2 instance."];
      serialPort: SerialPort.t option
        [@ocaml.doc
          "The serial port of the EC2 instance. Currently only port 0 is supported. Default: 0"];
      sSHPublicKey: SSHPublicKey.t
        [@ocaml.doc
          "The public key material. To use the public key, you must have the matching private key. For information about the supported key formats and lengths, see Requirements for key pairs in the Amazon EC2 User Guide."]}
    let context_ = "SendSerialConsoleSSHPublicKeyRequest"
    let make ?serialPort =
      fun ~instanceId ->
        fun ~sSHPublicKey ->
          fun () -> { serialPort; instanceId; sSHPublicKey }
    let to_value x =
      structure_to_value
        [("InstanceId", (Some (InstanceId.to_value x.instanceId)));
        ("SerialPort", (Option.map x.serialPort ~f:SerialPort.to_value));
        ("SSHPublicKey", (Some (SSHPublicKey.to_value x.sSHPublicKey)))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let sSHPublicKey =
        SSHPublicKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SSHPublicKey") in
      let serialPort =
        (Option.map ~f:SerialPort.of_xml) (Xml.child xml_arg0 "SerialPort") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceId") in
      make ~sSHPublicKey ?serialPort ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let sSHPublicKey =
        field_map_exn json__ "SSHPublicKey" SSHPublicKey.of_json in
      let serialPort = field_map json__ "SerialPort" SerialPort.of_json in
      let instanceId = field_map_exn json__ "InstanceId" InstanceId.of_json in
      make ~sSHPublicKey ?serialPort ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pushes an SSH public key to the specified EC2 instance. The key remains for 60 seconds, which gives you 60 seconds to establish a serial console connection to the instance using SSH. For more information, see EC2 Serial Console in the Amazon EC2 User Guide."]
module SendSSHPublicKeyResponse =
  struct
    type nonrec t =
      {
      requestId: RequestId.t option
        [@ocaml.doc
          "The ID of the request. Please provide this ID when contacting AWS Support for assistance."];
      success: Success.t option
        [@ocaml.doc
          "Is true if the request succeeds and an error otherwise."]}
    type nonrec error =
      [ `AuthException of AuthException.t 
      | `EC2InstanceNotFoundException of EC2InstanceNotFoundException.t 
      | `EC2InstanceStateInvalidException of
          EC2InstanceStateInvalidException.t 
      | `EC2InstanceUnavailableException of EC2InstanceUnavailableException.t 
      | `InvalidArgsException of InvalidArgsException.t 
      | `ServiceException of ServiceException.t 
      | `ThrottlingException of ThrottlingException.t 
      | `Unknown_operation_error of (string * string option) ]
    let make ?requestId = fun ?success -> fun () -> { requestId; success }
    let error_of_json name json =
      match name with
      | "AuthException" -> `AuthException (AuthException.of_json json)
      | "EC2InstanceNotFoundException" ->
          `EC2InstanceNotFoundException
            (EC2InstanceNotFoundException.of_json json)
      | "EC2InstanceStateInvalidException" ->
          `EC2InstanceStateInvalidException
            (EC2InstanceStateInvalidException.of_json json)
      | "EC2InstanceUnavailableException" ->
          `EC2InstanceUnavailableException
            (EC2InstanceUnavailableException.of_json json)
      | "InvalidArgsException" ->
          `InvalidArgsException (InvalidArgsException.of_json json)
      | "ServiceException" ->
          `ServiceException (ServiceException.of_json json)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_json json)
      | name ->
          `Unknown_operation_error
            (name, (Some (Yojson.Safe.to_string json)))
    let error_of_xml name xml =
      match name with
      | "AuthException" -> `AuthException (AuthException.of_xml xml)
      | "EC2InstanceNotFoundException" ->
          `EC2InstanceNotFoundException
            (EC2InstanceNotFoundException.of_xml xml)
      | "EC2InstanceStateInvalidException" ->
          `EC2InstanceStateInvalidException
            (EC2InstanceStateInvalidException.of_xml xml)
      | "EC2InstanceUnavailableException" ->
          `EC2InstanceUnavailableException
            (EC2InstanceUnavailableException.of_xml xml)
      | "InvalidArgsException" ->
          `InvalidArgsException (InvalidArgsException.of_xml xml)
      | "ServiceException" -> `ServiceException (ServiceException.of_xml xml)
      | "ThrottlingException" ->
          `ThrottlingException (ThrottlingException.of_xml xml)
      | name ->
          `Unknown_operation_error (name, (Some (Awso.Xml.to_string xml)))
    let error_to_json : error -> Yojson.Safe.t =
      function
      | `AuthException e ->
          `Assoc
            [("error", (`String "AuthException"));
            ("details", (AuthException.to_json e))]
      | `EC2InstanceNotFoundException e ->
          `Assoc
            [("error", (`String "EC2InstanceNotFoundException"));
            ("details", (EC2InstanceNotFoundException.to_json e))]
      | `EC2InstanceStateInvalidException e ->
          `Assoc
            [("error", (`String "EC2InstanceStateInvalidException"));
            ("details", (EC2InstanceStateInvalidException.to_json e))]
      | `EC2InstanceUnavailableException e ->
          `Assoc
            [("error", (`String "EC2InstanceUnavailableException"));
            ("details", (EC2InstanceUnavailableException.to_json e))]
      | `InvalidArgsException e ->
          `Assoc
            [("error", (`String "InvalidArgsException"));
            ("details", (InvalidArgsException.to_json e))]
      | `ServiceException e ->
          `Assoc
            [("error", (`String "ServiceException"));
            ("details", (ServiceException.to_json e))]
      | `ThrottlingException e ->
          `Assoc
            [("error", (`String "ThrottlingException"));
            ("details", (ThrottlingException.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
        [("RequestId", (Option.map x.requestId ~f:RequestId.to_value));
        ("Success", (Option.map x.success ~f:Success.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let success =
        (Option.map ~f:Success.of_xml) (Xml.child xml_arg0 "Success") in
      let requestId =
        (Option.map ~f:RequestId.of_xml) (Xml.child xml_arg0 "RequestId") in
      make ?success ?requestId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let success = field_map json__ "Success" Success.of_json in
      let requestId = field_map json__ "RequestId" RequestId.of_json in
      make ?success ?requestId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pushes an SSH public key to the specified EC2 instance for use by the specified user. The key remains for 60 seconds. For more information, see Connect to your Linux instance using EC2 Instance Connect in the Amazon EC2 User Guide."]
module SendSSHPublicKeyRequest =
  struct
    type nonrec t =
      {
      instanceId: InstanceId.t [@ocaml.doc "The ID of the EC2 instance."];
      instanceOSUser: InstanceOSUser.t
        [@ocaml.doc
          "The OS user on the EC2 instance for whom the key can be used to authenticate."];
      sSHPublicKey: SSHPublicKey.t
        [@ocaml.doc
          "The public key material. To use the public key, you must have the matching private key."];
      availabilityZone: AvailabilityZone.t option
        [@ocaml.doc
          "The Availability Zone in which the EC2 instance was launched."]}
    let context_ = "SendSSHPublicKeyRequest"
    let make ?availabilityZone =
      fun ~instanceId ->
        fun ~instanceOSUser ->
          fun ~sSHPublicKey ->
            fun () ->
              { availabilityZone; instanceId; instanceOSUser; sSHPublicKey }
    let to_value x =
      structure_to_value
        [("InstanceId", (Some (InstanceId.to_value x.instanceId)));
        ("InstanceOSUser", (Some (InstanceOSUser.to_value x.instanceOSUser)));
        ("SSHPublicKey", (Some (SSHPublicKey.to_value x.sSHPublicKey)));
        ("AvailabilityZone",
          (Option.map x.availabilityZone ~f:AvailabilityZone.to_value))]
    let to_query v = to_query to_value v
    let of_xml xml_arg0 =
      let availabilityZone =
        (Option.map ~f:AvailabilityZone.of_xml)
          (Xml.child xml_arg0 "AvailabilityZone") in
      let sSHPublicKey =
        SSHPublicKey.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "SSHPublicKey") in
      let instanceOSUser =
        InstanceOSUser.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceOSUser") in
      let instanceId =
        InstanceId.of_xml
          (Xml.child_exn ~context:context_ xml_arg0 "InstanceId") in
      make ?availabilityZone ~sSHPublicKey ~instanceOSUser ~instanceId ()
    let of_string s = of_xml (Awso.Xml.parse_response s)[@@warning "-32"]
    let of_json json__ =
      let availabilityZone =
        field_map json__ "AvailabilityZone" AvailabilityZone.of_json in
      let sSHPublicKey =
        field_map_exn json__ "SSHPublicKey" SSHPublicKey.of_json in
      let instanceOSUser =
        field_map_exn json__ "InstanceOSUser" InstanceOSUser.of_json in
      let instanceId = field_map_exn json__ "InstanceId" InstanceId.of_json in
      make ?availabilityZone ~sSHPublicKey ~instanceOSUser ~instanceId ()
    let to_json v = composed_to_json to_value v
  end[@@ocaml.doc
       "Pushes an SSH public key to the specified EC2 instance for use by the specified user. The key remains for 60 seconds. For more information, see Connect to your Linux instance using EC2 Instance Connect in the Amazon EC2 User Guide."]