From c5bbd637c1c6902931949f3b074403c65c115596 Mon Sep 17 00:00:00 2001 From: Marek Kubica Date: Wed, 4 Mar 2026 11:29:17 +0100 Subject: [PATCH] Reapply "Fix release location calculation (#205)" (#211) This reverts commit a34f2a345d475ecf598f70182b50b0c0f1354bb3. Signed-off-by: Marek Kubica --- bin/main.ml | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/bin/main.ml b/bin/main.ml index 82275b9..6a60406 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -40,23 +40,25 @@ module Sync = struct let daily_bundle = Metadata.Bundle.create_daily ~commit ~tag Metadata.Target.defaults in - let daily_bundle_date = Metadata.Bundle.get_date_string_from daily_bundle in - let s3_daily_bundle = - Filename.concat Config.Server.rclone_bucket_ref daily_bundle_date + let bundle_key = + match daily_bundle.tag with + | Some tag -> tag + | None -> Metadata.Bundle.get_date_string_from daily_bundle in + let s3_bundle_dir = Filename.concat Config.Server.rclone_bucket_ref bundle_key in let () = if dry_run then Format.printf "- Copy files from path (%s) to %s, using RClone (%s)\n" Config.Path.artifacts_dir - s3_daily_bundle + s3_bundle_dir Config.Path.rclone else Rclone.copy ~config_path:Config.Path.rclone Config.Path.artifacts_dir - s3_daily_bundle + s3_bundle_dir in let () = let install_bucket_path =