Source file cli.ml

(* generated by: awso-codegen generate-all --botocore-data vendor/botocore/botocore/data -o aws --runtime-dir lib/runtime/awso --cli-dir awso-cli *)
open Core
open Async
let json_arg = Command.Arg_type.create Yojson.Safe.from_string
let call ?endpoint_url ?profile ?region f m result_to_json error_to_json =
  let region =
    match region with
    | Some region -> Some (Awso.Region.of_string region)
    | None -> None in
  (Awso_async.Cfg.get_exn ?profile ?region ()) >>=
    (fun cfg ->
       (f ?endpoint_url ?cfg:(Some cfg) m) >>=
         (fun result ->
            match result with
            | Error err ->
                (match error_to_json with
                 | None ->
                     failwithf
                       "endpoint error, but no error values defined in boto"
                       ()
                 | Some to_json ->
                     let s = (err |> to_json) |> Yojson.Safe.to_string in
                     failwithf "AWS error: %s" s ())
            | Ok result ->
                ((match result_to_json with
                  | None -> print_endline "ok response from endpoint"
                  | Some to_json ->
                      ((result |> to_json) |> Yojson.Safe.to_string) |>
                        print_endline);
                 return ())))
let accept_agreement_cancellation_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and agreementCancellationRequestId =
         flag "agreement-cancellation-request-id" (required string)
           ~doc:"STRING AgreementCancellationRequestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.accept_agreement_cancellation_request
           (Values.AcceptAgreementCancellationRequestInput.make ~agreementId
              ~agreementCancellationRequestId ())
           (Some Values.AcceptAgreementCancellationRequestOutput.to_json)
           (Some
              Values.AcceptAgreementCancellationRequestOutput.error_to_json)])
let accept_agreement_payment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and purchaseOrderReference =
         flag "purchase-order-reference" (optional string)
           ~doc:"STRING PurchaseOrderReference"
       and paymentRequestId =
         flag "payment-request-id" (required string)
           ~doc:"STRING PaymentRequestId"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.accept_agreement_payment_request
           (Values.AcceptAgreementPaymentRequestInput.make
              ?purchaseOrderReference ~paymentRequestId ~agreementId ())
           (Some Values.AcceptAgreementPaymentRequestOutput.to_json)
           (Some Values.AcceptAgreementPaymentRequestOutput.error_to_json)])
let accept_agreement_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and purchaseOrders =
         flag "purchase-orders" (optional json_arg)
           ~doc:"JSON PurchaseOrders"
       and agreementRequestId =
         flag "agreement-request-id" (required string)
           ~doc:"STRING AgreementRequestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.accept_agreement_request
           (Values.AcceptAgreementRequestInput.make
              ?purchaseOrders:(Option.map ~f:Values.PurchaseOrders.of_json
                                 purchaseOrders) ~agreementRequestId ())
           (Some Values.AcceptAgreementRequestOutput.to_json)
           (Some Values.AcceptAgreementRequestOutput.error_to_json)])
let batch_create_billing_adjustment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and billingAdjustmentRequestEntries =
         flag "billing-adjustment-request-entries" (required json_arg)
           ~doc:"JSON BatchCreateBillingAdjustmentRequestEntryList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.batch_create_billing_adjustment_request
           (Values.BatchCreateBillingAdjustmentRequestInput.make
              ~billingAdjustmentRequestEntries:(Values.BatchCreateBillingAdjustmentRequestEntryList.of_json
                                                  billingAdjustmentRequestEntries)
              ())
           (Some Values.BatchCreateBillingAdjustmentRequestOutput.to_json)
           (Some
              Values.BatchCreateBillingAdjustmentRequestOutput.error_to_json)])
let cancel_agreement =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING ResourceId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.cancel_agreement
           (Values.CancelAgreementInput.make ~agreementId ())
           (Some Values.CancelAgreementOutput.to_json)
           (Some Values.CancelAgreementOutput.error_to_json)])
let cancel_agreement_cancellation_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and agreementCancellationRequestId =
         flag "agreement-cancellation-request-id" (required string)
           ~doc:"STRING AgreementCancellationRequestId"
       and cancellationReason =
         flag "cancellation-reason" (required string)
           ~doc:"STRING AgreementCancellationRequestCancellationReason" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.cancel_agreement_cancellation_request
           (Values.CancelAgreementCancellationRequestInput.make ~agreementId
              ~agreementCancellationRequestId ~cancellationReason ())
           (Some Values.CancelAgreementCancellationRequestOutput.to_json)
           (Some
              Values.CancelAgreementCancellationRequestOutput.error_to_json)])
let cancel_agreement_payment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and paymentRequestId =
         flag "payment-request-id" (required string)
           ~doc:"STRING PaymentRequestId"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.cancel_agreement_payment_request
           (Values.CancelAgreementPaymentRequestInput.make ~paymentRequestId
              ~agreementId ())
           (Some Values.CancelAgreementPaymentRequestOutput.to_json)
           (Some Values.CancelAgreementPaymentRequestOutput.error_to_json)])
let create_agreement_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and sourceAgreementIdentifier =
         flag "source-agreement-identifier" (optional string)
           ~doc:"STRING ResourceId"
       and agreementProposalIdentifier =
         flag "agreement-proposal-identifier" (optional string)
           ~doc:"STRING AgreementProposalId"
       and taxConfiguration =
         flag "tax-configuration" (optional json_arg)
           ~doc:"JSON TaxConfiguration"
       and intent = flag "intent" (required json_arg) ~doc:"JSON Intent"
       and requestedTerms =
         flag "requested-terms" (required json_arg)
           ~doc:"JSON RequestedTermList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_agreement_request
           (Values.CreateAgreementRequestInput.make ?clientToken
              ?sourceAgreementIdentifier ?agreementProposalIdentifier
              ?taxConfiguration:(Option.map
                                   ~f:Values.TaxConfiguration.of_json
                                   taxConfiguration)
              ~intent:(Values.Intent.of_json intent)
              ~requestedTerms:(Values.RequestedTermList.of_json
                                 requestedTerms) ())
           (Some Values.CreateAgreementRequestOutput.to_json)
           (Some Values.CreateAgreementRequestOutput.error_to_json)])
let describe_agreement =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING ResourceId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_agreement
           (Values.DescribeAgreementInput.make ~agreementId ())
           (Some Values.DescribeAgreementOutput.to_json)
           (Some Values.DescribeAgreementOutput.error_to_json)])
let get_agreement_cancellation_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementCancellationRequestId =
         flag "agreement-cancellation-request-id" (required string)
           ~doc:"STRING AgreementCancellationRequestId"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_agreement_cancellation_request
           (Values.GetAgreementCancellationRequestInput.make
              ~agreementCancellationRequestId ~agreementId ())
           (Some Values.GetAgreementCancellationRequestOutput.to_json)
           (Some Values.GetAgreementCancellationRequestOutput.error_to_json)])
let get_agreement_entitlements =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING ResourceId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_agreement_entitlements
           (Values.GetAgreementEntitlementsInput.make ?maxResults ?nextToken
              ~agreementId ())
           (Some Values.GetAgreementEntitlementsOutput.to_json)
           (Some Values.GetAgreementEntitlementsOutput.error_to_json)])
let get_agreement_payment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and paymentRequestId =
         flag "payment-request-id" (required string)
           ~doc:"STRING PaymentRequestId"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_agreement_payment_request
           (Values.GetAgreementPaymentRequestInput.make ~paymentRequestId
              ~agreementId ())
           (Some Values.GetAgreementPaymentRequestOutput.to_json)
           (Some Values.GetAgreementPaymentRequestOutput.error_to_json)])
let get_agreement_terms =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING ResourceId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_agreement_terms
           (Values.GetAgreementTermsInput.make ?maxResults ?nextToken
              ~agreementId ()) (Some Values.GetAgreementTermsOutput.to_json)
           (Some Values.GetAgreementTermsOutput.error_to_json)])
let get_billing_adjustment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and billingAdjustmentRequestId =
         flag "billing-adjustment-request-id" (required string)
           ~doc:"STRING BillingAdjustmentRequestId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_billing_adjustment_request
           (Values.GetBillingAdjustmentRequestInput.make ~agreementId
              ~billingAdjustmentRequestId ())
           (Some Values.GetBillingAdjustmentRequestOutput.to_json)
           (Some Values.GetBillingAdjustmentRequestOutput.error_to_json)])
let list_agreement_cancellation_requests =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (optional string) ~doc:"STRING AgreementId"
       and status =
         flag "status" (optional json_arg)
           ~doc:"JSON AgreementCancellationRequestStatus"
       and agreementType =
         flag "agreement-type" (optional string) ~doc:"STRING AgreementType"
       and catalog = flag "catalog" (optional string) ~doc:"STRING Catalog"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and partyType =
         flag "party-type" (required string) ~doc:"STRING PartyType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_agreement_cancellation_requests
           (Values.ListAgreementCancellationRequestsInput.make ?agreementId
              ?status:(Option.map
                         ~f:Values.AgreementCancellationRequestStatus.of_json
                         status) ?agreementType ?catalog ?maxResults
              ?nextToken ~partyType ())
           (Some Values.ListAgreementCancellationRequestsOutput.to_json)
           (Some Values.ListAgreementCancellationRequestsOutput.error_to_json)])
let list_agreement_charges =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and catalog = flag "catalog" (optional string) ~doc:"STRING Catalog"
       and agreementId =
         flag "agreement-id" (optional string) ~doc:"STRING ResourceId"
       and agreementType =
         flag "agreement-type" (optional string) ~doc:"STRING AgreementType"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_agreement_charges
           (Values.ListAgreementChargesInput.make ?catalog ?agreementId
              ?agreementType ?maxResults ?nextToken ())
           (Some Values.ListAgreementChargesOutput.to_json)
           (Some Values.ListAgreementChargesOutput.error_to_json)])
let list_agreement_invoice_line_items =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and invoiceId =
         flag "invoice-id" (optional string) ~doc:"STRING ResourceId"
       and invoiceType =
         flag "invoice-type" (optional json_arg) ~doc:"JSON InvoiceType"
       and invoiceBillingPeriod =
         flag "invoice-billing-period" (optional json_arg)
           ~doc:"JSON InvoiceBillingPeriod"
       and beforeIssuedTime =
         flag "before-issued-time" (optional json_arg) ~doc:"JSON Timestamp"
       and afterIssuedTime =
         flag "after-issued-time" (optional json_arg) ~doc:"JSON Timestamp"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING ResourceId"
       and groupBy =
         flag "group-by" (required json_arg) ~doc:"JSON LineItemGroupBy" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_agreement_invoice_line_items
           (Values.ListAgreementInvoiceLineItemsInput.make ?invoiceId
              ?invoiceType:(Option.map ~f:Values.InvoiceType.of_json
                              invoiceType)
              ?invoiceBillingPeriod:(Option.map
                                       ~f:Values.InvoiceBillingPeriod.of_json
                                       invoiceBillingPeriod)
              ?beforeIssuedTime:(Option.map ~f:Values.Timestamp.of_json
                                   beforeIssuedTime)
              ?afterIssuedTime:(Option.map ~f:Values.Timestamp.of_json
                                  afterIssuedTime) ?maxResults ?nextToken
              ~agreementId ~groupBy:(Values.LineItemGroupBy.of_json groupBy)
              ()) (Some Values.ListAgreementInvoiceLineItemsOutput.to_json)
           (Some Values.ListAgreementInvoiceLineItemsOutput.error_to_json)])
let list_agreement_payment_requests =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementType =
         flag "agreement-type" (optional string) ~doc:"STRING AgreementType"
       and catalog = flag "catalog" (optional string) ~doc:"STRING Catalog"
       and agreementId =
         flag "agreement-id" (optional string) ~doc:"STRING AgreementId"
       and status =
         flag "status" (optional json_arg) ~doc:"JSON PaymentRequestStatus"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and partyType =
         flag "party-type" (required string) ~doc:"STRING PartyType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_agreement_payment_requests
           (Values.ListAgreementPaymentRequestsInput.make ?agreementType
              ?catalog ?agreementId
              ?status:(Option.map ~f:Values.PaymentRequestStatus.of_json
                         status) ?maxResults ?nextToken ~partyType ())
           (Some Values.ListAgreementPaymentRequestsOutput.to_json)
           (Some Values.ListAgreementPaymentRequestsOutput.error_to_json)])
let list_billing_adjustment_requests =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (optional string) ~doc:"STRING AgreementId"
       and status =
         flag "status" (optional json_arg)
           ~doc:"JSON BillingAdjustmentStatus"
       and createdAfter =
         flag "created-after" (optional json_arg) ~doc:"JSON Timestamp"
       and createdBefore =
         flag "created-before" (optional json_arg) ~doc:"JSON Timestamp"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and catalog = flag "catalog" (optional string) ~doc:"STRING Catalog"
       and agreementType =
         flag "agreement-type" (optional string) ~doc:"STRING AgreementType"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_billing_adjustment_requests
           (Values.ListBillingAdjustmentRequestsInput.make ?agreementId
              ?status:(Option.map ~f:Values.BillingAdjustmentStatus.of_json
                         status)
              ?createdAfter:(Option.map ~f:Values.Timestamp.of_json
                               createdAfter)
              ?createdBefore:(Option.map ~f:Values.Timestamp.of_json
                                createdBefore) ?maxResults ?catalog
              ?agreementType ?nextToken ())
           (Some Values.ListBillingAdjustmentRequestsOutput.to_json)
           (Some Values.ListBillingAdjustmentRequestsOutput.error_to_json)])
let reject_agreement_cancellation_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and agreementCancellationRequestId =
         flag "agreement-cancellation-request-id" (required string)
           ~doc:"STRING AgreementCancellationRequestId"
       and rejectionReason =
         flag "rejection-reason" (required string)
           ~doc:"STRING AgreementCancellationRequestRejectionReason" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.reject_agreement_cancellation_request
           (Values.RejectAgreementCancellationRequestInput.make ~agreementId
              ~agreementCancellationRequestId ~rejectionReason ())
           (Some Values.RejectAgreementCancellationRequestOutput.to_json)
           (Some
              Values.RejectAgreementCancellationRequestOutput.error_to_json)])
let reject_agreement_payment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and rejectionReason =
         flag "rejection-reason" (optional string)
           ~doc:"STRING PaymentRequestRejectionReason"
       and paymentRequestId =
         flag "payment-request-id" (required string)
           ~doc:"STRING PaymentRequestId"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.reject_agreement_payment_request
           (Values.RejectAgreementPaymentRequestInput.make ?rejectionReason
              ~paymentRequestId ~agreementId ())
           (Some Values.RejectAgreementPaymentRequestOutput.to_json)
           (Some Values.RejectAgreementPaymentRequestOutput.error_to_json)])
let search_agreements =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and catalog = flag "catalog" (optional string) ~doc:"STRING Catalog"
       and filters =
         flag "filters" (optional json_arg) ~doc:"JSON FilterList"
       and sort = flag "sort" (optional json_arg) ~doc:"JSON Sort"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.search_agreements
           (Values.SearchAgreementsInput.make ?catalog
              ?filters:(Option.map ~f:Values.FilterList.of_json filters)
              ?sort:(Option.map ~f:Values.Sort.of_json sort) ?maxResults
              ?nextToken ()) (Some Values.SearchAgreementsOutput.to_json)
           (Some Values.SearchAgreementsOutput.error_to_json)])
let send_agreement_cancellation_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and description =
         flag "description" (optional string)
           ~doc:"STRING AgreementCancellationRequestDescription"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and reasonCode =
         flag "reason-code" (required json_arg)
           ~doc:"JSON AgreementCancellationRequestReasonCode" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.send_agreement_cancellation_request
           (Values.SendAgreementCancellationRequestInput.make ?clientToken
              ?description ~agreementId
              ~reasonCode:(Values.AgreementCancellationRequestReasonCode.of_json
                             reasonCode) ())
           (Some Values.SendAgreementCancellationRequestOutput.to_json)
           (Some Values.SendAgreementCancellationRequestOutput.error_to_json)])
let send_agreement_payment_request =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and clientToken =
         flag "client-token" (optional string) ~doc:"STRING ClientToken"
       and description =
         flag "description" (optional string)
           ~doc:"STRING PaymentRequestDescription"
       and agreementId =
         flag "agreement-id" (required string) ~doc:"STRING AgreementId"
       and termId = flag "term-id" (required string) ~doc:"STRING TermId"
       and name =
         flag "name" (required string) ~doc:"STRING PaymentRequestName"
       and chargeAmount =
         flag "charge-amount" (required string)
           ~doc:"STRING PositiveAmountUpto8Decimals" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.send_agreement_payment_request
           (Values.SendAgreementPaymentRequestInput.make ?clientToken
              ?description ~agreementId ~termId ~name ~chargeAmount ())
           (Some Values.SendAgreementPaymentRequestOutput.to_json)
           (Some Values.SendAgreementPaymentRequestOutput.error_to_json)])
let update_purchase_orders =
  Command.async ~summary:""
    ([%map_open.Command
       let cli_profile =
         flag "-cli-profile" (optional string) ~doc:"NAME aws profile to use"
       and cli_region =
         flag "-cli-region" (optional string) ~doc:"REGION override region"
       and endpoint_url =
         flag "-endpoint-url" (optional string)
           ~doc:"URL override endpoint url"
       and purchaseOrders =
         flag "purchase-orders" (required json_arg)
           ~doc:"JSON PurchaseOrders" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_purchase_orders
           (Values.UpdatePurchaseOrdersInput.make
              ~purchaseOrders:(Values.PurchaseOrders.of_json purchaseOrders)
              ()) (Some Values.UpdatePurchaseOrdersOutput.to_json)
           (Some Values.UpdatePurchaseOrdersOutput.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("accept-agreement-cancellation-request",
       accept_agreement_cancellation_request);
    ("accept-agreement-payment-request", accept_agreement_payment_request);
    ("accept-agreement-request", accept_agreement_request);
    ("batch-create-billing-adjustment-request",
      batch_create_billing_adjustment_request);
    ("cancel-agreement", cancel_agreement);
    ("cancel-agreement-cancellation-request",
      cancel_agreement_cancellation_request);
    ("cancel-agreement-payment-request", cancel_agreement_payment_request);
    ("create-agreement-request", create_agreement_request);
    ("describe-agreement", describe_agreement);
    ("get-agreement-cancellation-request",
      get_agreement_cancellation_request);
    ("get-agreement-entitlements", get_agreement_entitlements);
    ("get-agreement-payment-request", get_agreement_payment_request);
    ("get-agreement-terms", get_agreement_terms);
    ("get-billing-adjustment-request", get_billing_adjustment_request);
    ("list-agreement-cancellation-requests",
      list_agreement_cancellation_requests);
    ("list-agreement-charges", list_agreement_charges);
    ("list-agreement-invoice-line-items", list_agreement_invoice_line_items);
    ("list-agreement-payment-requests", list_agreement_payment_requests);
    ("list-billing-adjustment-requests", list_billing_adjustment_requests);
    ("reject-agreement-cancellation-request",
      reject_agreement_cancellation_request);
    ("reject-agreement-payment-request", reject_agreement_payment_request);
    ("search-agreements", search_agreements);
    ("send-agreement-cancellation-request",
      send_agreement_cancellation_request);
    ("send-agreement-payment-request", send_agreement_payment_request);
    ("update-purchase-orders", update_purchase_orders)]