Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 5 additions & 7 deletions bin/main.ml
Original file line number Diff line number Diff line change
Expand Up @@ -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 =
Expand Down