From a2569fa530a10bc43773359ef8386d6ee63dfcc0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 15 Sep 2023 18:17:47 +0100
Subject: Fix timeout being seconds

Not ms.
---
 guix-qa-frontpage/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix-qa-frontpage')

diff --git a/guix-qa-frontpage/utils.scm b/guix-qa-frontpage/utils.scm
index cff6476..bff563b 100644
--- a/guix-qa-frontpage/utils.scm
+++ b/guix-qa-frontpage/utils.scm
@@ -141,7 +141,7 @@
     (let ((timeout-internal
            (+ (get-internal-real-time)
               (* internal-time-units-per-second
-                 (/ timeout 1000)))))
+                 timeout))))
       (let loop ((poll-value
                   (port-poll port mode poll-timeout-ms)))
         (if (= poll-value 0)
-- 
cgit v1.2.3