package awso-async
Source file io.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100(* 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_devops_agent 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 associate_service ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateService input let create_agent_space ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateAgentSpace input let create_backlog_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateBacklogTask input let create_chat ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateChat input let create_private_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreatePrivateConnection input let delete_agent_space ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteAgentSpace input let delete_private_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeletePrivateConnection input let deregister_service ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeregisterService input let describe_private_connection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribePrivateConnection input let disable_operator_app ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisableOperatorApp input let disassociate_service ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateService input let enable_operator_app ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.EnableOperatorApp input let get_account_usage ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAccountUsage input let get_agent_space ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAgentSpace input let get_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAssociation input let get_backlog_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetBacklogTask input let get_operator_app ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetOperatorApp input let get_recommendation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRecommendation input let get_service ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetService input let list_agent_spaces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAgentSpaces input let list_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAssociations input let list_backlog_tasks ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListBacklogTasks input let list_chats ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListChats input let list_executions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListExecutions input let list_goals ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListGoals input let list_journal_records ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListJournalRecords input let list_pending_messages ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPendingMessages input let list_private_connections ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPrivateConnections input let list_recommendations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommendations input let list_services ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListServices input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_webhooks ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWebhooks input let register_service ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RegisterService input let send_message ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SendMessage input let tag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.TagResource input let untag_resource ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UntagResource input let update_agent_space ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAgentSpace input let update_association ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateAssociation input let update_backlog_task ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateBacklogTask input let update_goal ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateGoal input let update_operator_app_idp_config ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateOperatorAppIdpConfig input let update_private_connection_certificate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdatePrivateConnectionCertificate input let update_recommendation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateRecommendation input let validate_aws_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ValidateAwsAssociations input