Source file cli.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 Core
open Async
let json_arg = Command.Arg_type.create Yojson.Safe.from_string
let call ?endpoint_url ?profile ?region f m result_to_json error_to_json =
  let region =
    match region with
    | Some region -> Some (Awso.Region.of_string region)
    | None -> None in
  (Awso_async.Cfg.get_exn ?profile ?region ()) >>=
    (fun cfg ->
       (f ?endpoint_url ?cfg:(Some cfg) m) >>=
         (fun result ->
            match result with
            | Error err ->
                (match error_to_json with
                 | None ->
                     failwithf
                       "endpoint error, but no error values defined in boto"
                       ()
                 | Some to_json ->
                     let s = (err |> to_json) |> Yojson.Safe.to_string in
                     failwithf "AWS error: %s" s ())
            | Ok result ->
                ((match result_to_json with
                  | None -> print_endline "ok response from endpoint"
                  | Some to_json ->
                      ((result |> to_json) |> Yojson.Safe.to_string) |>
                        print_endline);
                 return ())))
let batch_create_memory_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING String"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and records =
         flag "records" (required json_arg)
           ~doc:"JSON MemoryRecordsCreateInputList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_create_memory_records
           (Values.BatchCreateMemoryRecordsInput.make ?clientToken ~memoryId
              ~records:(Values.MemoryRecordsCreateInputList.of_json records)
              ()) (Some Values.BatchCreateMemoryRecordsOutput.to_json)
           (Some Values.BatchCreateMemoryRecordsOutput.error_to_json)])
let batch_delete_memory_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and records =
         flag "records" (required json_arg)
           ~doc:"JSON MemoryRecordsDeleteInputList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_delete_memory_records
           (Values.BatchDeleteMemoryRecordsInput.make ~memoryId
              ~records:(Values.MemoryRecordsDeleteInputList.of_json records)
              ()) (Some Values.BatchDeleteMemoryRecordsOutput.to_json)
           (Some Values.BatchDeleteMemoryRecordsOutput.error_to_json)])
let batch_update_memory_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and records =
         flag "records" (required json_arg)
           ~doc:"JSON MemoryRecordsUpdateInputList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_update_memory_records
           (Values.BatchUpdateMemoryRecordsInput.make ~memoryId
              ~records:(Values.MemoryRecordsUpdateInputList.of_json records)
              ()) (Some Values.BatchUpdateMemoryRecordsOutput.to_json)
           (Some Values.BatchUpdateMemoryRecordsOutput.error_to_json)])
let complete_resource_token_auth =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userIdentifier =
         flag "user-identifier" (required json_arg)
           ~doc:"JSON UserIdentifier"
       and sessionUri =
         flag "session-uri" (required string) ~doc:"STRING RequestUri" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.complete_resource_token_auth
           (Values.CompleteResourceTokenAuthRequest.make
              ~userIdentifier:(Values.UserIdentifier.of_json userIdentifier)
              ~sessionUri ())
           (Some Values.CompleteResourceTokenAuthResponse.to_json)
           (Some Values.CompleteResourceTokenAuthResponse.error_to_json)])
let create_a_b_test =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and description =
         flag "description" (optional string) ~doc:"STRING ABTestDescription"
       and gatewayFilter =
         flag "gateway-filter" (optional json_arg) ~doc:"JSON GatewayFilter"
       and enableOnCreate =
         flag "enable-on-create" (optional bool) ~doc:"BOOL Boolean"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and name = flag "name" (required string) ~doc:"STRING ABTestName"
       and gatewayArn =
         flag "gateway-arn" (required string) ~doc:"STRING GatewayArn"
       and variants =
         flag "variants" (required json_arg) ~doc:"JSON VariantList"
       and evaluationConfig =
         flag "evaluation-config" (required json_arg)
           ~doc:"JSON ABTestEvaluationConfig"
       and roleArn = flag "role-arn" (required string) ~doc:"STRING RoleArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_a_b_test
           (Values.CreateABTestRequest.make ?description
              ?gatewayFilter:(Option.map ~f:Values.GatewayFilter.of_json
                                gatewayFilter) ?enableOnCreate ?clientToken
              ~name ~gatewayArn
              ~variants:(Values.VariantList.of_json variants)
              ~evaluationConfig:(Values.ABTestEvaluationConfig.of_json
                                   evaluationConfig) ~roleArn ())
           (Some Values.CreateABTestResponse.to_json)
           (Some Values.CreateABTestResponse.error_to_json)])
let create_event =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and sessionId =
         flag "session-id" (optional string) ~doc:"STRING SessionId"
       and branch = flag "branch" (optional json_arg) ~doc:"JSON Branch"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING String"
       and metadata =
         flag "metadata" (optional json_arg) ~doc:"JSON MetadataMap"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and actorId = flag "actor-id" (required string) ~doc:"STRING ActorId"
       and eventTimestamp =
         flag "event-timestamp" (required json_arg) ~doc:"JSON Timestamp"
       and payload =
         flag "payload" (required json_arg) ~doc:"JSON PayloadTypeList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_event
           (Values.CreateEventInput.make ?sessionId
              ?branch:(Option.map ~f:Values.Branch.of_json branch)
              ?clientToken
              ?metadata:(Option.map ~f:Values.MetadataMap.of_json metadata)
              ~memoryId ~actorId
              ~eventTimestamp:(Values.Timestamp.of_json eventTimestamp)
              ~payload:(Values.PayloadTypeList.of_json payload) ())
           (Some Values.CreateEventOutput.to_json)
           (Some Values.CreateEventOutput.error_to_json)])
let create_payment_instrument =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentConnectorId =
         flag "payment-connector-id" (required string)
           ~doc:"STRING PaymentConnectorId"
       and paymentInstrumentType =
         flag "payment-instrument-type" (required json_arg)
           ~doc:"JSON PaymentInstrumentType"
       and paymentInstrumentDetails =
         flag "payment-instrument-details" (required json_arg)
           ~doc:"JSON PaymentInstrumentDetails" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_payment_instrument
           (Values.CreatePaymentInstrumentRequest.make ?userId ?agentName
              ?clientToken ~paymentManagerArn ~paymentConnectorId
              ~paymentInstrumentType:(Values.PaymentInstrumentType.of_json
                                        paymentInstrumentType)
              ~paymentInstrumentDetails:(Values.PaymentInstrumentDetails.of_json
                                           paymentInstrumentDetails) ())
           (Some Values.CreatePaymentInstrumentResponse.to_json)
           (Some Values.CreatePaymentInstrumentResponse.error_to_json)])
let create_payment_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and limits =
         flag "limits" (optional json_arg) ~doc:"JSON SessionLimits"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and expiryTimeInMinutes =
         flag "expiry-time-in-minutes" (required int)
           ~doc:"INT CreatePaymentSessionRequestExpiryTimeInMinutesInteger" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_payment_session
           (Values.CreatePaymentSessionRequest.make ?userId ?agentName
              ?limits:(Option.map ~f:Values.SessionLimits.of_json limits)
              ?clientToken ~paymentManagerArn ~expiryTimeInMinutes ())
           (Some Values.CreatePaymentSessionResponse.to_json)
           (Some Values.CreatePaymentSessionResponse.error_to_json)])
let delete_a_b_test =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and abTestId =
         flag "ab-test-id" (required string) ~doc:"STRING ABTestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_a_b_test (Values.DeleteABTestRequest.make ~abTestId ())
           (Some Values.DeleteABTestResponse.to_json)
           (Some Values.DeleteABTestResponse.error_to_json)])
let delete_batch_evaluation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and batchEvaluationId =
         flag "batch-evaluation-id" (required string)
           ~doc:"STRING BatchEvaluationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_batch_evaluation
           (Values.DeleteBatchEvaluationRequest.make ~batchEvaluationId ())
           (Some Values.DeleteBatchEvaluationResponse.to_json)
           (Some Values.DeleteBatchEvaluationResponse.error_to_json)])
let delete_event =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING SessionId"
       and eventId = flag "event-id" (required string) ~doc:"STRING EventId"
       and actorId = flag "actor-id" (required string) ~doc:"STRING ActorId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_event
           (Values.DeleteEventInput.make ~memoryId ~sessionId ~eventId
              ~actorId ()) (Some Values.DeleteEventOutput.to_json)
           (Some Values.DeleteEventOutput.error_to_json)])
let delete_memory_record =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and memoryRecordId =
         flag "memory-record-id" (required string)
           ~doc:"STRING MemoryRecordId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_memory_record
           (Values.DeleteMemoryRecordInput.make ~memoryId ~memoryRecordId ())
           (Some Values.DeleteMemoryRecordOutput.to_json)
           (Some Values.DeleteMemoryRecordOutput.error_to_json)])
let delete_payment_instrument =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentConnectorId =
         flag "payment-connector-id" (required string)
           ~doc:"STRING PaymentConnectorId"
       and paymentInstrumentId =
         flag "payment-instrument-id" (required string)
           ~doc:"STRING PaymentInstrumentId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_payment_instrument
           (Values.DeletePaymentInstrumentRequest.make ?userId
              ~paymentManagerArn ~paymentConnectorId ~paymentInstrumentId ())
           (Some Values.DeletePaymentInstrumentResponse.to_json)
           (Some Values.DeletePaymentInstrumentResponse.error_to_json)])
let delete_payment_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentSessionId =
         flag "payment-session-id" (required string)
           ~doc:"STRING PaymentSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_payment_session
           (Values.DeletePaymentSessionRequest.make ?userId
              ~paymentManagerArn ~paymentSessionId ())
           (Some Values.DeletePaymentSessionResponse.to_json)
           (Some Values.DeletePaymentSessionResponse.error_to_json)])
let delete_recommendation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and recommendationId =
         flag "recommendation-id" (required string)
           ~doc:"STRING RecommendationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_recommendation
           (Values.DeleteRecommendationRequest.make ~recommendationId ())
           (Some Values.DeleteRecommendationResponse.to_json)
           (Some Values.DeleteRecommendationResponse.error_to_json)])
let evaluate =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and evaluationTarget =
         flag "evaluation-target" (optional json_arg)
           ~doc:"JSON EvaluationTarget"
       and evaluationReferenceInputs =
         flag "evaluation-reference-inputs" (optional json_arg)
           ~doc:"JSON EvaluationReferenceInputs"
       and evaluatorId =
         flag "evaluator-id" (required string) ~doc:"STRING EvaluatorId"
       and evaluationInput =
         flag "evaluation-input" (required json_arg)
           ~doc:"JSON EvaluationInput" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.evaluate
           (Values.EvaluateRequest.make
              ?evaluationTarget:(Option.map
                                   ~f:Values.EvaluationTarget.of_json
                                   evaluationTarget)
              ?evaluationReferenceInputs:(Option.map
                                            ~f:Values.EvaluationReferenceInputs.of_json
                                            evaluationReferenceInputs)
              ~evaluatorId
              ~evaluationInput:(Values.EvaluationInput.of_json
                                  evaluationInput) ())
           (Some Values.EvaluateResponse.to_json)
           (Some Values.EvaluateResponse.error_to_json)])
let get_a_b_test =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and abTestId =
         flag "ab-test-id" (required string) ~doc:"STRING ABTestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_a_b_test (Values.GetABTestRequest.make ~abTestId ())
           (Some Values.GetABTestResponse.to_json)
           (Some Values.GetABTestResponse.error_to_json)])
let get_agent_card =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and runtimeSessionId =
         flag "runtime-session-id" (optional string)
           ~doc:"STRING SessionType"
       and qualifier =
         flag "qualifier" (optional string) ~doc:"STRING String"
       and agentRuntimeArn =
         flag "agent-runtime-arn" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_agent_card
           (Values.GetAgentCardRequest.make ?runtimeSessionId ?qualifier
              ~agentRuntimeArn ()) (Some Values.GetAgentCardResponse.to_json)
           (Some Values.GetAgentCardResponse.error_to_json)])
let get_batch_evaluation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and batchEvaluationId =
         flag "batch-evaluation-id" (required string)
           ~doc:"STRING BatchEvaluationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_batch_evaluation
           (Values.GetBatchEvaluationRequest.make ~batchEvaluationId ())
           (Some Values.GetBatchEvaluationResponse.to_json)
           (Some Values.GetBatchEvaluationResponse.error_to_json)])
let get_browser_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING BrowserSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_browser_session
           (Values.GetBrowserSessionRequest.make ~browserIdentifier
              ~sessionId ()) (Some Values.GetBrowserSessionResponse.to_json)
           (Some Values.GetBrowserSessionResponse.error_to_json)])
let get_code_interpreter_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and codeInterpreterIdentifier =
         flag "code-interpreter-identifier" (required string)
           ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string)
           ~doc:"STRING CodeInterpreterSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_code_interpreter_session
           (Values.GetCodeInterpreterSessionRequest.make
              ~codeInterpreterIdentifier ~sessionId ())
           (Some Values.GetCodeInterpreterSessionResponse.to_json)
           (Some Values.GetCodeInterpreterSessionResponse.error_to_json)])
let get_event =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING SessionId"
       and actorId = flag "actor-id" (required string) ~doc:"STRING ActorId"
       and eventId = flag "event-id" (required string) ~doc:"STRING EventId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_event
           (Values.GetEventInput.make ~memoryId ~sessionId ~actorId ~eventId
              ()) (Some Values.GetEventOutput.to_json)
           (Some Values.GetEventOutput.error_to_json)])
let get_memory_record =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and memoryRecordId =
         flag "memory-record-id" (required string)
           ~doc:"STRING MemoryRecordId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_memory_record
           (Values.GetMemoryRecordInput.make ~memoryId ~memoryRecordId ())
           (Some Values.GetMemoryRecordOutput.to_json)
           (Some Values.GetMemoryRecordOutput.error_to_json)])
let get_payment_instrument =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and paymentConnectorId =
         flag "payment-connector-id" (optional string)
           ~doc:"STRING PaymentConnectorId"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentInstrumentId =
         flag "payment-instrument-id" (required string)
           ~doc:"STRING PaymentInstrumentId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_payment_instrument
           (Values.GetPaymentInstrumentRequest.make ?userId ?agentName
              ?paymentConnectorId ~paymentManagerArn ~paymentInstrumentId ())
           (Some Values.GetPaymentInstrumentResponse.to_json)
           (Some Values.GetPaymentInstrumentResponse.error_to_json)])
let get_payment_instrument_balance =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentConnectorId =
         flag "payment-connector-id" (required string)
           ~doc:"STRING PaymentConnectorId"
       and paymentInstrumentId =
         flag "payment-instrument-id" (required string)
           ~doc:"STRING PaymentInstrumentId"
       and chain =
         flag "chain" (required json_arg) ~doc:"JSON BlockchainChainId"
       and token =
         flag "token" (required json_arg) ~doc:"JSON InstrumentBalanceToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_payment_instrument_balance
           (Values.GetPaymentInstrumentBalanceRequest.make ?userId ?agentName
              ~paymentManagerArn ~paymentConnectorId ~paymentInstrumentId
              ~chain:(Values.BlockchainChainId.of_json chain)
              ~token:(Values.InstrumentBalanceToken.of_json token) ())
           (Some Values.GetPaymentInstrumentBalanceResponse.to_json)
           (Some Values.GetPaymentInstrumentBalanceResponse.error_to_json)])
let get_payment_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentSessionId =
         flag "payment-session-id" (required string)
           ~doc:"STRING PaymentSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_payment_session
           (Values.GetPaymentSessionRequest.make ?userId ?agentName
              ~paymentManagerArn ~paymentSessionId ())
           (Some Values.GetPaymentSessionResponse.to_json)
           (Some Values.GetPaymentSessionResponse.error_to_json)])
let get_recommendation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and recommendationId =
         flag "recommendation-id" (required string)
           ~doc:"STRING RecommendationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_recommendation
           (Values.GetRecommendationRequest.make ~recommendationId ())
           (Some Values.GetRecommendationResponse.to_json)
           (Some Values.GetRecommendationResponse.error_to_json)])
let get_resource_api_key =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and workloadIdentityToken =
         flag "workload-identity-token" (required string)
           ~doc:"STRING WorkloadIdentityTokenType"
       and resourceCredentialProviderName =
         flag "resource-credential-provider-name" (required string)
           ~doc:"STRING CredentialProviderName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_api_key
           (Values.GetResourceApiKeyRequest.make ~workloadIdentityToken
              ~resourceCredentialProviderName ())
           (Some Values.GetResourceApiKeyResponse.to_json)
           (Some Values.GetResourceApiKeyResponse.error_to_json)])
let get_resource_oauth2_token =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and sessionUri =
         flag "session-uri" (optional string) ~doc:"STRING RequestUri"
       and resourceOauth2ReturnUrl =
         flag "resource-oauth2-return-url" (optional string)
           ~doc:"STRING ResourceOauth2ReturnUrlType"
       and forceAuthentication =
         flag "force-authentication" (optional bool) ~doc:"BOOL Boolean"
       and customParameters =
         flag "custom-parameters" (optional json_arg)
           ~doc:"JSON CustomRequestParametersType"
       and customState =
         flag "custom-state" (optional string) ~doc:"STRING State"
       and resources =
         flag "resources" (optional json_arg) ~doc:"JSON ResourcesListType"
       and audiences =
         flag "audiences" (optional json_arg) ~doc:"JSON AudiencesListType"
       and workloadIdentityToken =
         flag "workload-identity-token" (required string)
           ~doc:"STRING WorkloadIdentityTokenType"
       and resourceCredentialProviderName =
         flag "resource-credential-provider-name" (required string)
           ~doc:"STRING CredentialProviderName"
       and scopes =
         flag "scopes" (required json_arg) ~doc:"JSON ScopesListType"
       and oauth2Flow =
         flag "oauth2-flow" (required json_arg) ~doc:"JSON Oauth2FlowType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_oauth2_token
           (Values.GetResourceOauth2TokenRequest.make ?sessionUri
              ?resourceOauth2ReturnUrl ?forceAuthentication
              ?customParameters:(Option.map
                                   ~f:Values.CustomRequestParametersType.of_json
                                   customParameters) ?customState
              ?resources:(Option.map ~f:Values.ResourcesListType.of_json
                            resources)
              ?audiences:(Option.map ~f:Values.AudiencesListType.of_json
                            audiences) ~workloadIdentityToken
              ~resourceCredentialProviderName
              ~scopes:(Values.ScopesListType.of_json scopes)
              ~oauth2Flow:(Values.Oauth2FlowType.of_json oauth2Flow) ())
           (Some Values.GetResourceOauth2TokenResponse.to_json)
           (Some Values.GetResourceOauth2TokenResponse.error_to_json)])
let get_resource_payment_token =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and workloadIdentityToken =
         flag "workload-identity-token" (required string)
           ~doc:"STRING WorkloadIdentityTokenType"
       and resourceCredentialProviderName =
         flag "resource-credential-provider-name" (required string)
           ~doc:"STRING CredentialProviderName"
       and paymentTokenRequest =
         flag "payment-token-request" (required json_arg)
           ~doc:"JSON PaymentTokenRequestInput" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_payment_token
           (Values.GetResourcePaymentTokenRequest.make ~workloadIdentityToken
              ~resourceCredentialProviderName
              ~paymentTokenRequest:(Values.PaymentTokenRequestInput.of_json
                                      paymentTokenRequest) ())
           (Some Values.GetResourcePaymentTokenResponse.to_json)
           (Some Values.GetResourcePaymentTokenResponse.error_to_json)])
let get_workload_access_token =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and workloadName =
         flag "workload-name" (required string)
           ~doc:"STRING WorkloadIdentityNameType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_workload_access_token
           (Values.GetWorkloadAccessTokenRequest.make ~workloadName ())
           (Some Values.GetWorkloadAccessTokenResponse.to_json)
           (Some Values.GetWorkloadAccessTokenResponse.error_to_json)])
let get_workload_access_token_for_j_w_t =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and workloadName =
         flag "workload-name" (required string)
           ~doc:"STRING WorkloadIdentityNameType"
       and userToken =
         flag "user-token" (required string) ~doc:"STRING UserTokenType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_workload_access_token_for_j_w_t
           (Values.GetWorkloadAccessTokenForJWTRequest.make ~workloadName
              ~userToken ())
           (Some Values.GetWorkloadAccessTokenForJWTResponse.to_json)
           (Some Values.GetWorkloadAccessTokenForJWTResponse.error_to_json)])
let get_workload_access_token_for_user_id =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and workloadName =
         flag "workload-name" (required string)
           ~doc:"STRING WorkloadIdentityNameType"
       and userId = flag "user-id" (required string) ~doc:"STRING UserIdType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_workload_access_token_for_user_id
           (Values.GetWorkloadAccessTokenForUserIdRequest.make ~workloadName
              ~userId ())
           (Some Values.GetWorkloadAccessTokenForUserIdResponse.to_json)
           (Some Values.GetWorkloadAccessTokenForUserIdResponse.error_to_json)])
let invoke_agent_runtime =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and contentType =
         flag "content-type" (optional string) ~doc:"STRING MimeType"
       and accept = flag "accept" (optional string) ~doc:"STRING MimeType"
       and mcpSessionId =
         flag "mcp-session-id" (optional string) ~doc:"STRING StringType"
       and runtimeSessionId =
         flag "runtime-session-id" (optional string)
           ~doc:"STRING SessionType"
       and mcpProtocolVersion =
         flag "mcp-protocol-version" (optional string)
           ~doc:"STRING StringType"
       and runtimeUserId =
         flag "runtime-user-id" (optional string) ~doc:"STRING StringType"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING InvokeAgentRuntimeRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING InvokeAgentRuntimeRequestTraceParentString"
       and traceState =
         flag "trace-state" (optional string)
           ~doc:"STRING InvokeAgentRuntimeRequestTraceStateString"
       and baggage =
         flag "baggage" (optional string)
           ~doc:"STRING InvokeAgentRuntimeRequestBaggageString"
       and qualifier =
         flag "qualifier" (optional string) ~doc:"STRING String"
       and accountId =
         flag "account-id" (optional string)
           ~doc:"STRING InvokeAgentRuntimeRequestAccountIdString"
       and agentRuntimeArn =
         flag "agent-runtime-arn" (required string) ~doc:"STRING String"
       and payload = flag "payload" (required json_arg) ~doc:"JSON Body" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.invoke_agent_runtime
           (Values.InvokeAgentRuntimeRequest.make ?contentType ?accept
              ?mcpSessionId ?runtimeSessionId ?mcpProtocolVersion
              ?runtimeUserId ?traceId ?traceParent ?traceState ?baggage
              ?qualifier ?accountId ~agentRuntimeArn
              ~payload:(Values.Body.of_json payload) ())
           (Some Values.InvokeAgentRuntimeResponse.to_json)
           (Some Values.InvokeAgentRuntimeResponse.error_to_json)])
let invoke_agent_runtime_command =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and contentType =
         flag "content-type" (optional string) ~doc:"STRING MimeType"
       and accept = flag "accept" (optional string) ~doc:"STRING MimeType"
       and runtimeSessionId =
         flag "runtime-session-id" (optional string)
           ~doc:"STRING SessionType"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING InvokeAgentRuntimeCommandRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING InvokeAgentRuntimeCommandRequestTraceParentString"
       and traceState =
         flag "trace-state" (optional string)
           ~doc:"STRING InvokeAgentRuntimeCommandRequestTraceStateString"
       and baggage =
         flag "baggage" (optional string)
           ~doc:"STRING InvokeAgentRuntimeCommandRequestBaggageString"
       and qualifier =
         flag "qualifier" (optional string) ~doc:"STRING String"
       and accountId =
         flag "account-id" (optional string)
           ~doc:"STRING InvokeAgentRuntimeCommandRequestAccountIdString"
       and agentRuntimeArn =
         flag "agent-runtime-arn" (required string) ~doc:"STRING String"
       and body =
         flag "body" (required json_arg)
           ~doc:"JSON InvokeAgentRuntimeCommandRequestBody" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.invoke_agent_runtime_command
           (Values.InvokeAgentRuntimeCommandRequest.make ?contentType ?accept
              ?runtimeSessionId ?traceId ?traceParent ?traceState ?baggage
              ?qualifier ?accountId ~agentRuntimeArn
              ~body:(Values.InvokeAgentRuntimeCommandRequestBody.of_json body)
              ()) (Some Values.InvokeAgentRuntimeCommandResponse.to_json)
           (Some Values.InvokeAgentRuntimeCommandResponse.error_to_json)])
let invoke_browser =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING BrowserSessionId"
       and action =
         flag "action" (required json_arg) ~doc:"JSON BrowserAction" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.invoke_browser
           (Values.InvokeBrowserRequest.make ~browserIdentifier ~sessionId
              ~action:(Values.BrowserAction.of_json action) ())
           (Some Values.InvokeBrowserResponse.to_json)
           (Some Values.InvokeBrowserResponse.error_to_json)])
let invoke_code_interpreter =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and sessionId =
         flag "session-id" (optional string)
           ~doc:"STRING CodeInterpreterSessionId"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING InvokeCodeInterpreterRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING InvokeCodeInterpreterRequestTraceParentString"
       and arguments =
         flag "arguments" (optional json_arg) ~doc:"JSON ToolArguments"
       and codeInterpreterIdentifier =
         flag "code-interpreter-identifier" (required string)
           ~doc:"STRING String"
       and name = flag "name" (required json_arg) ~doc:"JSON ToolName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.invoke_code_interpreter
           (Values.InvokeCodeInterpreterRequest.make ?sessionId ?traceId
              ?traceParent
              ?arguments:(Option.map ~f:Values.ToolArguments.of_json
                            arguments) ~codeInterpreterIdentifier
              ~name:(Values.ToolName.of_json name) ())
           (Some Values.InvokeCodeInterpreterResponse.to_json)
           (Some Values.InvokeCodeInterpreterResponse.error_to_json)])
let invoke_harness =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and model =
         flag "model" (optional json_arg)
           ~doc:"JSON HarnessModelConfiguration"
       and systemPrompt =
         flag "system-prompt" (optional json_arg)
           ~doc:"JSON HarnessSystemPrompt"
       and tools = flag "tools" (optional json_arg) ~doc:"JSON HarnessTools"
       and skills =
         flag "skills" (optional json_arg) ~doc:"JSON HarnessSkills"
       and allowedTools =
         flag "allowed-tools" (optional json_arg)
           ~doc:"JSON HarnessAllowedTools"
       and maxIterations =
         flag "max-iterations" (optional int) ~doc:"INT Integer"
       and maxTokens = flag "max-tokens" (optional int) ~doc:"INT Integer"
       and timeoutSeconds =
         flag "timeout-seconds" (optional int) ~doc:"INT Integer"
       and actorId = flag "actor-id" (optional string) ~doc:"STRING String"
       and harnessArn =
         flag "harness-arn" (required string) ~doc:"STRING HarnessArn"
       and runtimeSessionId =
         flag "runtime-session-id" (required string) ~doc:"STRING SessionId"
       and messages =
         flag "messages" (required json_arg) ~doc:"JSON HarnessMessages" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.invoke_harness
           (Values.InvokeHarnessRequest.make
              ?model:(Option.map ~f:Values.HarnessModelConfiguration.of_json
                        model)
              ?systemPrompt:(Option.map ~f:Values.HarnessSystemPrompt.of_json
                               systemPrompt)
              ?tools:(Option.map ~f:Values.HarnessTools.of_json tools)
              ?skills:(Option.map ~f:Values.HarnessSkills.of_json skills)
              ?allowedTools:(Option.map ~f:Values.HarnessAllowedTools.of_json
                               allowedTools) ?maxIterations ?maxTokens
              ?timeoutSeconds ?actorId ~harnessArn ~runtimeSessionId
              ~messages:(Values.HarnessMessages.of_json messages) ())
           (Some Values.InvokeHarnessResponse.to_json)
           (Some Values.InvokeHarnessResponse.error_to_json)])
let list_a_b_tests =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int)
           ~doc:"INT ListABTestsRequestMaxResultsInteger"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_a_b_tests
           (Values.ListABTestsRequest.make ?maxResults ?nextToken ())
           (Some Values.ListABTestsResponse.to_json)
           (Some Values.ListABTestsResponse.error_to_json)])
let list_actors =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_actors
           (Values.ListActorsInput.make ?maxResults ?nextToken ~memoryId ())
           (Some Values.ListActorsOutput.to_json)
           (Some Values.ListActorsOutput.error_to_json)])
let list_batch_evaluations =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int)
           ~doc:"INT ListBatchEvaluationsRequestMaxResultsInteger"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_batch_evaluations
           (Values.ListBatchEvaluationsRequest.make ?maxResults ?nextToken ())
           (Some Values.ListBatchEvaluationsResponse.to_json)
           (Some Values.ListBatchEvaluationsResponse.error_to_json)])
let list_browser_sessions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and status =
         flag "status" (optional json_arg) ~doc:"JSON BrowserSessionStatus"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_browser_sessions
           (Values.ListBrowserSessionsRequest.make ?maxResults ?nextToken
              ?status:(Option.map ~f:Values.BrowserSessionStatus.of_json
                         status) ~browserIdentifier ())
           (Some Values.ListBrowserSessionsResponse.to_json)
           (Some Values.ListBrowserSessionsResponse.error_to_json)])
let list_code_interpreter_sessions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and status =
         flag "status" (optional json_arg)
           ~doc:"JSON CodeInterpreterSessionStatus"
       and codeInterpreterIdentifier =
         flag "code-interpreter-identifier" (required string)
           ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_code_interpreter_sessions
           (Values.ListCodeInterpreterSessionsRequest.make ?maxResults
              ?nextToken
              ?status:(Option.map
                         ~f:Values.CodeInterpreterSessionStatus.of_json
                         status) ~codeInterpreterIdentifier ())
           (Some Values.ListCodeInterpreterSessionsResponse.to_json)
           (Some Values.ListCodeInterpreterSessionsResponse.error_to_json)])
let list_events =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and includePayloads =
         flag "include-payloads" (optional bool) ~doc:"BOOL Boolean"
       and filter = flag "filter" (optional json_arg) ~doc:"JSON FilterInput"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING SessionId"
       and actorId = flag "actor-id" (required string) ~doc:"STRING ActorId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_events
           (Values.ListEventsInput.make ?includePayloads
              ?filter:(Option.map ~f:Values.FilterInput.of_json filter)
              ?maxResults ?nextToken ~memoryId ~sessionId ~actorId ())
           (Some Values.ListEventsOutput.to_json)
           (Some Values.ListEventsOutput.error_to_json)])
let list_memory_extraction_jobs =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int)
           ~doc:"INT ListMemoryExtractionJobsInputMaxResultsInteger"
       and filter =
         flag "filter" (optional json_arg)
           ~doc:"JSON ExtractionJobFilterInput"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_memory_extraction_jobs
           (Values.ListMemoryExtractionJobsInput.make ?maxResults
              ?filter:(Option.map ~f:Values.ExtractionJobFilterInput.of_json
                         filter) ?nextToken ~memoryId ())
           (Some Values.ListMemoryExtractionJobsOutput.to_json)
           (Some Values.ListMemoryExtractionJobsOutput.error_to_json)])
let list_memory_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and namespace =
         flag "namespace" (optional string) ~doc:"STRING Namespace"
       and namespacePath =
         flag "namespace-path" (optional string) ~doc:"STRING Namespace"
       and memoryStrategyId =
         flag "memory-strategy-id" (optional string)
           ~doc:"STRING MemoryStrategyId"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and metadataFilters =
         flag "metadata-filters" (optional json_arg)
           ~doc:"JSON MemoryMetadataFilterList"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_memory_records
           (Values.ListMemoryRecordsInput.make ?namespace ?namespacePath
              ?memoryStrategyId ?maxResults ?nextToken
              ?metadataFilters:(Option.map
                                  ~f:Values.MemoryMetadataFilterList.of_json
                                  metadataFilters) ~memoryId ())
           (Some Values.ListMemoryRecordsOutput.to_json)
           (Some Values.ListMemoryRecordsOutput.error_to_json)])
let list_payment_instruments =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and paymentConnectorId =
         flag "payment-connector-id" (optional string)
           ~doc:"STRING PaymentConnectorId"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults = flag "max-results" (optional int) ~doc:"INT Integer"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_payment_instruments
           (Values.ListPaymentInstrumentsRequest.make ?userId ?agentName
              ?paymentConnectorId ?nextToken ?maxResults ~paymentManagerArn
              ()) (Some Values.ListPaymentInstrumentsResponse.to_json)
           (Some Values.ListPaymentInstrumentsResponse.error_to_json)])
let list_payment_sessions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults = flag "max-results" (optional int) ~doc:"INT Integer"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_payment_sessions
           (Values.ListPaymentSessionsRequest.make ?userId ?agentName
              ?nextToken ?maxResults ~paymentManagerArn ())
           (Some Values.ListPaymentSessionsResponse.to_json)
           (Some Values.ListPaymentSessionsResponse.error_to_json)])
let list_recommendations =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int)
           ~doc:"INT ListRecommendationsRequestMaxResultsInteger"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and statusFilter =
         flag "status-filter" (optional json_arg)
           ~doc:"JSON RecommendationStatus" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_recommendations
           (Values.ListRecommendationsRequest.make ?maxResults ?nextToken
              ?statusFilter:(Option.map
                               ~f:Values.RecommendationStatus.of_json
                               statusFilter) ())
           (Some Values.ListRecommendationsResponse.to_json)
           (Some Values.ListRecommendationsResponse.error_to_json)])
let list_sessions =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and filter =
         flag "filter" (optional json_arg) ~doc:"JSON SessionFilter"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and actorId = flag "actor-id" (required string) ~doc:"STRING ActorId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_sessions
           (Values.ListSessionsInput.make ?maxResults ?nextToken
              ?filter:(Option.map ~f:Values.SessionFilter.of_json filter)
              ~memoryId ~actorId ()) (Some Values.ListSessionsOutput.to_json)
           (Some Values.ListSessionsOutput.error_to_json)])
let process_payment =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and userId = flag "user-id" (optional string) ~doc:"STRING UserId"
       and agentName =
         flag "agent-name" (optional string) ~doc:"STRING PaymentAgentName"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and paymentManagerArn =
         flag "payment-manager-arn" (required string)
           ~doc:"STRING PaymentManagerArn"
       and paymentSessionId =
         flag "payment-session-id" (required string)
           ~doc:"STRING PaymentSessionId"
       and paymentInstrumentId =
         flag "payment-instrument-id" (required string)
           ~doc:"STRING PaymentInstrumentId"
       and paymentType =
         flag "payment-type" (required json_arg) ~doc:"JSON PaymentType"
       and paymentInput =
         flag "payment-input" (required json_arg) ~doc:"JSON PaymentInput" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.process_payment
           (Values.ProcessPaymentRequest.make ?userId ?agentName ?clientToken
              ~paymentManagerArn ~paymentSessionId ~paymentInstrumentId
              ~paymentType:(Values.PaymentType.of_json paymentType)
              ~paymentInput:(Values.PaymentInput.of_json paymentInput) ())
           (Some Values.ProcessPaymentResponse.to_json)
           (Some Values.ProcessPaymentResponse.error_to_json)])
let retrieve_memory_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and namespace =
         flag "namespace" (optional string) ~doc:"STRING Namespace"
       and namespacePath =
         flag "namespace-path" (optional string) ~doc:"STRING Namespace"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING PaginationToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and searchCriteria =
         flag "search-criteria" (required json_arg)
           ~doc:"JSON SearchCriteria" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.retrieve_memory_records
           (Values.RetrieveMemoryRecordsInput.make ?namespace ?namespacePath
              ?nextToken ?maxResults ~memoryId
              ~searchCriteria:(Values.SearchCriteria.of_json searchCriteria)
              ()) (Some Values.RetrieveMemoryRecordsOutput.to_json)
           (Some Values.RetrieveMemoryRecordsOutput.error_to_json)])
let save_browser_session_profile =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING SaveBrowserSessionProfileRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING SaveBrowserSessionProfileRequestTraceParentString"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and profileIdentifier =
         flag "profile-identifier" (required string)
           ~doc:"STRING BrowserProfileId"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING BrowserSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.save_browser_session_profile
           (Values.SaveBrowserSessionProfileRequest.make ?traceId
              ?traceParent ?clientToken ~profileIdentifier ~browserIdentifier
              ~sessionId ())
           (Some Values.SaveBrowserSessionProfileResponse.to_json)
           (Some Values.SaveBrowserSessionProfileResponse.error_to_json)])
let search_registry_records =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int)
           ~doc:"INT SearchRegistryRecordsRequestMaxResultsInteger"
       and filters =
         flag "filters" (optional json_arg)
           ~doc:"JSON MetadataFilterExpression"
       and searchQuery =
         flag "search-query" (required string)
           ~doc:"STRING SearchRegistryRecordsRequestSearchQueryString"
       and registryIds =
         flag "registry-ids" (required json_arg)
           ~doc:"JSON SearchRegistryRecordsRequestRegistryIdsList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.search_registry_records
           (Values.SearchRegistryRecordsRequest.make ?maxResults
              ?filters:(Option.map ~f:Values.MetadataFilterExpression.of_json
                          filters) ~searchQuery
              ~registryIds:(Values.SearchRegistryRecordsRequestRegistryIdsList.of_json
                              registryIds) ())
           (Some Values.SearchRegistryRecordsResponse.to_json)
           (Some Values.SearchRegistryRecordsResponse.error_to_json)])
let start_batch_evaluation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and evaluators =
         flag "evaluators" (optional json_arg)
           ~doc:"JSON StartBatchEvaluationRequestEvaluatorsList"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and evaluationMetadata =
         flag "evaluation-metadata" (optional json_arg)
           ~doc:"JSON EvaluationMetadata"
       and description =
         flag "description" (optional string)
           ~doc:"STRING BatchEvaluationDescription"
       and batchEvaluationName =
         flag "batch-evaluation-name" (required string)
           ~doc:"STRING BatchEvaluationName"
       and dataSourceConfig =
         flag "data-source-config" (required json_arg)
           ~doc:"JSON DataSourceConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_batch_evaluation
           (Values.StartBatchEvaluationRequest.make
              ?evaluators:(Option.map
                             ~f:Values.StartBatchEvaluationRequestEvaluatorsList.of_json
                             evaluators) ?clientToken
              ?evaluationMetadata:(Option.map
                                     ~f:Values.EvaluationMetadata.of_json
                                     evaluationMetadata) ?description
              ~batchEvaluationName
              ~dataSourceConfig:(Values.DataSourceConfig.of_json
                                   dataSourceConfig) ())
           (Some Values.StartBatchEvaluationResponse.to_json)
           (Some Values.StartBatchEvaluationResponse.error_to_json)])
let start_browser_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING StartBrowserSessionRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING StartBrowserSessionRequestTraceParentString"
       and name = flag "name" (optional string) ~doc:"STRING Name"
       and sessionTimeoutSeconds =
         flag "session-timeout-seconds" (optional int)
           ~doc:"INT BrowserSessionTimeout"
       and viewPort =
         flag "view-port" (optional json_arg) ~doc:"JSON ViewPort"
       and extensions =
         flag "extensions" (optional json_arg) ~doc:"JSON BrowserExtensions"
       and profileConfiguration =
         flag "profile-configuration" (optional json_arg)
           ~doc:"JSON BrowserProfileConfiguration"
       and proxyConfiguration =
         flag "proxy-configuration" (optional json_arg)
           ~doc:"JSON ProxyConfiguration"
       and enterprisePolicies =
         flag "enterprise-policies" (optional json_arg)
           ~doc:"JSON BrowserEnterprisePolicies"
       and certificates =
         flag "certificates" (optional json_arg) ~doc:"JSON Certificates"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_browser_session
           (Values.StartBrowserSessionRequest.make ?traceId ?traceParent
              ?name ?sessionTimeoutSeconds
              ?viewPort:(Option.map ~f:Values.ViewPort.of_json viewPort)
              ?extensions:(Option.map ~f:Values.BrowserExtensions.of_json
                             extensions)
              ?profileConfiguration:(Option.map
                                       ~f:Values.BrowserProfileConfiguration.of_json
                                       profileConfiguration)
              ?proxyConfiguration:(Option.map
                                     ~f:Values.ProxyConfiguration.of_json
                                     proxyConfiguration)
              ?enterprisePolicies:(Option.map
                                     ~f:Values.BrowserEnterprisePolicies.of_json
                                     enterprisePolicies)
              ?certificates:(Option.map ~f:Values.Certificates.of_json
                               certificates) ?clientToken ~browserIdentifier
              ()) (Some Values.StartBrowserSessionResponse.to_json)
           (Some Values.StartBrowserSessionResponse.error_to_json)])
let start_code_interpreter_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING StartCodeInterpreterSessionRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING StartCodeInterpreterSessionRequestTraceParentString"
       and name = flag "name" (optional string) ~doc:"STRING Name"
       and sessionTimeoutSeconds =
         flag "session-timeout-seconds" (optional int)
           ~doc:"INT CodeInterpreterSessionTimeout"
       and certificates =
         flag "certificates" (optional json_arg) ~doc:"JSON Certificates"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and codeInterpreterIdentifier =
         flag "code-interpreter-identifier" (required string)
           ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_code_interpreter_session
           (Values.StartCodeInterpreterSessionRequest.make ?traceId
              ?traceParent ?name ?sessionTimeoutSeconds
              ?certificates:(Option.map ~f:Values.Certificates.of_json
                               certificates) ?clientToken
              ~codeInterpreterIdentifier ())
           (Some Values.StartCodeInterpreterSessionResponse.to_json)
           (Some Values.StartCodeInterpreterSessionResponse.error_to_json)])
let start_memory_extraction_job =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING String"
       and memoryId =
         flag "memory-id" (required string) ~doc:"STRING MemoryId"
       and extractionJob =
         flag "extraction-job" (required json_arg) ~doc:"JSON ExtractionJob" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_memory_extraction_job
           (Values.StartMemoryExtractionJobInput.make ?clientToken ~memoryId
              ~extractionJob:(Values.ExtractionJob.of_json extractionJob) ())
           (Some Values.StartMemoryExtractionJobOutput.to_json)
           (Some Values.StartMemoryExtractionJobOutput.error_to_json)])
let start_recommendation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and description =
         flag "description" (optional string)
           ~doc:"STRING RecommendationDescription"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and name =
         flag "name" (required string) ~doc:"STRING RecommendationName"
       and type_ =
         flag "type-" (required json_arg) ~doc:"JSON RecommendationType"
       and recommendationConfig =
         flag "recommendation-config" (required json_arg)
           ~doc:"JSON RecommendationConfig" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_recommendation
           (Values.StartRecommendationRequest.make ?description ?clientToken
              ~name ~type_:(Values.RecommendationType.of_json type_)
              ~recommendationConfig:(Values.RecommendationConfig.of_json
                                       recommendationConfig) ())
           (Some Values.StartRecommendationResponse.to_json)
           (Some Values.StartRecommendationResponse.error_to_json)])
let stop_batch_evaluation =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and batchEvaluationId =
         flag "batch-evaluation-id" (required string)
           ~doc:"STRING BatchEvaluationId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_batch_evaluation
           (Values.StopBatchEvaluationRequest.make ~batchEvaluationId ())
           (Some Values.StopBatchEvaluationResponse.to_json)
           (Some Values.StopBatchEvaluationResponse.error_to_json)])
let stop_browser_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING StopBrowserSessionRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING StopBrowserSessionRequestTraceParentString"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING BrowserSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_browser_session
           (Values.StopBrowserSessionRequest.make ?traceId ?traceParent
              ?clientToken ~browserIdentifier ~sessionId ())
           (Some Values.StopBrowserSessionResponse.to_json)
           (Some Values.StopBrowserSessionResponse.error_to_json)])
let stop_code_interpreter_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and traceId =
         flag "trace-id" (optional string)
           ~doc:"STRING StopCodeInterpreterSessionRequestTraceIdString"
       and traceParent =
         flag "trace-parent" (optional string)
           ~doc:"STRING StopCodeInterpreterSessionRequestTraceParentString"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and codeInterpreterIdentifier =
         flag "code-interpreter-identifier" (required string)
           ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string)
           ~doc:"STRING CodeInterpreterSessionId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_code_interpreter_session
           (Values.StopCodeInterpreterSessionRequest.make ?traceId
              ?traceParent ?clientToken ~codeInterpreterIdentifier ~sessionId
              ()) (Some Values.StopCodeInterpreterSessionResponse.to_json)
           (Some Values.StopCodeInterpreterSessionResponse.error_to_json)])
let stop_runtime_session =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and qualifier =
         flag "qualifier" (optional string) ~doc:"STRING String"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and runtimeSessionId =
         flag "runtime-session-id" (required string)
           ~doc:"STRING SessionType"
       and agentRuntimeArn =
         flag "agent-runtime-arn" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_runtime_session
           (Values.StopRuntimeSessionRequest.make ?qualifier ?clientToken
              ~runtimeSessionId ~agentRuntimeArn ())
           (Some Values.StopRuntimeSessionResponse.to_json)
           (Some Values.StopRuntimeSessionResponse.error_to_json)])
let update_a_b_test =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and name = flag "name" (optional string) ~doc:"STRING ABTestName"
       and description =
         flag "description" (optional string) ~doc:"STRING ABTestDescription"
       and variants =
         flag "variants" (optional json_arg) ~doc:"JSON VariantList"
       and gatewayFilter =
         flag "gateway-filter" (optional json_arg) ~doc:"JSON GatewayFilter"
       and evaluationConfig =
         flag "evaluation-config" (optional json_arg)
           ~doc:"JSON ABTestEvaluationConfig"
       and roleArn = flag "role-arn" (optional string) ~doc:"STRING RoleArn"
       and executionStatus =
         flag "execution-status" (optional json_arg)
           ~doc:"JSON ABTestExecutionStatus"
       and abTestId =
         flag "ab-test-id" (required string) ~doc:"STRING ABTestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_a_b_test
           (Values.UpdateABTestRequest.make ?clientToken ?name ?description
              ?variants:(Option.map ~f:Values.VariantList.of_json variants)
              ?gatewayFilter:(Option.map ~f:Values.GatewayFilter.of_json
                                gatewayFilter)
              ?evaluationConfig:(Option.map
                                   ~f:Values.ABTestEvaluationConfig.of_json
                                   evaluationConfig) ?roleArn
              ?executionStatus:(Option.map
                                  ~f:Values.ABTestExecutionStatus.of_json
                                  executionStatus) ~abTestId ())
           (Some Values.UpdateABTestResponse.to_json)
           (Some Values.UpdateABTestResponse.error_to_json)])
let update_browser_stream =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and browserIdentifier =
         flag "browser-identifier" (required string) ~doc:"STRING String"
       and sessionId =
         flag "session-id" (required string) ~doc:"STRING BrowserSessionId"
       and streamUpdate =
         flag "stream-update" (required json_arg) ~doc:"JSON StreamUpdate" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_browser_stream
           (Values.UpdateBrowserStreamRequest.make ?clientToken
              ~browserIdentifier ~sessionId
              ~streamUpdate:(Values.StreamUpdate.of_json streamUpdate) ())
           (Some Values.UpdateBrowserStreamResponse.to_json)
           (Some Values.UpdateBrowserStreamResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("batch-create-memory-records", batch_create_memory_records);
    ("batch-delete-memory-records", batch_delete_memory_records);
    ("batch-update-memory-records", batch_update_memory_records);
    ("complete-resource-token-auth", complete_resource_token_auth);
    ("create-a-b-test", create_a_b_test);
    ("create-event", create_event);
    ("create-payment-instrument", create_payment_instrument);
    ("create-payment-session", create_payment_session);
    ("delete-a-b-test", delete_a_b_test);
    ("delete-batch-evaluation", delete_batch_evaluation);
    ("delete-event", delete_event);
    ("delete-memory-record", delete_memory_record);
    ("delete-payment-instrument", delete_payment_instrument);
    ("delete-payment-session", delete_payment_session);
    ("delete-recommendation", delete_recommendation);
    ("evaluate", evaluate);
    ("get-a-b-test", get_a_b_test);
    ("get-agent-card", get_agent_card);
    ("get-batch-evaluation", get_batch_evaluation);
    ("get-browser-session", get_browser_session);
    ("get-code-interpreter-session", get_code_interpreter_session);
    ("get-event", get_event);
    ("get-memory-record", get_memory_record);
    ("get-payment-instrument", get_payment_instrument);
    ("get-payment-instrument-balance", get_payment_instrument_balance);
    ("get-payment-session", get_payment_session);
    ("get-recommendation", get_recommendation);
    ("get-resource-api-key", get_resource_api_key);
    ("get-resource-oauth2-token", get_resource_oauth2_token);
    ("get-resource-payment-token", get_resource_payment_token);
    ("get-workload-access-token", get_workload_access_token);
    ("get-workload-access-token-for-j-w-t",
      get_workload_access_token_for_j_w_t);
    ("get-workload-access-token-for-user-id",
      get_workload_access_token_for_user_id);
    ("invoke-agent-runtime", invoke_agent_runtime);
    ("invoke-agent-runtime-command", invoke_agent_runtime_command);
    ("invoke-browser", invoke_browser);
    ("invoke-code-interpreter", invoke_code_interpreter);
    ("invoke-harness", invoke_harness);
    ("list-a-b-tests", list_a_b_tests);
    ("list-actors", list_actors);
    ("list-batch-evaluations", list_batch_evaluations);
    ("list-browser-sessions", list_browser_sessions);
    ("list-code-interpreter-sessions", list_code_interpreter_sessions);
    ("list-events", list_events);
    ("list-memory-extraction-jobs", list_memory_extraction_jobs);
    ("list-memory-records", list_memory_records);
    ("list-payment-instruments", list_payment_instruments);
    ("list-payment-sessions", list_payment_sessions);
    ("list-recommendations", list_recommendations);
    ("list-sessions", list_sessions);
    ("process-payment", process_payment);
    ("retrieve-memory-records", retrieve_memory_records);
    ("save-browser-session-profile", save_browser_session_profile);
    ("search-registry-records", search_registry_records);
    ("start-batch-evaluation", start_batch_evaluation);
    ("start-browser-session", start_browser_session);
    ("start-code-interpreter-session", start_code_interpreter_session);
    ("start-memory-extraction-job", start_memory_extraction_job);
    ("start-recommendation", start_recommendation);
    ("stop-batch-evaluation", stop_batch_evaluation);
    ("stop-browser-session", stop_browser_session);
    ("stop-code-interpreter-session", stop_code_interpreter_session);
    ("stop-runtime-session", stop_runtime_session);
    ("update-a-b-test", update_a_b_test);
    ("update-browser-stream", update_browser_stream)]