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
open Awso_cloudtrail
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_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddTags input
let cancel_query ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelQuery input
let create_channel ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateChannel input
let create_dashboard ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDashboard input
let create_event_data_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateEventDataStore input
let create_trail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTrail input
let delete_channel ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteChannel input
let delete_dashboard ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDashboard input
let delete_event_data_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEventDataStore input
let delete_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteResourcePolicy input
let delete_trail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTrail input
let deregister_organization_delegated_admin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterOrganizationDelegatedAdmin
input
let describe_query ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeQuery input
let describe_trails ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeTrails input
let disable_federation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableFederation input
let enable_federation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableFederation input
let generate_query ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateQuery input
let get_channel ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChannel input
let get_dashboard ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDashboard input
let get_event_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEventConfiguration input
let get_event_data_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEventDataStore input
let get_event_selectors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEventSelectors input
let get_import ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetImport input
let get_insight_selectors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetInsightSelectors input
let get_query_results ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetQueryResults input
let get_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetResourcePolicy input
let get_trail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrail input
let get_trail_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTrailStatus input
let list_channels ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListChannels input
let list_dashboards ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDashboards input
let list_event_data_stores ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEventDataStores input
let list_import_failures ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImportFailures input
let list_imports ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImports input
let list_insights_data ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInsightsData input
let list_insights_metric_data ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListInsightsMetricData input
let list_public_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPublicKeys input
let list_queries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListQueries input
let list_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTags input
let list_trails ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTrails input
let lookup_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.LookupEvents input
let put_event_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutEventConfiguration input
let put_event_selectors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutEventSelectors input
let put_insight_selectors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutInsightSelectors input
let put_resource_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutResourcePolicy input
let register_organization_delegated_admin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterOrganizationDelegatedAdmin input
let remove_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveTags input
let restore_event_data_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RestoreEventDataStore input
let search_sample_queries ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchSampleQueries input
let start_dashboard_refresh ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDashboardRefresh input
let start_event_data_store_ingestion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartEventDataStoreIngestion input
let start_import ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartImport input
let start_logging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartLogging input
let start_query ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartQuery input
let stop_event_data_store_ingestion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopEventDataStoreIngestion input
let stop_import ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopImport input
let stop_logging ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopLogging input
let update_channel ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateChannel input
let update_dashboard ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDashboard input
let update_event_data_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateEventDataStore input
let update_trail ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTrail input