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_ivs_realtime
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 create_encoder_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateEncoderConfiguration input
let create_ingest_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateIngestConfiguration input
let create_participant_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateParticipantToken input
let create_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStage input
let create_storage_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateStorageConfiguration input
let delete_encoder_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteEncoderConfiguration input
let delete_ingest_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteIngestConfiguration input
let delete_public_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePublicKey input
let delete_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStage input
let delete_storage_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteStorageConfiguration input
let disconnect_participant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisconnectParticipant input
let get_composition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetComposition input
let get_encoder_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetEncoderConfiguration input
let get_ingest_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetIngestConfiguration input
let get_participant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetParticipant input
let get_public_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPublicKey input
let get_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStage input
let get_stage_session ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStageSession input
let get_storage_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetStorageConfiguration input
let import_public_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportPublicKey input
let list_compositions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListCompositions input
let list_encoder_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListEncoderConfigurations input
let list_ingest_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListIngestConfigurations input
let list_participant_events ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListParticipantEvents input
let list_participant_replicas ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListParticipantReplicas input
let list_participants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListParticipants input
let list_public_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPublicKeys input
let list_stage_sessions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStageSessions input
let list_stages ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStages input
let list_storage_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListStorageConfigurations input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let start_composition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartComposition input
let start_participant_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartParticipantReplication input
let stop_composition ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopComposition input
let stop_participant_replication ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StopParticipantReplication 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_ingest_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateIngestConfiguration input
let update_stage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateStage input