aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-05-20 14:50:43 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-20 14:50:43 +0100
commit2b3a7251e944422d8993e67d5486aed533b1d5d2 (patch)
tree0b0008892c278f1bf44e7f2e276de2e86147f89f /guix-build-coordinator
parent6eef9bcf4778dccf423bd349d98dcdf55eacfbcf (diff)
downloadbuild-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.scm7
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)