diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-11 09:58:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-12 13:11:00 +0100 |
| commit | daa4921f46fd526c0769b39c1b7baef8995dd2cb (patch) | |
| tree | 5c49c5de009bb171392e84e8b28298eebd7f0cfa | |
| parent | aa009075d6757ced963250e849b0cdf5764a2f52 (diff) | |
| download | nar-herder-daa4921f46fd526c0769b39c1b7baef8995dd2cb.tar nar-herder-daa4921f46fd526c0769b39c1b7baef8995dd2cb.tar.gz | |
Use fibers in fast-download-nars
As it's within a fibers thread now.
| -rw-r--r-- | nar-herder/storage.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 44b326d..8093ae0 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -649,13 +649,8 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (let ((channel (make-channel))) (for-each (lambda _ - (call-with-new-thread + (spawn-fiber (lambda () - (catch 'system-error - (lambda () - (set-thread-name "fast download nars")) - (const #t)) - (let loop ((fetched-count 0)) (match (get-message channel) (('finished . reply) |