diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-20 17:29:24 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-20 17:29:49 +0100 |
commit | 70bb02a40b954dbd8be3d21d1b716593be4c80b1 (patch) | |
tree | 835bb4ee8fdf05f05f9f6ff68336c9463b9c8082 | |
parent | 93e21eb79cecede9e5d8da220db90bd132dd2f7d (diff) | |
download | build-coordinator-70bb02a40b954dbd8be3d21d1b716593be4c80b1.tar build-coordinator-70bb02a40b954dbd8be3d21d1b716593be4c80b1.tar.gz |
Add some more debugging output to retry-on-error
-rw-r--r-- | guix-build-coordinator/utils.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index b9b3e30..43a1db7 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -427,13 +427,22 @@ References: ~a~%" return-value) ((#f . exn) (if (>= attempt times) - (raise-exception exn) (begin (simple-format (current-error-port) - "error: ~A:\n ~A,\n retrying in ~A\n" + "error: ~A:\n ~A,\n giving up after ~A attempts\n" f exn + times) + (raise-exception exn)) + (begin + (simple-format + (current-error-port) + "error: ~A:\n ~A,\n attempt ~A or ~A, retrying in ~A\n" + f + exn + attempt + times delay) (sleep delay) (loop (+ 1 attempt)))))))) |