Source file io.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Awso_ssm
open Awso_async
module Io = Http.Io
let eval ?endpoint_url ?cfg endpoint input =
  Io.bind (Io.resolve_cfg cfg)
    (fun cfg ->
       let meth = Endpoints.method_of_endpoint endpoint in
       let uri = Endpoints.uri_of_endpoint endpoint input in
       Io.map
         (Io.call ?endpoint_url ~cfg ~service:Values.service meth
            (Endpoints.to_request endpoint input) uri)
         (fun resp_result -> Endpoints.of_response endpoint resp_result))
let add_tags_to_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AddTagsToResource input
let associate_ops_item_related_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.AssociateOpsItemRelatedItem input
let cancel_command ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelCommand input
let cancel_maintenance_window_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CancelMaintenanceWindowExecution input
let create_activation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateActivation input
let create_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAssociation input
let create_association_batch ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateAssociationBatch input
let create_document ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateDocument input
let create_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateMaintenanceWindow input
let create_ops_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateOpsItem input
let create_ops_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateOpsMetadata input
let create_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreatePatchBaseline input
let create_resource_data_sync ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.CreateResourceDataSync input
let delete_activation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteActivation input
let delete_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteAssociation input
let delete_document ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteDocument input
let delete_inventory ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteInventory input
let delete_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteMaintenanceWindow input
let delete_ops_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOpsItem input
let delete_ops_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteOpsMetadata input
let delete_parameter ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteParameter input
let delete_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteParameters input
let delete_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeletePatchBaseline input
let delete_resource_data_sync ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResourceDataSync input
let delete_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let deregister_managed_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterManagedInstance input
let deregister_patch_baseline_for_patch_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterPatchBaselineForPatchGroup
    input
let deregister_target_from_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterTargetFromMaintenanceWindow
    input
let deregister_task_from_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DeregisterTaskFromMaintenanceWindow input
let describe_activations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeActivations input
let describe_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssociation input
let describe_association_execution_targets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssociationExecutionTargets input
let describe_association_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAssociationExecutions input
let describe_automation_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAutomationExecutions input
let describe_automation_step_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAutomationStepExecutions input
let describe_available_patches ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeAvailablePatches input
let describe_document ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDocument input
let describe_document_permission ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeDocumentPermission input
let describe_effective_instance_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEffectiveInstanceAssociations
    input
let describe_effective_patches_for_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeEffectivePatchesForPatchBaseline
    input
let describe_instance_associations_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstanceAssociationsStatus input
let describe_instance_information ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstanceInformation input
let describe_instance_patch_states ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstancePatchStates input
let describe_instance_patch_states_for_patch_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstancePatchStatesForPatchGroup
    input
let describe_instance_patches ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstancePatches input
let describe_instance_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInstanceProperties input
let describe_inventory_deletions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeInventoryDeletions input
let describe_maintenance_window_execution_task_invocations ?endpoint_url ?cfg
  input =
  eval ?endpoint_url ?cfg
    Endpoints.DescribeMaintenanceWindowExecutionTaskInvocations input
let describe_maintenance_window_execution_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowExecutionTasks
    input
let describe_maintenance_window_executions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowExecutions input
let describe_maintenance_window_schedule ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowSchedule input
let describe_maintenance_window_targets ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowTargets input
let describe_maintenance_window_tasks ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowTasks input
let describe_maintenance_windows ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindows input
let describe_maintenance_windows_for_target ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeMaintenanceWindowsForTarget input
let describe_ops_items ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeOpsItems input
let describe_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeParameters input
let describe_patch_baselines ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePatchBaselines input
let describe_patch_group_state ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePatchGroupState input
let describe_patch_groups ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePatchGroups input
let describe_patch_properties ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribePatchProperties input
let describe_sessions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DescribeSessions input
let disassociate_ops_item_related_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.DisassociateOpsItemRelatedItem input
let get_access_token ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAccessToken input
let get_automation_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetAutomationExecution input
let get_calendar_state ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCalendarState input
let get_command_invocation ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetCommandInvocation input
let get_connection_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetConnectionStatus input
let get_default_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDefaultPatchBaseline input
let get_deployable_patch_snapshot_for_instance ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDeployablePatchSnapshotForInstance
    input
let get_document ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetDocument input
let get_execution_preview ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetExecutionPreview input
let get_inventory ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInventory input
let get_inventory_schema ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetInventorySchema input
let get_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMaintenanceWindow input
let get_maintenance_window_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMaintenanceWindowExecution input
let get_maintenance_window_execution_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMaintenanceWindowExecutionTask input
let get_maintenance_window_execution_task_invocation ?endpoint_url ?cfg input
  =
  eval ?endpoint_url ?cfg
    Endpoints.GetMaintenanceWindowExecutionTaskInvocation input
let get_maintenance_window_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetMaintenanceWindowTask input
let get_ops_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOpsItem input
let get_ops_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOpsMetadata input
let get_ops_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetOpsSummary input
let get_parameter ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetParameter input
let get_parameter_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetParameterHistory input
let get_parameters ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetParameters input
let get_parameters_by_path ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetParametersByPath input
let get_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetPatchBaseline input
let get_patch_baseline_for_patch_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetPatchBaselineForPatchGroup input
let get_resource_policies ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetResourcePolicies input
let get_service_setting ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.GetServiceSetting input
let label_parameter_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.LabelParameterVersion input
let list_association_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssociationVersions input
let list_associations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListAssociations input
let list_command_invocations ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCommandInvocations input
let list_commands ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListCommands input
let list_compliance_items ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComplianceItems input
let list_compliance_summaries ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListComplianceSummaries input
let list_document_metadata_history ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDocumentMetadataHistory input
let list_document_versions ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDocumentVersions input
let list_documents ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListDocuments input
let list_inventory_entries ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListInventoryEntries input
let list_nodes ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListNodes input
let list_nodes_summary ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListNodesSummary input
let list_ops_item_events ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOpsItemEvents input
let list_ops_item_related_items ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOpsItemRelatedItems input
let list_ops_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListOpsMetadata input
let list_resource_compliance_summaries ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResourceComplianceSummaries input
let list_resource_data_sync ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListResourceDataSync input
let list_tags_for_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let modify_document_permission ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ModifyDocumentPermission input
let put_compliance_items ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutComplianceItems input
let put_inventory ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutInventory input
let put_parameter ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutParameter input
let put_resource_policy ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let register_default_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterDefaultPatchBaseline input
let register_patch_baseline_for_patch_group ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterPatchBaselineForPatchGroup input
let register_target_with_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterTargetWithMaintenanceWindow input
let register_task_with_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RegisterTaskWithMaintenanceWindow input
let remove_tags_from_resource ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.RemoveTagsFromResource input
let reset_service_setting ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResetServiceSetting input
let resume_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.ResumeSession input
let send_automation_signal ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendAutomationSignal input
let send_command ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.SendCommand input
let start_access_request ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAccessRequest input
let start_associations_once ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAssociationsOnce input
let start_automation_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartAutomationExecution input
let start_change_request_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartChangeRequestExecution input
let start_execution_preview ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartExecutionPreview input
let start_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StartSession input
let stop_automation_execution ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.StopAutomationExecution input
let terminate_session ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.TerminateSession input
let unlabel_parameter_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UnlabelParameterVersion input
let update_association ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAssociation input
let update_association_status ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateAssociationStatus input
let update_document ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDocument input
let update_document_default_version ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDocumentDefaultVersion input
let update_document_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateDocumentMetadata input
let update_maintenance_window ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMaintenanceWindow input
let update_maintenance_window_target ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMaintenanceWindowTarget input
let update_maintenance_window_task ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateMaintenanceWindowTask input
let update_managed_instance_role ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateManagedInstanceRole input
let update_ops_item ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateOpsItem input
let update_ops_metadata ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateOpsMetadata input
let update_patch_baseline ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdatePatchBaseline input
let update_resource_data_sync ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateResourceDataSync input
let update_service_setting ?endpoint_url ?cfg input =
  eval ?endpoint_url ?cfg Endpoints.UpdateServiceSetting input