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 get_application_component_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 applicationComponentId =
         flag "application-component-id" (required string)
           ~doc:"STRING ApplicationComponentId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_application_component_details
           (Values.GetApplicationComponentDetailsRequest.make
              ~applicationComponentId ())
           (Some Values.GetApplicationComponentDetailsResponse.to_json)
           (Some Values.GetApplicationComponentDetailsResponse.error_to_json)])
let get_application_component_strategies =
  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 applicationComponentId =
         flag "application-component-id" (required string)
           ~doc:"STRING ApplicationComponentId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_application_component_strategies
           (Values.GetApplicationComponentStrategiesRequest.make
              ~applicationComponentId ())
           (Some Values.GetApplicationComponentStrategiesResponse.to_json)
           (Some
              Values.GetApplicationComponentStrategiesResponse.error_to_json)])
let get_assessment =
  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 id = flag "id" (required string) ~doc:"STRING AsyncTaskId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_assessment (Values.GetAssessmentRequest.make ~id ())
           (Some Values.GetAssessmentResponse.to_json)
           (Some Values.GetAssessmentResponse.error_to_json)])
let get_import_file_task =
  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 id = flag "id" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_import_file_task
           (Values.GetImportFileTaskRequest.make ~id ())
           (Some Values.GetImportFileTaskResponse.to_json)
           (Some Values.GetImportFileTaskResponse.error_to_json)])
let get_latest_assessment_id =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_latest_assessment_id
           (Values.GetLatestAssessmentIdRequest.make ())
           (Some Values.GetLatestAssessmentIdResponse.to_json)
           (Some Values.GetLatestAssessmentIdResponse.error_to_json)])
let get_portfolio_preferences =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_portfolio_preferences
           (Values.GetPortfolioPreferencesRequest.make ())
           (Some Values.GetPortfolioPreferencesResponse.to_json)
           (Some Values.GetPortfolioPreferencesResponse.error_to_json)])
let get_portfolio_summary =
  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 () = return () in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_portfolio_summary
           (Values.GetPortfolioSummaryRequest.make ())
           (Some Values.GetPortfolioSummaryResponse.to_json)
           (Some Values.GetPortfolioSummaryResponse.error_to_json)])
let get_recommendation_report_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 id =
         flag "id" (required string) ~doc:"STRING RecommendationTaskId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_recommendation_report_details
           (Values.GetRecommendationReportDetailsRequest.make ~id ())
           (Some Values.GetRecommendationReportDetailsResponse.to_json)
           (Some Values.GetRecommendationReportDetailsResponse.error_to_json)])
let get_server_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 maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResult"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and serverId =
         flag "server-id" (required string) ~doc:"STRING ServerId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_server_details
           (Values.GetServerDetailsRequest.make ?maxResults ?nextToken
              ~serverId ()) (Some Values.GetServerDetailsResponse.to_json)
           (Some Values.GetServerDetailsResponse.error_to_json)])
let get_server_strategies =
  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 serverId =
         flag "server-id" (required string) ~doc:"STRING ServerId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_server_strategies
           (Values.GetServerStrategiesRequest.make ~serverId ())
           (Some Values.GetServerStrategiesResponse.to_json)
           (Some Values.GetServerStrategiesResponse.error_to_json)])
let list_analyzable_servers =
  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 MaxResult"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and sort = flag "sort" (optional json_arg) ~doc:"JSON SortOrder" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_analyzable_servers
           (Values.ListAnalyzableServersRequest.make ?maxResults ?nextToken
              ?sort:(Option.map ~f:Values.SortOrder.of_json sort) ())
           (Some Values.ListAnalyzableServersResponse.to_json)
           (Some Values.ListAnalyzableServersResponse.error_to_json)])
let list_application_components =
  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 applicationComponentCriteria =
         flag "application-component-criteria" (optional json_arg)
           ~doc:"JSON ApplicationComponentCriteria"
       and filterValue =
         flag "filter-value" (optional string)
           ~doc:"STRING ListApplicationComponentsRequestFilterValueString"
       and groupIdFilter =
         flag "group-id-filter" (optional json_arg) ~doc:"JSON GroupIds"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResult"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and sort = flag "sort" (optional json_arg) ~doc:"JSON SortOrder" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_application_components
           (Values.ListApplicationComponentsRequest.make
              ?applicationComponentCriteria:(Option.map
                                               ~f:Values.ApplicationComponentCriteria.of_json
                                               applicationComponentCriteria)
              ?filterValue
              ?groupIdFilter:(Option.map ~f:Values.GroupIds.of_json
                                groupIdFilter) ?maxResults ?nextToken
              ?sort:(Option.map ~f:Values.SortOrder.of_json sort) ())
           (Some Values.ListApplicationComponentsResponse.to_json)
           (Some Values.ListApplicationComponentsResponse.error_to_json)])
let list_collectors =
  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 MaxResult"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_collectors
           (Values.ListCollectorsRequest.make ?maxResults ?nextToken ())
           (Some Values.ListCollectorsResponse.to_json)
           (Some Values.ListCollectorsResponse.error_to_json)])
let list_import_file_task =
  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 Integer"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_import_file_task
           (Values.ListImportFileTaskRequest.make ?maxResults ?nextToken ())
           (Some Values.ListImportFileTaskResponse.to_json)
           (Some Values.ListImportFileTaskResponse.error_to_json)])
let list_servers =
  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 filterValue =
         flag "filter-value" (optional string) ~doc:"STRING String"
       and groupIdFilter =
         flag "group-id-filter" (optional json_arg) ~doc:"JSON GroupIds"
       and maxResults =
         flag "max-results" (optional int) ~doc:"INT MaxResult"
       and nextToken =
         flag "next-token" (optional string) ~doc:"STRING NextToken"
       and serverCriteria =
         flag "server-criteria" (optional json_arg)
           ~doc:"JSON ServerCriteria"
       and sort = flag "sort" (optional json_arg) ~doc:"JSON SortOrder" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_servers
           (Values.ListServersRequest.make ?filterValue
              ?groupIdFilter:(Option.map ~f:Values.GroupIds.of_json
                                groupIdFilter) ?maxResults ?nextToken
              ?serverCriteria:(Option.map ~f:Values.ServerCriteria.of_json
                                 serverCriteria)
              ?sort:(Option.map ~f:Values.SortOrder.of_json sort) ())
           (Some Values.ListServersResponse.to_json)
           (Some Values.ListServersResponse.error_to_json)])
let put_portfolio_preferences =
  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 applicationMode =
         flag "application-mode" (optional json_arg)
           ~doc:"JSON ApplicationMode"
       and applicationPreferences =
         flag "application-preferences" (optional json_arg)
           ~doc:"JSON ApplicationPreferences"
       and databasePreferences =
         flag "database-preferences" (optional json_arg)
           ~doc:"JSON DatabasePreferences"
       and prioritizeBusinessGoals =
         flag "prioritize-business-goals" (optional json_arg)
           ~doc:"JSON PrioritizeBusinessGoals" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.put_portfolio_preferences
           (Values.PutPortfolioPreferencesRequest.make
              ?applicationMode:(Option.map ~f:Values.ApplicationMode.of_json
                                  applicationMode)
              ?applicationPreferences:(Option.map
                                         ~f:Values.ApplicationPreferences.of_json
                                         applicationPreferences)
              ?databasePreferences:(Option.map
                                      ~f:Values.DatabasePreferences.of_json
                                      databasePreferences)
              ?prioritizeBusinessGoals:(Option.map
                                          ~f:Values.PrioritizeBusinessGoals.of_json
                                          prioritizeBusinessGoals) ())
           (Some Values.PutPortfolioPreferencesResponse.to_json)
           (Some Values.PutPortfolioPreferencesResponse.error_to_json)])
let start_assessment =
  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 assessmentDataSourceType =
         flag "assessment-data-source-type" (optional json_arg)
           ~doc:"JSON AssessmentDataSourceType"
       and assessmentTargets =
         flag "assessment-targets" (optional json_arg)
           ~doc:"JSON AssessmentTargets"
       and s3bucketForAnalysisData =
         flag "s3bucket-for-analysis-data" (optional string)
           ~doc:"STRING StartAssessmentRequestS3bucketForAnalysisDataString"
       and s3bucketForReportData =
         flag "s3bucket-for-report-data" (optional string)
           ~doc:"STRING StartAssessmentRequestS3bucketForReportDataString" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_assessment
           (Values.StartAssessmentRequest.make
              ?assessmentDataSourceType:(Option.map
                                           ~f:Values.AssessmentDataSourceType.of_json
                                           assessmentDataSourceType)
              ?assessmentTargets:(Option.map
                                    ~f:Values.AssessmentTargets.of_json
                                    assessmentTargets)
              ?s3bucketForAnalysisData ?s3bucketForReportData ())
           (Some Values.StartAssessmentResponse.to_json)
           (Some Values.StartAssessmentResponse.error_to_json)])
let start_import_file_task =
  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 dataSourceType =
         flag "data-source-type" (optional json_arg)
           ~doc:"JSON DataSourceType"
       and groupId = flag "group-id" (optional json_arg) ~doc:"JSON GroupIds"
       and s3bucketForReportData =
         flag "s3bucket-for-report-data" (optional string)
           ~doc:"STRING StartImportFileTaskRequestS3bucketForReportDataString"
       and s3Bucket =
         flag "s3-bucket" (required string) ~doc:"STRING importS3Bucket"
       and name =
         flag "name" (required string)
           ~doc:"STRING StartImportFileTaskRequestNameString"
       and s3key = flag "s3key" (required string) ~doc:"STRING String" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_import_file_task
           (Values.StartImportFileTaskRequest.make
              ?dataSourceType:(Option.map ~f:Values.DataSourceType.of_json
                                 dataSourceType)
              ?groupId:(Option.map ~f:Values.GroupIds.of_json groupId)
              ?s3bucketForReportData ~s3Bucket ~name ~s3key ())
           (Some Values.StartImportFileTaskResponse.to_json)
           (Some Values.StartImportFileTaskResponse.error_to_json)])
let start_recommendation_report_generation =
  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 groupIdFilter =
         flag "group-id-filter" (optional json_arg) ~doc:"JSON GroupIds"
       and outputFormat =
         flag "output-format" (optional json_arg) ~doc:"JSON OutputFormat" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.start_recommendation_report_generation
           (Values.StartRecommendationReportGenerationRequest.make
              ?groupIdFilter:(Option.map ~f:Values.GroupIds.of_json
                                groupIdFilter)
              ?outputFormat:(Option.map ~f:Values.OutputFormat.of_json
                               outputFormat) ())
           (Some Values.StartRecommendationReportGenerationResponse.to_json)
           (Some
              Values.StartRecommendationReportGenerationResponse.error_to_json)])
let stop_assessment =
  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 assessmentId =
         flag "assessment-id" (required string) ~doc:"STRING AsyncTaskId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.stop_assessment
           (Values.StopAssessmentRequest.make ~assessmentId ())
           (Some Values.StopAssessmentResponse.to_json)
           (Some Values.StopAssessmentResponse.error_to_json)])
let update_application_component_config =
  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 appType = flag "app-type" (optional json_arg) ~doc:"JSON AppType"
       and configureOnly =
         flag "configure-only" (optional bool) ~doc:"BOOL Boolean"
       and inclusionStatus =
         flag "inclusion-status" (optional json_arg)
           ~doc:"JSON InclusionStatus"
       and secretsManagerKey =
         flag "secrets-manager-key" (optional string)
           ~doc:"STRING SecretsManagerKey"
       and sourceCodeList =
         flag "source-code-list" (optional json_arg)
           ~doc:"JSON SourceCodeList"
       and strategyOption =
         flag "strategy-option" (optional json_arg)
           ~doc:"JSON StrategyOption"
       and applicationComponentId =
         flag "application-component-id" (required string)
           ~doc:"STRING ApplicationComponentId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_application_component_config
           (Values.UpdateApplicationComponentConfigRequest.make
              ?appType:(Option.map ~f:Values.AppType.of_json appType)
              ?configureOnly
              ?inclusionStatus:(Option.map ~f:Values.InclusionStatus.of_json
                                  inclusionStatus) ?secretsManagerKey
              ?sourceCodeList:(Option.map ~f:Values.SourceCodeList.of_json
                                 sourceCodeList)
              ?strategyOption:(Option.map ~f:Values.StrategyOption.of_json
                                 strategyOption) ~applicationComponentId ())
           (Some Values.UpdateApplicationComponentConfigResponse.to_json)
           (Some
              Values.UpdateApplicationComponentConfigResponse.error_to_json)])
let update_server_config =
  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 strategyOption =
         flag "strategy-option" (optional json_arg)
           ~doc:"JSON StrategyOption"
       and serverId =
         flag "server-id" (required string) ~doc:"STRING ServerId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_server_config
           (Values.UpdateServerConfigRequest.make
              ?strategyOption:(Option.map ~f:Values.StrategyOption.of_json
                                 strategyOption) ~serverId ())
           (Some Values.UpdateServerConfigResponse.to_json)
           (Some Values.UpdateServerConfigResponse.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("get-application-component-details", get_application_component_details);
    ("get-application-component-strategies",
      get_application_component_strategies);
    ("get-assessment", get_assessment);
    ("get-import-file-task", get_import_file_task);
    ("get-latest-assessment-id", get_latest_assessment_id);
    ("get-portfolio-preferences", get_portfolio_preferences);
    ("get-portfolio-summary", get_portfolio_summary);
    ("get-recommendation-report-details", get_recommendation_report_details);
    ("get-server-details", get_server_details);
    ("get-server-strategies", get_server_strategies);
    ("list-analyzable-servers", list_analyzable_servers);
    ("list-application-components", list_application_components);
    ("list-collectors", list_collectors);
    ("list-import-file-task", list_import_file_task);
    ("list-servers", list_servers);
    ("put-portfolio-preferences", put_portfolio_preferences);
    ("start-assessment", start_assessment);
    ("start-import-file-task", start_import_file_task);
    ("start-recommendation-report-generation",
      start_recommendation_report_generation);
    ("stop-assessment", stop_assessment);
    ("update-application-component-config",
      update_application_component_config);
    ("update-server-config", update_server_config)]