diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-25 10:21:06 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-25 10:21:06 +0100 |
| commit | f186b2ecb87418ff05dc8d41d317913ae44863aa (patch) | |
| tree | 4239775027335ca90b794f6b2f4003078e3f05a2 | |
| parent | 9ddefa0145d6103752095aab8a659de5f28aaf7b (diff) | |
| download | qa-frontpage-f186b2ecb87418ff05dc8d41d317913ae44863aa.tar qa-frontpage-f186b2ecb87418ff05dc8d41d317913ae44863aa.tar.gz | |
Update use of with-port-timeouts
The timeout is now in seconds.
| -rw-r--r-- | guix-qa-frontpage/utils.scm | 3 |
1 files changed, 1 insertions, 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 |