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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
open Awso_license_manager
open Awso_lwt
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 accept_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.AcceptGrant input
let check_in_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CheckInLicense input
let checkout_borrow_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CheckoutBorrowLicense input
let checkout_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CheckoutLicense input
let create_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGrant input
let create_grant_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateGrantVersion input
let create_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicense input
let create_license_asset_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseAssetGroup input
let create_license_asset_ruleset ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseAssetRuleset input
let create_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseConfiguration input
let create_license_conversion_task_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseConversionTaskForResource
input
let create_license_manager_report_generator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseManagerReportGenerator input
let create_license_version ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateLicenseVersion input
let create_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.CreateToken input
let delete_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteGrant input
let delete_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLicense input
let delete_license_asset_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLicenseAssetGroup input
let delete_license_asset_ruleset ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLicenseAssetRuleset input
let delete_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLicenseConfiguration input
let delete_license_manager_report_generator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteLicenseManagerReportGenerator input
let delete_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.DeleteToken input
let extend_license_consumption ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ExtendLicenseConsumption input
let get_access_token ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetAccessToken input
let get_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetGrant input
let get_license ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicense input
let get_license_asset_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseAssetGroup input
let get_license_asset_ruleset ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseAssetRuleset input
let get_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseConfiguration input
let get_license_conversion_task ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseConversionTask input
let get_license_manager_report_generator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseManagerReportGenerator input
let get_license_usage ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetLicenseUsage input
let get_service_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.GetServiceSettings input
let list_assets_for_license_asset_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssetsForLicenseAssetGroup input
let list_associations_for_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListAssociationsForLicenseConfiguration
input
let list_distributed_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListDistributedGrants input
let list_failures_for_license_configuration_operations ?endpoint_url ?cfg
input =
eval ?endpoint_url ?cfg
Endpoints.ListFailuresForLicenseConfigurationOperations input
let list_license_asset_groups ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseAssetGroups input
let list_license_asset_rulesets ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseAssetRulesets input
let list_license_configurations ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseConfigurations input
let list_license_configurations_for_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseConfigurationsForOrganization
input
let list_license_conversion_tasks ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseConversionTasks input
let list_license_manager_report_generators ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseManagerReportGenerators input
let list_license_specifications_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseSpecificationsForResource
input
let list_license_versions ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenseVersions input
let list_licenses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListLicenses input
let list_received_grants ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceivedGrants input
let list_received_grants_for_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceivedGrantsForOrganization input
let list_received_licenses ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceivedLicenses input
let list_received_licenses_for_organization ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListReceivedLicensesForOrganization input
let list_resource_inventory ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListResourceInventory input
let list_tags_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTagsForResource input
let list_tokens ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListTokens input
let list_usage_for_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.ListUsageForLicenseConfiguration input
let reject_grant ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.RejectGrant 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_license_asset_group ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLicenseAssetGroup input
let update_license_asset_ruleset ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLicenseAssetRuleset input
let update_license_configuration ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLicenseConfiguration input
let update_license_manager_report_generator ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLicenseManagerReportGenerator input
let update_license_specifications_for_resource ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateLicenseSpecificationsForResource
input
let update_service_settings ?endpoint_url ?cfg input =
eval ?endpoint_url ?cfg Endpoints.UpdateServiceSettings input