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 create_performance_analysis_report =
  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 tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and startTime =
         flag "start-time" (required json_arg) ~doc:"JSON ISOTimestamp"
       and endTime =
         flag "end-time" (required json_arg) ~doc:"JSON ISOTimestamp" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_performance_analysis_report
           (Values.CreatePerformanceAnalysisReportRequest.make
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ~startTime:(Values.ISOTimestamp.of_json startTime)
              ~endTime:(Values.ISOTimestamp.of_json endTime) ())
           (Some Values.CreatePerformanceAnalysisReportResponse.to_json)
           (Some Values.CreatePerformanceAnalysisReportResponse.error_to_json)])
let delete_performance_analysis_report =
  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 serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and analysisReportId =
         flag "analysis-report-id" (required string)
           ~doc:"STRING AnalysisReportId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_performance_analysis_report
           (Values.DeletePerformanceAnalysisReportRequest.make
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ~analysisReportId ())
           (Some Values.DeletePerformanceAnalysisReportResponse.to_json)
           (Some Values.DeletePerformanceAnalysisReportResponse.error_to_json)])
let describe_dimension_keys =
  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 periodInSeconds =
         flag "period-in-seconds" (optional int) ~doc:"INT Integer"
       and additionalMetrics =
         flag "additional-metrics" (optional json_arg)
           ~doc:"JSON AdditionalMetricsList"
       and partitionBy =
         flag "partition-by" (optional json_arg) ~doc:"JSON DimensionGroup"
       and filter =
         flag "filter" (optional json_arg) ~doc:"JSON MetricQueryFilterMap"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and startTime =
         flag "start-time" (required json_arg) ~doc:"JSON ISOTimestamp"
       and endTime =
         flag "end-time" (required json_arg) ~doc:"JSON ISOTimestamp"
       and metric =
         flag "metric" (required string) ~doc:"STRING RequestString"
       and groupBy =
         flag "group-by" (required json_arg) ~doc:"JSON DimensionGroup" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.describe_dimension_keys
           (Values.DescribeDimensionKeysRequest.make ?periodInSeconds
              ?additionalMetrics:(Option.map
                                    ~f:Values.AdditionalMetricsList.of_json
                                    additionalMetrics)
              ?partitionBy:(Option.map ~f:Values.DimensionGroup.of_json
                              partitionBy)
              ?filter:(Option.map ~f:Values.MetricQueryFilterMap.of_json
                         filter) ?maxResults ?nextToken
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ~startTime:(Values.ISOTimestamp.of_json startTime)
              ~endTime:(Values.ISOTimestamp.of_json endTime) ~metric
              ~groupBy:(Values.DimensionGroup.of_json groupBy) ())
           (Some Values.DescribeDimensionKeysResponse.to_json)
           (Some Values.DescribeDimensionKeysResponse.error_to_json)])
let get_dimension_key_details =
  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 requestedDimensions =
         flag "requested-dimensions" (optional json_arg)
           ~doc:"JSON RequestedDimensionList"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and group = flag "group" (required string) ~doc:"STRING RequestString"
       and groupIdentifier =
         flag "group-identifier" (required string)
           ~doc:"STRING RequestString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_dimension_key_details
           (Values.GetDimensionKeyDetailsRequest.make
              ?requestedDimensions:(Option.map
                                      ~f:Values.RequestedDimensionList.of_json
                                      requestedDimensions)
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ~group ~groupIdentifier ())
           (Some Values.GetDimensionKeyDetailsResponse.to_json)
           (Some Values.GetDimensionKeyDetailsResponse.error_to_json)])
let get_performance_analysis_report =
  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 textFormat =
         flag "text-format" (optional json_arg) ~doc:"JSON TextFormat"
       and acceptLanguage =
         flag "accept-language" (optional json_arg)
           ~doc:"JSON AcceptLanguage"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and analysisReportId =
         flag "analysis-report-id" (required string)
           ~doc:"STRING AnalysisReportId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_performance_analysis_report
           (Values.GetPerformanceAnalysisReportRequest.make
              ?textFormat:(Option.map ~f:Values.TextFormat.of_json textFormat)
              ?acceptLanguage:(Option.map ~f:Values.AcceptLanguage.of_json
                                 acceptLanguage)
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ~analysisReportId ())
           (Some Values.GetPerformanceAnalysisReportResponse.to_json)
           (Some Values.GetPerformanceAnalysisReportResponse.error_to_json)])
let get_resource_metadata =
  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 serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_metadata
           (Values.GetResourceMetadataRequest.make
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ())
           (Some Values.GetResourceMetadataResponse.to_json)
           (Some Values.GetResourceMetadataResponse.error_to_json)])
let get_resource_metrics =
  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 periodInSeconds =
         flag "period-in-seconds" (optional int) ~doc:"INT Integer"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and periodAlignment =
         flag "period-alignment" (optional json_arg)
           ~doc:"JSON PeriodAlignment"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and metricQueries =
         flag "metric-queries" (required json_arg)
           ~doc:"JSON MetricQueryList"
       and startTime =
         flag "start-time" (required json_arg) ~doc:"JSON ISOTimestamp"
       and endTime =
         flag "end-time" (required json_arg) ~doc:"JSON ISOTimestamp" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_metrics
           (Values.GetResourceMetricsRequest.make ?periodInSeconds
              ?maxResults ?nextToken
              ?periodAlignment:(Option.map ~f:Values.PeriodAlignment.of_json
                                  periodAlignment)
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier
              ~metricQueries:(Values.MetricQueryList.of_json metricQueries)
              ~startTime:(Values.ISOTimestamp.of_json startTime)
              ~endTime:(Values.ISOTimestamp.of_json endTime) ())
           (Some Values.GetResourceMetricsResponse.to_json)
           (Some Values.GetResourceMetricsResponse.error_to_json)])
let list_available_resource_dimensions =
  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 authorizedActions =
         flag "authorized-actions" (optional json_arg)
           ~doc:"JSON AuthorizedActionsList"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and metrics =
         flag "metrics" (required json_arg) ~doc:"JSON DimensionsMetricList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_available_resource_dimensions
           (Values.ListAvailableResourceDimensionsRequest.make ?maxResults
              ?nextToken
              ?authorizedActions:(Option.map
                                    ~f:Values.AuthorizedActionsList.of_json
                                    authorizedActions)
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier
              ~metrics:(Values.DimensionsMetricList.of_json metrics) ())
           (Some Values.ListAvailableResourceDimensionsResponse.to_json)
           (Some Values.ListAvailableResourceDimensionsResponse.error_to_json)])
let list_available_resource_metrics =
  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 nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString"
       and metricTypes =
         flag "metric-types" (required json_arg) ~doc:"JSON MetricTypeList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_available_resource_metrics
           (Values.ListAvailableResourceMetricsRequest.make ?nextToken
              ?maxResults
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier
              ~metricTypes:(Values.MetricTypeList.of_json metricTypes) ())
           (Some Values.ListAvailableResourceMetricsResponse.to_json)
           (Some Values.ListAvailableResourceMetricsResponse.error_to_json)])
let list_performance_analysis_reports =
  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 nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResults"
       and listTags = flag "list-tags" (optional bool) ~doc:"BOOL Boolean"
       and serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and identifier =
         flag "identifier" (required string) ~doc:"STRING IdentifierString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_performance_analysis_reports
           (Values.ListPerformanceAnalysisReportsRequest.make ?nextToken
              ?maxResults ?listTags
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~identifier ())
           (Some Values.ListPerformanceAnalysisReportsResponse.to_json)
           (Some Values.ListPerformanceAnalysisReportsResponse.error_to_json)])
let list_tags_for_resource =
  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 serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and resourceARN =
         flag "resource-a-r-n" (required string)
           ~doc:"STRING AmazonResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_tags_for_resource
           (Values.ListTagsForResourceRequest.make
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~resourceARN ())
           (Some Values.ListTagsForResourceResponse.to_json)
           (Some Values.ListTagsForResourceResponse.error_to_json)])
let tag_resource =
  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 serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and resourceARN =
         flag "resource-a-r-n" (required string)
           ~doc:"STRING AmazonResourceName"
       and tags = flag "tags" (required json_arg) ~doc:"JSON TagList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.tag_resource
           (Values.TagResourceRequest.make
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~resourceARN ~tags:(Values.TagList.of_json tags) ())
           (Some Values.TagResourceResponse.to_json)
           (Some Values.TagResourceResponse.error_to_json)])
let untag_resource =
  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 serviceType =
         flag "service-type" (required json_arg) ~doc:"JSON ServiceType"
       and resourceARN =
         flag "resource-a-r-n" (required string)
           ~doc:"STRING AmazonResourceName"
       and tagKeys =
         flag "tag-keys" (required json_arg) ~doc:"JSON TagKeyList" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.untag_resource
           (Values.UntagResourceRequest.make
              ~serviceType:(Values.ServiceType.of_json serviceType)
              ~resourceARN ~tagKeys:(Values.TagKeyList.of_json tagKeys) ())
           (Some Values.UntagResourceResponse.to_json)
           (Some Values.UntagResourceResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("create-performance-analysis-report",
       create_performance_analysis_report);
    ("delete-performance-analysis-report",
      delete_performance_analysis_report);
    ("describe-dimension-keys", describe_dimension_keys);
    ("get-dimension-key-details", get_dimension_key_details);
    ("get-performance-analysis-report", get_performance_analysis_report);
    ("get-resource-metadata", get_resource_metadata);
    ("get-resource-metrics", get_resource_metrics);
    ("list-available-resource-dimensions",
      list_available_resource_dimensions);
    ("list-available-resource-metrics", list_available_resource_metrics);
    ("list-performance-analysis-reports", list_performance_analysis_reports);
    ("list-tags-for-resource", list_tags_for_resource);
    ("tag-resource", tag_resource);
    ("untag-resource", untag_resource)]