From f186b2ecb87418ff05dc8d41d317913ae44863aa Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Tue, 25 Jun 2024 10:21:06 +0100
Subject: Update use of with-port-timeouts

The timeout is now in seconds.
---
 guix-qa-frontpage/utils.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix-qa-frontpage/utils.scm b/guix-qa-frontpage/utils.scm
index 12610f0..2cb00ac 100644
--- a/guix-qa-frontpage/utils.scm
+++ b/guix-qa-frontpage/utils.scm
@@ -149,8 +149,7 @@
                (call-with-values
                    (lambda ()
                      ;; This is mostly to set non fibers IO waiters
-                     (with-port-timeouts thunk
-                                         #:timeout (* 300 1000)))
+                     (with-port-timeouts thunk #:timeout 300))
                  (lambda values
                    (put-message channel `(values ,@values)))))
              (lambda args
-- 
cgit v1.2.3