diff options
-rw-r--r-- | nar-herder/storage.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index da0b258..d007a48 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -617,11 +617,15 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." ": " exn) #f) (lambda () - (retry-on-error - (lambda () - (fetch-file (assq-ref file 'url))) - #:times 3 - #:delay 5) + (with-throw-handler #t + (lambda () + (retry-on-error + (lambda () + (fetch-file (assq-ref file 'url))) + #:times 3 + #:delay 5)) + (lambda _ + (backtrace))) #t) #:unwind? #t))) (if success? |