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
open Awso_ecr
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 batch_check_layer_availability ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchCheckLayerAvailability input
let batch_delete_image ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchDeleteImage input
let batch_get_image ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetImage input
let batch_get_repository_scanning_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.BatchGetRepositoryScanningConfiguration
input
let complete_layer_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CompleteLayerUpload input
let create_pull_through_cache_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreatePullThroughCacheRule input
let create_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRepository input
let create_repository_creation_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateRepositoryCreationTemplate input
let delete_lifecycle_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLifecyclePolicy input
let delete_pull_through_cache_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeletePullThroughCacheRule input
let delete_registry_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRegistryPolicy input
let delete_repository ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRepository input
let delete_repository_creation_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRepositoryCreationTemplate input
let delete_repository_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteRepositoryPolicy input
let delete_signing_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteSigningConfiguration input
let deregister_pull_time_update_exclusion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeregisterPullTimeUpdateExclusion input
let describe_image_replication_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeImageReplicationStatus input
let describe_image_scan_findings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeImageScanFindings input
let describe_image_signing_status ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeImageSigningStatus input
let describe_images ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeImages input
let describe_pull_through_cache_rules ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribePullThroughCacheRules input
let describe_registry ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRegistry input
let describe_repositories ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRepositories input
let describe_repository_creation_templates ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DescribeRepositoryCreationTemplates input
let get_account_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccountSetting input
let get_authorization_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAuthorizationToken input
let get_download_url_for_layer ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetDownloadUrlForLayer input
let get_lifecycle_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLifecyclePolicy input
let get_lifecycle_policy_preview ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLifecyclePolicyPreview input
let get_registry_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRegistryPolicy input
let get_registry_scanning_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRegistryScanningConfiguration input
let get_repository_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetRepositoryPolicy input
let get_signing_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetSigningConfiguration input
let initiate_layer_upload ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.InitiateLayerUpload input
let list_image_referrers ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImageReferrers input
let list_images ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListImages input
let list_pull_time_update_exclusions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListPullTimeUpdateExclusions input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let put_account_setting ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutAccountSetting input
let put_image ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutImage input
let put_image_scanning_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutImageScanningConfiguration input
let put_image_tag_mutability ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutImageTagMutability input
let put_lifecycle_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutLifecyclePolicy input
let put_registry_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRegistryPolicy input
let put_registry_scanning_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutRegistryScanningConfiguration input
let put_replication_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutReplicationConfiguration input
let put_signing_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.PutSigningConfiguration input
let register_pull_time_update_exclusion ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RegisterPullTimeUpdateExclusion input
let set_repository_policy ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.SetRepositoryPolicy input
let start_image_scan ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartImageScan input
let start_lifecycle_policy_preview ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.StartLifecyclePolicyPreview 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_image_storage_class ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateImageStorageClass input
let update_pull_through_cache_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdatePullThroughCacheRule input
let update_repository_creation_template ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateRepositoryCreationTemplate input
let upload_layer_part ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UploadLayerPart input
let validate_pull_through_cache_rule ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ValidatePullThroughCacheRule input