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
open Awso_swf
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 count_closed_workflow_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CountClosedWorkflowExecutions input
let count_open_workflow_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CountOpenWorkflowExecutions input
let count_pending_activity_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CountPendingActivityTasks input
let count_pending_decision_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CountPendingDecisionTasks input
let delete_activity_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteActivityType input
let delete_workflow_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteWorkflowType input
let deprecate_activity_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprecateActivityType input
let deprecate_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprecateDomain input
let deprecate_workflow_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeprecateWorkflowType input
let describe_activity_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeActivityType input
let describe_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeDomain input
let describe_workflow_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeWorkflowExecution input
let describe_workflow_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeWorkflowType input
let get_workflow_execution_history ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetWorkflowExecutionHistory input
let list_activity_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListActivityTypes input
let list_closed_workflow_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListClosedWorkflowExecutions input
let list_domains ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDomains input
let list_open_workflow_executions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListOpenWorkflowExecutions input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_workflow_types ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListWorkflowTypes input
let poll_for_activity_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PollForActivityTask input
let poll_for_decision_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PollForDecisionTask input
let record_activity_task_heartbeat ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RecordActivityTaskHeartbeat input
let register_activity_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterActivityType input
let register_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterDomain input
let register_workflow_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterWorkflowType input
let request_cancel_workflow_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RequestCancelWorkflowExecution input
let respond_activity_task_canceled ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RespondActivityTaskCanceled input
let respond_activity_task_completed ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RespondActivityTaskCompleted input
let respond_activity_task_failed ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RespondActivityTaskFailed input
let respond_decision_task_completed ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RespondDecisionTaskCompleted input
let signal_workflow_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SignalWorkflowExecution input
let start_workflow_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartWorkflowExecution input
let tag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TagResource input
let terminate_workflow_execution ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.TerminateWorkflowExecution input
let undeprecate_activity_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UndeprecateActivityType input
let undeprecate_domain ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UndeprecateDomain input
let undeprecate_workflow_type ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UndeprecateWorkflowType input
let untag_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UntagResource input