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
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
open Awso_qbusiness
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_permission ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociatePermission input
let batch_delete_document ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteDocument input
let batch_put_document ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchPutDocument input
let cancel_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelSubscription input
let chat ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Chat input
let chat_sync ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ChatSync input
let check_document_access ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CheckDocumentAccess input
let create_anonymous_web_experience_url ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAnonymousWebExperienceUrl input
let create_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateApplication input
let create_chat_response_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateChatResponseConfiguration input
let create_data_accessor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDataAccessor input
let create_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDataSource input
let create_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIndex input
let create_plugin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePlugin input
let create_retriever ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRetriever input
let create_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSubscription input
let create_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateUser input
let create_web_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateWebExperience input
let delete_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteApplication input
let delete_attachment ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAttachment input
let delete_chat_controls_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteChatControlsConfiguration input
let delete_chat_response_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteChatResponseConfiguration input
let delete_conversation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteConversation input
let delete_data_accessor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDataAccessor input
let delete_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDataSource input
let delete_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGroup input
let delete_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIndex input
let delete_plugin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePlugin input
let delete_retriever ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRetriever input
let delete_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteUser input
let delete_web_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWebExperience input
let disassociate_permission ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisassociatePermission input
let get_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetApplication input
let get_chat_controls_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChatControlsConfiguration input
let get_chat_response_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetChatResponseConfiguration input
let get_data_accessor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDataAccessor input
let get_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDataSource input
let get_document_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDocumentContent input
let get_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGroup input
let get_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIndex input
let get_media ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetMedia input
let get_plugin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPlugin input
let get_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPolicy input
let get_retriever ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRetriever input
let get_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUser input
let get_web_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWebExperience input
let list_applications ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListApplications input
let list_attachments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAttachments input
let list_chat_response_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListChatResponseConfigurations input
let list_conversations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListConversations input
let list_data_accessors ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDataAccessors 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_documents ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDocuments input
let list_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGroups input
let list_indices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIndices input
let list_messages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListMessages input
let list_plugin_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPluginActions input
let list_plugin_type_actions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPluginTypeActions input
let list_plugin_type_metadata ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPluginTypeMetadata input
let list_plugins ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPlugins input
let list_retrievers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRetrievers input
let list_subscriptions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListSubscriptions input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_web_experiences ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWebExperiences input
let put_feedback ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutFeedback input
let put_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutGroup input
let search_relevant_content ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchRelevantContent 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 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_application ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateApplication input
let update_chat_controls_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateChatControlsConfiguration input
let update_chat_response_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateChatResponseConfiguration input
let update_data_accessor ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDataAccessor input
let update_data_source ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateDataSource input
let update_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIndex input
let update_plugin ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePlugin input
let update_retriever ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRetriever input
let update_subscription ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSubscription input
let update_user ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateUser input
let update_web_experience ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateWebExperience input