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
open Awso_rekognition
open Awso_lwt
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 list_tags_for_resource ?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