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
open Awso_location
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_tracker_consumer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateTrackerConsumer input
let batch_delete_device_position_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteDevicePositionHistory input
let batch_delete_geofence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteGeofence input
let batch_evaluate_geofences ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchEvaluateGeofences input
let batch_get_device_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetDevicePosition input
let batch_put_geofence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchPutGeofence input
let batch_update_device_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchUpdateDevicePosition input
let calculate_route ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CalculateRoute input
let calculate_route_matrix ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CalculateRouteMatrix input
let cancel_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelJob input
let create_geofence_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGeofenceCollection input
let create_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateKey input
let create_map ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateMap input
let create_place_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePlaceIndex input
let create_route_calculator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRouteCalculator input
let create_tracker ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTracker input
let delete_geofence_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGeofenceCollection input
let delete_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteKey input
let delete_map ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteMap input
let delete_place_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePlaceIndex input
let delete_route_calculator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRouteCalculator input
let delete_tracker ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTracker input
let describe_geofence_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeGeofenceCollection input
let describe_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeKey input
let describe_map ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeMap input
let describe_place_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePlaceIndex input
let describe_route_calculator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRouteCalculator input
let describe_tracker ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTracker input
let disassociate_tracker_consumer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateTrackerConsumer input
let forecast_geofence_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ForecastGeofenceEvents input
let get_device_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevicePosition input
let get_device_position_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDevicePositionHistory input
let get_geofence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGeofence input
let get_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetJob input
let get_map_glyphs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMapGlyphs input
let get_map_sprites ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMapSprites input
let get_map_style_descriptor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMapStyleDescriptor input
let get_map_tile ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMapTile input
let get_place ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPlace input
let list_device_positions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevicePositions input
let list_geofence_collections ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGeofenceCollections input
let list_geofences ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGeofences input
let list_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListJobs input
let list_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListKeys input
let list_maps ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMaps input
let list_place_indexes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPlaceIndexes input
let list_route_calculators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRouteCalculators input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tracker_consumers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrackerConsumers input
let list_trackers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrackers input
let put_geofence ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutGeofence input
let search_place_index_for_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchPlaceIndexForPosition input
let search_place_index_for_suggestions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchPlaceIndexForSuggestions input
let search_place_index_for_text ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchPlaceIndexForText input
let start_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartJob 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_geofence_collection ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateGeofenceCollection input
let update_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateKey input
let update_map ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateMap input
let update_place_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePlaceIndex input
let update_route_calculator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRouteCalculator input
let update_tracker ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTracker input
let verify_device_position ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyDevicePosition input