diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-09 10:44:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-12 13:11:00 +0100 |
| commit | 34b61f30e7cecbf496906b7ea0b9dcd0f89641aa (patch) | |
| tree | fc073519ccb6f64c914c061d452ef6238dc1bd7b /nar-herder/cached-compression.scm | |
| parent | 62d6af3d480c23b061699705e815fcf76c57d97d (diff) | |
| download | nar-herder-34b61f30e7cecbf496906b7ea0b9dcd0f89641aa.tar nar-herder-34b61f30e7cecbf496906b7ea0b9dcd0f89641aa.tar.gz | |
Stop using with-port-timeouts
As this is incompatible with fibers.
Diffstat (limited to 'nar-herder/cached-compression.scm')
| -rw-r--r-- | nar-herder/cached-compression.scm | 40 |
1 files changed, 19 insertions, 21 deletions
diff --git a/nar-herder/cached-compression.scm b/nar-herder/cached-compression.scm index 92e0644..73eb789 100644 --- a/nar-herder/cached-compression.scm +++ b/nar-herder/cached-compression.scm @@ -470,27 +470,25 @@ (delete-file filename) (raise-exception exn)) (lambda () - (with-port-timeouts - (lambda () - (call-with-values - (lambda () - (let ((port - socket - (open-socket-for-uri* uri))) - (set-socket-timeout socket #:seconds 30) - - (http-get uri - #:port port - #:decode-body? #f - #:streaming? #t))) - (lambda (response body) - (unless (= (response-code response) - 200) - (error "unknown response code" - (response-code response))) - - (dump-port body output-port))) - (close-port output-port)))) + (call-with-values + (lambda () + (let ((port + socket + (open-socket-for-uri* uri))) + (set-socket-timeout socket #:seconds 30) + + (http-get uri + #:port port + #:decode-body? #f + #:streaming? #t))) + (lambda (response body) + (unless (= (response-code response) + 200) + (error "unknown response code" + (response-code response))) + + (dump-port body output-port))) + (close-port output-port)))) #:unwind? #t) filename)) |