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 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225(* 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_customer_profiles 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_profile_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AddProfileKey input let batch_get_calculated_attribute_for_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchGetCalculatedAttributeForProfile input let batch_get_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.BatchGetProfile input let create_calculated_attribute_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateCalculatedAttributeDefinition input let create_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDomain input let create_domain_layout ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDomainLayout input let create_event_stream ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateEventStream input let create_event_trigger ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateEventTrigger input let create_integration_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateIntegrationWorkflow input let create_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateProfile input let create_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateRecommender input let create_recommender_filter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateRecommenderFilter input let create_recommender_schema ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateRecommenderSchema input let create_segment_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSegmentDefinition input let create_segment_estimate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSegmentEstimate input let create_segment_snapshot ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateSegmentSnapshot input let create_upload_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUploadJob input let delete_calculated_attribute_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteCalculatedAttributeDefinition input let delete_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDomain input let delete_domain_layout ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDomainLayout input let delete_domain_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDomainObjectType input let delete_event_stream ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteEventStream input let delete_event_trigger ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteEventTrigger input let delete_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteIntegration input let delete_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfile input let delete_profile_key ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfileKey input let delete_profile_object ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfileObject input let delete_profile_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProfileObjectType input let delete_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteRecommender input let delete_recommender_filter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteRecommenderFilter input let delete_recommender_schema ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteRecommenderSchema input let delete_segment_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteSegmentDefinition input let delete_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteWorkflow input let detect_profile_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectProfileObjectType input let get_auto_merging_preview ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetAutoMergingPreview input let get_calculated_attribute_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCalculatedAttributeDefinition input let get_calculated_attribute_for_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCalculatedAttributeForProfile input let get_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomain input let get_domain_layout ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomainLayout input let get_domain_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetDomainObjectType input let get_event_stream ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetEventStream input let get_event_trigger ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetEventTrigger input let get_identity_resolution_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIdentityResolutionJob input let get_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetIntegration input let get_matches ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMatches input let get_object_type_attribute_statistics ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetObjectTypeAttributeStatistics input let get_profile_history_record ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfileHistoryRecord input let get_profile_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfileObjectType input let get_profile_object_type_template ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfileObjectTypeTemplate input let get_profile_recommendations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetProfileRecommendations input let get_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRecommender input let get_recommender_filter ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRecommenderFilter input let get_recommender_schema ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetRecommenderSchema input let get_segment_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSegmentDefinition input let get_segment_estimate ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSegmentEstimate input let get_segment_membership ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSegmentMembership input let get_segment_snapshot ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSegmentSnapshot input let get_similar_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSimilarProfiles input let get_upload_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUploadJob input let get_upload_job_path ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetUploadJobPath input let get_workflow ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkflow input let get_workflow_steps ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetWorkflowSteps input let list_account_integrations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListAccountIntegrations input let list_calculated_attribute_definitions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCalculatedAttributeDefinitions input let list_calculated_attributes_for_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCalculatedAttributesForProfile input let list_domain_layouts ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDomainLayouts input let list_domain_object_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDomainObjectTypes input let list_domains ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDomains input let list_event_streams ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListEventStreams input let list_event_triggers ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListEventTriggers input let list_identity_resolution_jobs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListIdentityResolutionJobs input let list_integrations ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListIntegrations input let list_object_type_attribute_values ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListObjectTypeAttributeValues input let list_object_type_attributes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListObjectTypeAttributes input let list_profile_attribute_values ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileAttributeValues input let list_profile_history_records ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileHistoryRecords input let list_profile_object_type_templates ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileObjectTypeTemplates input let list_profile_object_types ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileObjectTypes input let list_profile_objects ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProfileObjects input let list_recommender_filters ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommenderFilters input let list_recommender_recipes ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommenderRecipes input let list_recommender_schemas ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommenderSchemas input let list_recommenders ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRecommenders input let list_rule_based_matches ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListRuleBasedMatches input let list_segment_definitions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListSegmentDefinitions input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_upload_jobs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUploadJobs input let list_workflows ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListWorkflows input let merge_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.MergeProfiles input let put_domain_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutDomainObjectType input let put_integration ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutIntegration input let put_profile_object ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutProfileObject input let put_profile_object_type ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutProfileObjectType input let search_profiles ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SearchProfiles input let start_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartRecommender input let start_upload_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartUploadJob input let stop_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopRecommender input let stop_upload_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopUploadJob 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_calculated_attribute_definition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateCalculatedAttributeDefinition input let update_domain ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDomain input let update_domain_layout ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDomainLayout input let update_event_trigger ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateEventTrigger input let update_profile ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateProfile input let update_recommender ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateRecommender input