diff options
author | Christopher Baines <mail@cbaines.net> | 2021-11-22 22:48:44 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-11-22 22:48:44 +0000 |
commit | 77af94dec8ff792a35c6e5757e24b348babdf7b6 (patch) | |
tree | b61726079d401cf5d226901b7346815162a498b7 | |
parent | c1289fc75e99be0e783a4a5a6bee63bdc5df1dde (diff) | |
download | build-coordinator-77af94dec8ff792a35c6e5757e24b348babdf7b6.tar build-coordinator-77af94dec8ff792a35c6e5757e24b348babdf7b6.tar.gz |
Unwind on some exceptions
The error handling here should be handling by unwinding.
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index f7cdbb5..107c9e7 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -434,7 +434,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (lambda (compressed-port) (call-with-lzip-input-port compressed-port port-sha256)))) - #:unwind? #f))) + #:unwind? #t))) (define (receive-file output-file-name tmp-output-file-name) (call-with-worker-thread @@ -569,8 +569,8 @@ port. Also, the port used can be changed by passing the --port option.\n" (call-with-input-file file-name (lambda (compressed-port) (call-with-lzip-input-port compressed-port - port-sha256)))) - #:unwind? #f))) + port-sha256)))) + #:unwind? #t))) (define (receive-file output-file-name tmp-output-file-name) (call-with-worker-thread |