be more precise with upload success message

.woodpecker/build.yaml

@@ -6,7 +6,7 @@ skip_clone: true
 matrix:
   include:
     - PLATFORM: rhel-9
-      BLOCK: 903:1450
+      BLOCK: 920:1450
     # - PLATFORM: rhel-9
     #   BLOCK: 1051:1450
     # - PLATFORM: rhel-9

R/build_binaries.R

@@ -123,7 +123,6 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
         {
           p()
           dump <- upload_single_binary_to_s3(package_name = x, tag = y, force = force, build_for_minor = build_for_minor, debug = debug)
-          cli::cli_alert_success("Successfully uploaded package {.pkg {x}} with tag {.field {y}}.")
         },
         error = function(e) {
           message(sprintf("Error in uploading package %s with tag %s: %s", x, y, e))

R/upload.R

@@ -46,6 +46,7 @@ upload_single_binary_to_s3 <- function(
       sprintf("%s/%s", local_bin_path, tarball_name),
       sprintf("%s/%s", remote_bin_path, tarball_name)
     )
+    cli::cli_alert_success("Successfully uploaded package {.pkg {x}} with tag {.field {y}}.")
     cli::cli_alert("{.fun upload_single_binary_to_s3}: Deleting binary for {.pkg {package_name}} {.field {tag}} at path {.path {sprintf('%s/%s', local_bin_path, tarball_name)}}.")
     file.remove(sprintf("%s/%s", local_bin_path, tarball_name))
   } else if (exists && force) {
@@ -55,6 +56,7 @@ upload_single_binary_to_s3 <- function(
       sprintf("%s/%s", remote_bin_path, tarball_name),
       overwrite = TRUE
     )
+    cli::cli_alert_success("Successfully uploaded package {.pkg {x}} with tag {.field {y}}.")
     cli::cli_alert("{.fun upload_single_binary_to_s3}: Deleting binary for {.pkg {package_name}} {.field {tag}} at path {.path {sprintf('%s/%s', local_bin_path, tarball_name)}}.")
     file.remove(sprintf("%s/%s", local_bin_path, tarball_name))
   } else if (exists && !force) {