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
open Awso_iotthingsgraph
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_entity_to_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AssociateEntityToThing input
let create_flow_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateFlowTemplate input
let create_system_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSystemInstance input
let create_system_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateSystemTemplate input
let delete_flow_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteFlowTemplate input
let delete_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteNamespace input
let delete_system_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSystemInstance input
let delete_system_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSystemTemplate input
let deploy_system_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeploySystemInstance input
let deprecate_flow_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprecateFlowTemplate input
let deprecate_system_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprecateSystemTemplate input
let describe_namespace ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeNamespace input
let dissociate_entity_from_thing ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DissociateEntityFromThing input
let get_entities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEntities input
let get_flow_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFlowTemplate input
let get_flow_template_revisions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetFlowTemplateRevisions input
let get_namespace_deletion_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetNamespaceDeletionStatus input
let get_system_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSystemInstance input
let get_system_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSystemTemplate input
let get_system_template_revisions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSystemTemplateRevisions input
let get_upload_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetUploadStatus input
let list_flow_execution_messages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListFlowExecutionMessages input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let search_entities ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchEntities input
let search_flow_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchFlowExecutions input
let search_flow_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchFlowTemplates input
let search_system_instances ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchSystemInstances input
let search_system_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchSystemTemplates input
let search_things ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SearchThings input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let undeploy_system_instance ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UndeploySystemInstance input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input
let update_flow_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateFlowTemplate input
let update_system_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateSystemTemplate input
let upload_entity_definitions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UploadEntityDefinitions input