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 101 102(* 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_notifications 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_channel ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateChannel input let associate_managed_notification_account_contact ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateManagedNotificationAccountContact input let associate_managed_notification_additional_channel ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateManagedNotificationAdditionalChannel input let associate_organizational_unit ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateOrganizationalUnit input let create_event_rule ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateEventRule input let create_notification_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateNotificationConfiguration input let delete_event_rule ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteEventRule input let delete_notification_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteNotificationConfiguration input let deregister_notification_hub ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeregisterNotificationHub input let disable_notifications_access_for_organization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisableNotificationsAccessForOrganization input let disassociate_channel ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateChannel input let disassociate_managed_notification_account_contact ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateManagedNotificationAccountContact input let disassociate_managed_notification_additional_channel ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateManagedNotificationAdditionalChannel input let disassociate_organizational_unit ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateOrganizationalUnit input let enable_notifications_access_for_organization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.EnableNotificationsAccessForOrganization input let get_event_rule ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetEventRule input let get_managed_notification_child_event ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetManagedNotificationChildEvent input let get_managed_notification_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetManagedNotificationConfiguration input let get_managed_notification_event ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetManagedNotificationEvent input let get_notification_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetNotificationConfiguration input let get_notification_event ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetNotificationEvent input let get_notifications_access_for_organization ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetNotificationsAccessForOrganization input let list_channels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListChannels input let list_event_rules ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListEventRules input let list_managed_notification_channel_associations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListManagedNotificationChannelAssociations input let list_managed_notification_child_events ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListManagedNotificationChildEvents input let list_managed_notification_configurations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListManagedNotificationConfigurations input let list_managed_notification_events ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListManagedNotificationEvents input let list_member_accounts ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListMemberAccounts input let list_notification_configurations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListNotificationConfigurations input let list_notification_events ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListNotificationEvents input let list_notification_hubs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListNotificationHubs input let list_organizational_units ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListOrganizationalUnits input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let register_notification_hub ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RegisterNotificationHub 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_event_rule ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateEventRule input let update_notification_configuration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateNotificationConfiguration input