diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-20 14:50:43 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-20 14:50:43 +0100 |
commit | 2b3a7251e944422d8993e67d5486aed533b1d5d2 (patch) | |
tree | 0b0008892c278f1bf44e7f2e276de2e86147f89f /guix-build-coordinator | |
parent | 6eef9bcf4778dccf423bd349d98dcdf55eacfbcf (diff) | |
download | build-coordinator-2b3a7251e944422d8993e67d5486aed533b1d5d2.tar build-coordinator-2b3a7251e944422d8993e67d5486aed533b1d5d2.tar.gz |
Print out a message when retrying succeeds
Given a failure.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/utils.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index ea0dea0..b9b3e30 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -417,6 +417,13 @@ References: ~a~%" (cons #t (f))) #:unwind? #t) ((#t . return-value) + (when (> attempt 1) + (simple-format + (current-error-port) + "retry success: ~A\n on attempt ~A of ~A\n" + f + attempt + times)) return-value) ((#f . exn) (if (>= attempt times) |