set default operation

paws-r · Jul 16, 2024 · db42106 · db42106
1 parent df92a0a
commit db42106
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/paws.common/R/client.R b/paws.common/R/client.R
@@ -133,7 +133,7 @@ set_sts_region <- function(sts_regional_endpoint, region) {
 }
 
 # client_config returns a ClientConfig configured for the service.
-client_config <- function(service_name, endpoints, cfgs, service_id, operation = list(host_prefix = "")) {
+client_config <- function(service_name, endpoints, cfgs, service_id, operation = Operation()) {
   s <- new_session()
   if (!is.null(cfgs)) {
     s$config <- cfgs

diff --git a/paws.common/R/service.R b/paws.common/R/service.R
@@ -113,7 +113,7 @@ new_handlers <- function(protocol, signer) {
 #' }
 #'
 #' @export
-new_service <- function(metadata, handlers, cfgs = NULL, operation = list(host_prefix = "")) {
+new_service <- function(metadata, handlers, cfgs = NULL, operation = Operation()) {
   cfg <- client_config(
     service_name = metadata$service_name,
     endpoints = metadata$endpoints,