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_clouddirectory
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 add_facet_to_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AddFacetToObject input
let apply_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ApplySchema input
let attach_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachObject input
let attach_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachPolicy input
let attach_to_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachToIndex input
let attach_typed_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AttachTypedLink input
let batch_read ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchRead input
let batch_write ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchWrite input
let create_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateDirectory input
let create_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFacet input
let create_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIndex input
let create_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateObject input
let create_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSchema input
let create_typed_link_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateTypedLinkFacet input
let delete_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteDirectory input
let delete_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFacet input
let delete_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteObject input
let delete_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSchema input
let delete_typed_link_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteTypedLinkFacet input
let detach_from_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachFromIndex input
let detach_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachObject input
let detach_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachPolicy input
let detach_typed_link ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DetachTypedLink input
let disable_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableDirectory input
let enable_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableDirectory input
let get_applied_schema_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAppliedSchemaVersion input
let get_directory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDirectory input
let get_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFacet input
let get_link_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLinkAttributes input
let get_object_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectAttributes input
let get_object_information ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetObjectInformation input
let get_schema_as_json ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSchemaAsJson input
let get_typed_link_facet_information ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetTypedLinkFacetInformation input
let list_applied_schema_arns ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAppliedSchemaArns input
let list_attached_indices ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAttachedIndices input
let list_development_schema_arns ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDevelopmentSchemaArns input
let list_directories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDirectories input
let list_facet_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFacetAttributes input
let list_facet_names ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFacetNames input
let list_incoming_typed_links ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIncomingTypedLinks input
let list_index ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIndex input
let list_managed_schema_arns ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListManagedSchemaArns input
let list_object_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectAttributes input
let list_object_children ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectChildren input
let list_object_parent_paths ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectParentPaths input
let list_object_parents ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectParents input
let list_object_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListObjectPolicies input
let list_outgoing_typed_links ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOutgoingTypedLinks input
let list_policy_attachments ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPolicyAttachments input
let list_published_schema_arns ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPublishedSchemaArns input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_typed_link_facet_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTypedLinkFacetAttributes input
let list_typed_link_facet_names ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTypedLinkFacetNames input
let lookup_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.LookupPolicy input
let publish_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PublishSchema input
let put_schema_from_json ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutSchemaFromJson input
let remove_facet_from_object ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RemoveFacetFromObject 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_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFacet input
let update_link_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLinkAttributes input
let update_object_attributes ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateObjectAttributes input
let update_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSchema input
let update_typed_link_facet ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateTypedLinkFacet input
let upgrade_applied_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradeAppliedSchema input
let upgrade_published_schema ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpgradePublishedSchema input