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(* 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_rekognition 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_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.AssociateFaces input let compare_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CompareFaces input let copy_project_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CopyProjectVersion input let create_collection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateCollection input let create_dataset ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateDataset input let create_face_liveness_session ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateFaceLivenessSession input let create_project ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateProject input let create_project_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateProjectVersion input let create_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateStreamProcessor input let create_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.CreateUser input let delete_collection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteCollection input let delete_dataset ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteDataset input let delete_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteFaces input let delete_project ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProject input let delete_project_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProjectPolicy input let delete_project_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteProjectVersion input let delete_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteStreamProcessor input let delete_user ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DeleteUser input let describe_collection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeCollection input let describe_dataset ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeDataset input let describe_project_versions ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeProjectVersions input let describe_projects ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeProjects input let describe_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DescribeStreamProcessor input let detect_custom_labels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectCustomLabels input let detect_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectFaces input let detect_labels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectLabels input let detect_moderation_labels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectModerationLabels input let detect_protective_equipment ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectProtectiveEquipment input let detect_text ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DetectText input let disassociate_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DisassociateFaces input let distribute_dataset_entries ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.DistributeDatasetEntries input let get_celebrity_info ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCelebrityInfo input let get_celebrity_recognition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetCelebrityRecognition input let get_content_moderation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetContentModeration input let get_face_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetFaceDetection input let get_face_liveness_session_results ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetFaceLivenessSessionResults input let get_face_search ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetFaceSearch input let get_label_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetLabelDetection input let get_media_analysis_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetMediaAnalysisJob input let get_person_tracking ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetPersonTracking input let get_segment_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetSegmentDetection input let get_text_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.GetTextDetection input let index_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.IndexFaces input let list_collections ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListCollections input let list_dataset_entries ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDatasetEntries input let list_dataset_labels ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListDatasetLabels input let list_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListFaces input let list_media_analysis_jobs ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListMediaAnalysisJobs input let list_project_policies ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListProjectPolicies input let list_stream_processors ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListStreamProcessors input let ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input let list_users ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.ListUsers input let put_project_policy ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.PutProjectPolicy input let recognize_celebrities ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.RecognizeCelebrities input let search_faces ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SearchFaces input let search_faces_by_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SearchFacesByImage input let search_users ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SearchUsers input let search_users_by_image ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.SearchUsersByImage input let start_celebrity_recognition ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartCelebrityRecognition input let start_content_moderation ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartContentModeration input let start_face_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartFaceDetection input let start_face_search ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartFaceSearch input let start_label_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartLabelDetection input let start_media_analysis_job ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartMediaAnalysisJob input let start_person_tracking ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartPersonTracking input let start_project_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartProjectVersion input let start_segment_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartSegmentDetection input let start_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartStreamProcessor input let start_text_detection ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StartTextDetection input let stop_project_version ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopProjectVersion input let stop_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.StopStreamProcessor 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_dataset_entries ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateDatasetEntries input let update_stream_processor ?endpoint_url ?cfg input = eval ?endpoint_url ?cfg Endpoints.UpdateStreamProcessor input