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
open Awso_kendra
open Awso_sync
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_entities_to_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateEntitiesToExperience input
let associate_personas_to_entities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociatePersonasToEntities input
let batch_delete_document ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteDocument input
let batch_delete_featured_results_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteFeaturedResultsSet input
let batch_get_document_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetDocumentStatus input
let batch_put_document ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchPutDocument input
let clear_query_suggestions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ClearQuerySuggestions input
let create_access_control_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAccessControlConfiguration input
let create_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDataSource input
let create_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateExperience input
let create_faq ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFaq input
let create_featured_results_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFeaturedResultsSet input
let create_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIndex input
let create_query_suggestions_block_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateQuerySuggestionsBlockList input
let create_thesaurus ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateThesaurus input
let delete_access_control_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAccessControlConfiguration input
let delete_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDataSource input
let delete_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteExperience input
let delete_faq ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFaq input
let delete_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIndex input
let delete_principal_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePrincipalMapping input
let delete_query_suggestions_block_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteQuerySuggestionsBlockList input
let delete_thesaurus ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteThesaurus input
let describe_access_control_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeAccessControlConfiguration input
let describe_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDataSource input
let describe_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeExperience input
let describe_faq ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFaq input
let describe_featured_results_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeFeaturedResultsSet input
let describe_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeIndex input
let describe_principal_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePrincipalMapping input
let describe_query_suggestions_block_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeQuerySuggestionsBlockList input
let describe_query_suggestions_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeQuerySuggestionsConfig input
let describe_thesaurus ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeThesaurus input
let disassociate_entities_from_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociateEntitiesFromExperience input
let disassociate_personas_from_entities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociatePersonasFromEntities input
let get_query_suggestions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetQuerySuggestions input
let get_snapshots ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSnapshots input
let list_access_control_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAccessControlConfigurations input
let list_data_source_sync_jobs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDataSourceSyncJobs input
let list_data_sources ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDataSources input
let list_entity_personas ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEntityPersonas input
let list_experience_entities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListExperienceEntities input
let list_experiences ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListExperiences input
let list_faqs ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFaqs input
let list_featured_results_sets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFeaturedResultsSets input
let list_groups_older_than_ordering_id ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroupsOlderThanOrderingId input
let list_indices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIndices input
let list_query_suggestions_block_lists ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListQuerySuggestionsBlockLists input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_thesauri ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListThesauri input
let put_principal_mapping ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutPrincipalMapping input
let query ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Query input
let retrieve ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Retrieve input
let start_data_source_sync_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartDataSourceSyncJob input
let stop_data_source_sync_job ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopDataSourceSyncJob input
let submit_feedback ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SubmitFeedback 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_access_control_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAccessControlConfiguration input
let update_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDataSource input
let update_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateExperience input
let update_featured_results_set ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFeaturedResultsSet input
let update_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIndex input
let update_query_suggestions_block_list ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateQuerySuggestionsBlockList input
let update_query_suggestions_config ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateQuerySuggestionsConfig input
let update_thesaurus ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateThesaurus input