diff options
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 030f310..3cd1c59 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -26,6 +26,7 @@ #:use-module (gcrypt pk-crypto) #:use-module (zlib) #:use-module (lzlib) + #:use-module (knots timeout) #:use-module (guix pki) #:use-module (guix store) #:use-module (guix base32) @@ -156,7 +157,8 @@ (substitute-derivation store drv-name #:substitute-urls - derivation-substitute-urls))) + derivation-substitute-urls)) + #:timeout 120) (add-temp-root store drv-name)) (let* ((drv (read-derivation-from-file* drv-name)) @@ -620,18 +622,15 @@ (unless (eq? source-compression recompress-to) (when (file-exists? tmp-output-log-file) (delete-file tmp-output-log-file)) - (with-port-timeouts - (lambda () - (call-with-compressed-input-file - source-log-file - source-compression - (lambda (input-port) - (call-with-compressed-output-file - tmp-output-log-file - recompress-to - (lambda (output-port) - (dump-port input-port output-port)))))) - #:timeout timeout) + (call-with-compressed-input-file + source-log-file + source-compression + (lambda (input-port) + (call-with-compressed-output-file + tmp-output-log-file + recompress-to + (lambda (output-port) + (dump-port input-port output-port))))) (rename-file tmp-output-log-file output-log-file) (delete-file source-log-file))))) |