diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-11 12:40:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-12 13:11:00 +0100 |
| commit | 8dff41c21ac4cc42f513da07e368ecc4e6a22dff (patch) | |
| tree | b6c35a3376bcb6040ded51b62509d7fa07539929 | |
| parent | 27e6906e188da98ce06e755c079e852bc01c770d (diff) | |
| download | nar-herder-8dff41c21ac4cc42f513da07e368ecc4e6a22dff.tar nar-herder-8dff41c21ac4cc42f513da07e368ecc4e6a22dff.tar.gz | |
Show backtraces for fetch-file exceptions
| -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? |