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(* 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_ram 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 ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AcceptResourceShareInvitation input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateResourceShare input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateResourceSharePermission input let create_permission ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreatePermission input let create_permission_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreatePermissionVersion input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateResourceShare input let delete_permission ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeletePermission input let delete_permission_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeletePermissionVersion input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteResourceShare input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateResourceShare input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateResourceSharePermission input let enable_sharing_with_aws_organization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.EnableSharingWithAwsOrganization input let get_permission ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetPermission input let get_resource_policies ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResourcePolicies input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResourceShareAssociations input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResourceShareInvitations input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetResourceShares input let list_pending_invitation_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPendingInvitationResources input let list_permission_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPermissionAssociations input let list_permission_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPermissionVersions input let list_permissions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPermissions input let list_principals ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListPrincipals input let list_replace_permission_associations_work ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListReplacePermissionAssociationsWork input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListResourceSharePermissions input let list_resource_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListResourceTypes input let list_resources ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListResources input let list_source_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSourceAssociations input let promote_permission_created_from_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PromotePermissionCreatedFromPolicy input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PromoteResourceShareCreatedFromPolicy input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RejectResourceShareInvitation input let replace_permission_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ReplacePermissionAssociations input let set_default_permission_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SetDefaultPermissionVersion 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 ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateResourceShare input