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
open Awso_kms
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 cancel_key_deletion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CancelKeyDeletion input
let connect_custom_key_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ConnectCustomKeyStore input
let create_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateAlias input
let create_custom_key_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateCustomKeyStore input
let create_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGrant input
let create_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateKey input
let decrypt ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Decrypt input
let delete_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteAlias input
let delete_custom_key_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteCustomKeyStore input
let delete_imported_key_material ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteImportedKeyMaterial input
let derive_shared_secret ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeriveSharedSecret input
let describe_custom_key_stores ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeCustomKeyStores input
let describe_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeKey input
let disable_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableKey input
let disable_key_rotation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisableKeyRotation input
let disconnect_custom_key_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DisconnectCustomKeyStore input
let enable_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableKey input
let enable_key_rotation ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.EnableKeyRotation input
let encrypt ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Encrypt input
let generate_data_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateDataKey input
let generate_data_key_pair ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateDataKeyPair input
let generate_data_key_pair_without_plaintext ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateDataKeyPairWithoutPlaintext input
let generate_data_key_without_plaintext ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateDataKeyWithoutPlaintext input
let generate_mac ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateMac input
let generate_random ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GenerateRandom input
let get_key_last_usage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetKeyLastUsage input
let get_key_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetKeyPolicy input
let get_key_rotation_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetKeyRotationStatus input
let get_parameters_for_import ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetParametersForImport input
let get_public_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetPublicKey input
let import_key_material ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ImportKeyMaterial input
let list_aliases ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAliases input
let list_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListGrants input
let list_key_policies ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListKeyPolicies input
let list_key_rotations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListKeyRotations input
let list_keys ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListKeys input
let list_resource_tags ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceTags input
let list_retirable_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListRetirableGrants input
let put_key_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutKeyPolicy input
let re_encrypt ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ReEncrypt input
let replicate_key ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ReplicateKey input
let retire_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RetireGrant input
let revoke_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RevokeGrant input
let rotate_key_on_demand ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RotateKeyOnDemand input
let schedule_key_deletion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ScheduleKeyDeletion input
let sign ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Sign 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_alias ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateAlias input
let update_custom_key_store ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateCustomKeyStore input
let update_key_description ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateKeyDescription input
let update_primary_region ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePrimaryRegion input
let verify ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.Verify input
let verify_mac ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.VerifyMac input