digital-asset/daml
1
1
Fork 0
mirror of https://github.com/digital-asset/daml.git synced 2024-09-19 08:48:21 +03:00
Code Issues Projects Releases Wiki Activity

Retry release signature checks (#11771)

Browse Source 
changelog_begin
changelog_end
This commit is contained in:
Moritz Kiefer 2021-11-18 15:09:42 +01:00 committed by GitHub
parent 8f458d8d2a
commit a3556a57ae
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ci/cron/src/Main.hs
View File

@ -408,7 +408,7 @@ check_releases gcp_credentials bash_lib max_releases = do
let releases = case max_releases of
Nothing -> 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
putStrLn $ "Checking release " <> v <> " ..."
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
check_files_match local_github local_gcp >>= \case
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
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
| Check { bash_lib :: String,