diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-15 18:17:47 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-15 18:17:47 +0100 |
| commit | a2569fa530a10bc43773359ef8386d6ee63dfcc0 (patch) | |
| tree | 5f9b3c795f384844361ca84cbf2eed0fecafd1a9 | |
| parent | 380a7b7edca278021f8073d506ab896042ace0e0 (diff) | |
| download | qa-frontpage-a2569fa530a10bc43773359ef8386d6ee63dfcc0.tar qa-frontpage-a2569fa530a10bc43773359ef8386d6ee63dfcc0.tar.gz | |
Fix timeout being seconds
Not ms.
| -rw-r--r-- | guix-qa-frontpage/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |