diff --git a/bin/main.ml b/bin/main.ml index 6a60406..82275b9 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -40,25 +40,23 @@ module Sync = struct let daily_bundle = Metadata.Bundle.create_daily ~commit ~tag Metadata.Target.defaults in - let bundle_key = - match daily_bundle.tag with - | Some tag -> tag - | None -> Metadata.Bundle.get_date_string_from daily_bundle + 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 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_bundle_dir + s3_daily_bundle Config.Path.rclone else Rclone.copy ~config_path:Config.Path.rclone Config.Path.artifacts_dir - s3_bundle_dir + s3_daily_bundle in let () = let install_bucket_path =