mirror of
https://github.com/digital-asset/daml.git
synced 2024-09-20 01:07:18 +03:00
parent
8f458d8d2a
commit
a3556a57ae
@ -408,7 +408,7 @@ check_releases gcp_credentials bash_lib max_releases = do
|
|||||||
let releases = case max_releases of
|
let releases = case max_releases of
|
||||||
Nothing -> releases'
|
Nothing -> releases'
|
||||||
Just n -> take n releases'
|
Just n -> take n releases'
|
||||||
Data.Foldable.for_ releases (\release -> do
|
Data.Foldable.for_ releases (\release -> recoverAll retryPolicy $ \_ -> do
|
||||||
let v = show $ tag release
|
let v = show $ tag release
|
||||||
putStrLn $ "Checking release " <> v <> " ..."
|
putStrLn $ "Checking release " <> v <> " ..."
|
||||||
IO.withTempDir $ \temp_dir -> do
|
IO.withTempDir $ \temp_dir -> do
|
||||||
@ -425,9 +425,12 @@ check_releases gcp_credentials bash_lib max_releases = do
|
|||||||
gcs_cp gcred bash_lib remote_gcp local_gcp
|
gcs_cp gcred bash_lib remote_gcp local_gcp
|
||||||
check_files_match local_github local_gcp >>= \case
|
check_files_match local_github local_gcp >>= \case
|
||||||
True -> putStrLn $ f <> " matches GCS backup."
|
True -> putStrLn $ f <> " matches GCS backup."
|
||||||
False -> Exit.die $ f <> " does not match GCS backup."
|
False -> fail $ f <> " does not match GCS backup."
|
||||||
else do
|
else do
|
||||||
Exit.die $ remote_gcp <> " does not exist. Aborting.")
|
fail $ remote_gcp <> " does not exist. Aborting.")
|
||||||
|
where
|
||||||
|
-- Retry for 10 minutes total, delay of 1s
|
||||||
|
retryPolicy = limitRetriesByCumulativeDelay (10 * 60 * 1000 * 1000) (constantDelay 1000_000)
|
||||||
|
|
||||||
data CliArgs = Docs
|
data CliArgs = Docs
|
||||||
| Check { bash_lib :: String,
|
| Check { bash_lib :: String,
|
||||||
|
Loading…
Reference in New Issue
Block a user