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_connection =
  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 providerType =
         flag "provider-type" (optional json_arg) ~doc:"JSON ProviderType"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and hostArn = flag "host-arn" (optional string) ~doc:"STRING HostArn"
       and connectionName =
         flag "connection-name" (required string)
           ~doc:"STRING ConnectionName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_connection
           (Values.CreateConnectionInput.make
              ?providerType:(Option.map ~f:Values.ProviderType.of_json
                               providerType)
              ?tags:(Option.map ~f:Values.TagList.of_json tags) ?hostArn
              ~connectionName ())
           (Some Values.CreateConnectionOutput.to_json)
           (Some Values.CreateConnectionOutput.error_to_json)])
let create_host =
  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 vpcConfiguration =
         flag "vpc-configuration" (optional json_arg)
           ~doc:"JSON VpcConfiguration"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and name = flag "name" (required string) ~doc:"STRING HostName"
       and providerType =
         flag "provider-type" (required json_arg) ~doc:"JSON ProviderType"
       and providerEndpoint =
         flag "provider-endpoint" (required string) ~doc:"STRING Url" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_host
           (Values.CreateHostInput.make
              ?vpcConfiguration:(Option.map
                                   ~f:Values.VpcConfiguration.of_json
                                   vpcConfiguration)
              ?tags:(Option.map ~f:Values.TagList.of_json tags) ~name
              ~providerType:(Values.ProviderType.of_json providerType)
              ~providerEndpoint ()) (Some Values.CreateHostOutput.to_json)
           (Some Values.CreateHostOutput.error_to_json)])
let create_repository_link =
  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 encryptionKeyArn =
         flag "encryption-key-arn" (optional string) ~doc:"STRING KmsKeyArn"
       and tags = flag "tags" (optional json_arg) ~doc:"JSON TagList"
       and connectionArn =
         flag "connection-arn" (required string) ~doc:"STRING ConnectionArn"
       and ownerId = flag "owner-id" (required string) ~doc:"STRING OwnerId"
       and repositoryName =
         flag "repository-name" (required string)
           ~doc:"STRING RepositoryName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_repository_link
           (Values.CreateRepositoryLinkInput.make ?encryptionKeyArn
              ?tags:(Option.map ~f:Values.TagList.of_json tags)
              ~connectionArn ~ownerId ~repositoryName ())
           (Some Values.CreateRepositoryLinkOutput.to_json)
           (Some Values.CreateRepositoryLinkOutput.error_to_json)])
let create_sync_configuration =
  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 publishDeploymentStatus =
         flag "publish-deployment-status" (optional json_arg)
           ~doc:"JSON PublishDeploymentStatus"
       and triggerResourceUpdateOn =
         flag "trigger-resource-update-on" (optional json_arg)
           ~doc:"JSON TriggerResourceUpdateOn"
       and branch = flag "branch" (required string) ~doc:"STRING BranchName"
       and configFile =
         flag "config-file" (required string)
           ~doc:"STRING DeploymentFilePath"
       and repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName"
       and roleArn =
         flag "role-arn" (required string) ~doc:"STRING IamRoleArn"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.create_sync_configuration
           (Values.CreateSyncConfigurationInput.make
              ?publishDeploymentStatus:(Option.map
                                          ~f:Values.PublishDeploymentStatus.of_json
                                          publishDeploymentStatus)
              ?triggerResourceUpdateOn:(Option.map
                                          ~f:Values.TriggerResourceUpdateOn.of_json
                                          triggerResourceUpdateOn) ~branch
              ~configFile ~repositoryLinkId ~resourceName ~roleArn
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.CreateSyncConfigurationOutput.to_json)
           (Some Values.CreateSyncConfigurationOutput.error_to_json)])
let delete_connection =
  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 connectionArn =
         flag "connection-arn" (required string) ~doc:"STRING ConnectionArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_connection
           (Values.DeleteConnectionInput.make ~connectionArn ())
           (Some Values.DeleteConnectionOutput.to_json)
           (Some Values.DeleteConnectionOutput.error_to_json)])
let delete_host =
  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 hostArn = flag "host-arn" (required string) ~doc:"STRING HostArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_host (Values.DeleteHostInput.make ~hostArn ())
           (Some Values.DeleteHostOutput.to_json)
           (Some Values.DeleteHostOutput.error_to_json)])
let delete_repository_link =
  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 repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_repository_link
           (Values.DeleteRepositoryLinkInput.make ~repositoryLinkId ())
           (Some Values.DeleteRepositoryLinkOutput.to_json)
           (Some Values.DeleteRepositoryLinkOutput.error_to_json)])
let delete_sync_configuration =
  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 syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.delete_sync_configuration
           (Values.DeleteSyncConfigurationInput.make
              ~syncType:(Values.SyncConfigurationType.of_json syncType)
              ~resourceName ())
           (Some Values.DeleteSyncConfigurationOutput.to_json)
           (Some Values.DeleteSyncConfigurationOutput.error_to_json)])
let get_connection =
  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 connectionArn =
         flag "connection-arn" (required string) ~doc:"STRING ConnectionArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_connection
           (Values.GetConnectionInput.make ~connectionArn ())
           (Some Values.GetConnectionOutput.to_json)
           (Some Values.GetConnectionOutput.error_to_json)])
let get_host =
  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 hostArn = flag "host-arn" (required string) ~doc:"STRING HostArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_host (Values.GetHostInput.make ~hostArn ())
           (Some Values.GetHostOutput.to_json)
           (Some Values.GetHostOutput.error_to_json)])
let get_repository_link =
  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 repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_repository_link
           (Values.GetRepositoryLinkInput.make ~repositoryLinkId ())
           (Some Values.GetRepositoryLinkOutput.to_json)
           (Some Values.GetRepositoryLinkOutput.error_to_json)])
let get_repository_sync_status =
  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 branch = flag "branch" (required string) ~doc:"STRING BranchName"
       and repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_repository_sync_status
           (Values.GetRepositorySyncStatusInput.make ~branch
              ~repositoryLinkId
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.GetRepositorySyncStatusOutput.to_json)
           (Some Values.GetRepositorySyncStatusOutput.error_to_json)])
let get_resource_sync_status =
  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 resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_resource_sync_status
           (Values.GetResourceSyncStatusInput.make ~resourceName
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.GetResourceSyncStatusOutput.to_json)
           (Some Values.GetResourceSyncStatusOutput.error_to_json)])
let get_sync_blocker_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 syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sync_blocker_summary
           (Values.GetSyncBlockerSummaryInput.make
              ~syncType:(Values.SyncConfigurationType.of_json syncType)
              ~resourceName ())
           (Some Values.GetSyncBlockerSummaryOutput.to_json)
           (Some Values.GetSyncBlockerSummaryOutput.error_to_json)])
let get_sync_configuration =
  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 syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.get_sync_configuration
           (Values.GetSyncConfigurationInput.make
              ~syncType:(Values.SyncConfigurationType.of_json syncType)
              ~resourceName ())
           (Some Values.GetSyncConfigurationOutput.to_json)
           (Some Values.GetSyncConfigurationOutput.error_to_json)])
let list_connections =
  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 providerTypeFilter =
         flag "provider-type-filter" (optional json_arg)
           ~doc:"JSON ProviderType"
       and hostArnFilter =
         flag "host-arn-filter" (optional string) ~doc:"STRING HostArn"
       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_connections
           (Values.ListConnectionsInput.make
              ?providerTypeFilter:(Option.map ~f:Values.ProviderType.of_json
                                     providerTypeFilter) ?hostArnFilter
              ?maxResults ?nextToken ())
           (Some Values.ListConnectionsOutput.to_json)
           (Some Values.ListConnectionsOutput.error_to_json)])
let list_hosts =
  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" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_hosts
           (Values.ListHostsInput.make ?maxResults ?nextToken ())
           (Some Values.ListHostsOutput.to_json)
           (Some Values.ListHostsOutput.error_to_json)])
let list_repository_links =
  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 SharpNextToken" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_repository_links
           (Values.ListRepositoryLinksInput.make ?maxResults ?nextToken ())
           (Some Values.ListRepositoryLinksOutput.to_json)
           (Some Values.ListRepositoryLinksOutput.error_to_json)])
let list_repository_sync_definitions =
  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 repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_repository_sync_definitions
           (Values.ListRepositorySyncDefinitionsInput.make ~repositoryLinkId
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.ListRepositorySyncDefinitionsOutput.to_json)
           (Some Values.ListRepositorySyncDefinitionsOutput.error_to_json)])
let list_sync_configurations =
  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 SharpNextToken"
       and repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_sync_configurations
           (Values.ListSyncConfigurationsInput.make ?maxResults ?nextToken
              ~repositoryLinkId
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.ListSyncConfigurationsOutput.to_json)
           (Some Values.ListSyncConfigurationsOutput.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 resourceArn =
         flag "resource-arn" (required string)
           ~doc:"STRING AmazonResourceName" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.list_tags_for_resource
           (Values.ListTagsForResourceInput.make ~resourceArn ())
           (Some Values.ListTagsForResourceOutput.to_json)
           (Some Values.ListTagsForResourceOutput.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 resourceArn =
         flag "resource-arn" (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.TagResourceInput.make ~resourceArn
              ~tags:(Values.TagList.of_json tags) ())
           (Some Values.TagResourceOutput.to_json)
           (Some Values.TagResourceOutput.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 resourceArn =
         flag "resource-arn" (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.UntagResourceInput.make ~resourceArn
              ~tagKeys:(Values.TagKeyList.of_json tagKeys) ())
           (Some Values.UntagResourceOutput.to_json)
           (Some Values.UntagResourceOutput.error_to_json)])
let update_host =
  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 providerEndpoint =
         flag "provider-endpoint" (optional string) ~doc:"STRING Url"
       and vpcConfiguration =
         flag "vpc-configuration" (optional json_arg)
           ~doc:"JSON VpcConfiguration"
       and hostArn = flag "host-arn" (required string) ~doc:"STRING HostArn" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_host
           (Values.UpdateHostInput.make ?providerEndpoint
              ?vpcConfiguration:(Option.map
                                   ~f:Values.VpcConfiguration.of_json
                                   vpcConfiguration) ~hostArn ())
           (Some Values.UpdateHostOutput.to_json)
           (Some Values.UpdateHostOutput.error_to_json)])
let update_repository_link =
  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 connectionArn =
         flag "connection-arn" (optional string) ~doc:"STRING ConnectionArn"
       and encryptionKeyArn =
         flag "encryption-key-arn" (optional string) ~doc:"STRING KmsKeyArn"
       and repositoryLinkId =
         flag "repository-link-id" (required string)
           ~doc:"STRING RepositoryLinkId" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_repository_link
           (Values.UpdateRepositoryLinkInput.make ?connectionArn
              ?encryptionKeyArn ~repositoryLinkId ())
           (Some Values.UpdateRepositoryLinkOutput.to_json)
           (Some Values.UpdateRepositoryLinkOutput.error_to_json)])
let update_sync_blocker =
  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 Id"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName"
       and resolvedReason =
         flag "resolved-reason" (required string)
           ~doc:"STRING ResolvedReason" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_sync_blocker
           (Values.UpdateSyncBlockerInput.make ~id
              ~syncType:(Values.SyncConfigurationType.of_json syncType)
              ~resourceName ~resolvedReason ())
           (Some Values.UpdateSyncBlockerOutput.to_json)
           (Some Values.UpdateSyncBlockerOutput.error_to_json)])
let update_sync_configuration =
  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 branch = flag "branch" (optional string) ~doc:"STRING BranchName"
       and configFile =
         flag "config-file" (optional string)
           ~doc:"STRING DeploymentFilePath"
       and repositoryLinkId =
         flag "repository-link-id" (optional string)
           ~doc:"STRING RepositoryLinkId"
       and roleArn =
         flag "role-arn" (optional string) ~doc:"STRING IamRoleArn"
       and publishDeploymentStatus =
         flag "publish-deployment-status" (optional json_arg)
           ~doc:"JSON PublishDeploymentStatus"
       and triggerResourceUpdateOn =
         flag "trigger-resource-update-on" (optional json_arg)
           ~doc:"JSON TriggerResourceUpdateOn"
       and resourceName =
         flag "resource-name" (required string) ~doc:"STRING ResourceName"
       and syncType =
         flag "sync-type" (required json_arg)
           ~doc:"JSON SyncConfigurationType" in
       fun () ->
         call ?endpoint_url ?profile:cli_profile ?region:cli_region
           Io.update_sync_configuration
           (Values.UpdateSyncConfigurationInput.make ?branch ?configFile
              ?repositoryLinkId ?roleArn
              ?publishDeploymentStatus:(Option.map
                                          ~f:Values.PublishDeploymentStatus.of_json
                                          publishDeploymentStatus)
              ?triggerResourceUpdateOn:(Option.map
                                          ~f:Values.TriggerResourceUpdateOn.of_json
                                          triggerResourceUpdateOn)
              ~resourceName
              ~syncType:(Values.SyncConfigurationType.of_json syncType) ())
           (Some Values.UpdateSyncConfigurationOutput.to_json)
           (Some Values.UpdateSyncConfigurationOutput.error_to_json)])
let main =
  Command.group
    ~summary:((Awso.Service.to_string Values.service) ^ " commands")
    [("create-connection", create_connection);
    ("create-host", create_host);
    ("create-repository-link", create_repository_link);
    ("create-sync-configuration", create_sync_configuration);
    ("delete-connection", delete_connection);
    ("delete-host", delete_host);
    ("delete-repository-link", delete_repository_link);
    ("delete-sync-configuration", delete_sync_configuration);
    ("get-connection", get_connection);
    ("get-host", get_host);
    ("get-repository-link", get_repository_link);
    ("get-repository-sync-status", get_repository_sync_status);
    ("get-resource-sync-status", get_resource_sync_status);
    ("get-sync-blocker-summary", get_sync_blocker_summary);
    ("get-sync-configuration", get_sync_configuration);
    ("list-connections", list_connections);
    ("list-hosts", list_hosts);
    ("list-repository-links", list_repository_links);
    ("list-repository-sync-definitions", list_repository_sync_definitions);
    ("list-sync-configurations", list_sync_configurations);
    ("list-tags-for-resource", list_tags_for_resource);
    ("tag-resource", tag_resource);
    ("untag-resource", untag_resource);
    ("update-host", update_host);
    ("update-repository-link", update_repository_link);
    ("update-sync-blocker", update_sync_blocker);
    ("update-sync-configuration", update_sync_configuration)]