diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-28 18:25:55 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-28 18:25:55 +0100 |
| commit | 2e507e0885d0dd2cb49e0250feac033195f30d7d (patch) | |
| tree | 35cb6c59e6014f7423bcdc3620a8b0f333c5fdd0 | |
| parent | 230fafee5932e4233e4d66a84bd49f41b5067eb6 (diff) | |
| download | build-coordinator-2e507e0885d0dd2cb49e0250feac033195f30d7d.tar build-coordinator-2e507e0885d0dd2cb49e0250feac033195f30d7d.tar.gz | |
Add more gc protection
| -rw-r--r-- | guix-build-coordinator/utils.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 44a08c8..6e6ba2e 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -321,14 +321,16 @@ upcoming chunk." (set-port-encoding! chunked-output-port "ISO-8859-1") (callback chunked-output-port) (close-port chunked-output-port) - (display "\r\n" port) - (force-output port)) - - (let ((response (read-response port))) - (let ((body (read-response-body response))) - (close-port port) - (values response - body)))))))) + (with-gc-protection + (lambda () + (display "\r\n" port) + (force-output port) + + (let ((response (read-response port))) + (let ((body (read-response-body response))) + (close-port port) + (values response + body))))))))))) (define (find-missing-substitutes-for-output store substitute-urls output) (if (valid-path? store output) |