Use with-port-timeouts when recompressing log files

To avoid using alarm.

1 files changed, 12 insertions, 12 deletions

diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index bf4b576..bc055c2 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -528,18 +528,18 @@
       (unless (eq? source-compression recompress-to)
         (when (file-exists? tmp-output-log-file)
           (delete-file tmp-output-log-file))
-        (with-timeout timeout
-          (raise-exception
-           (make-exception-with-message "timeout recompressing log file"))
-          (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))))))
+        (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)
         (rename-file tmp-output-log-file
                      output-log-file)
         (delete-file source-log-file)))))