diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-15 18:23:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-15 18:23:35 +0100 |
| commit | 50845e6c7762c33ce506ffb8dc5201e912007023 (patch) | |
| tree | 8187f15c8d436ffb53573669f7f0199b8f6c2a17 | |
| parent | a2569fa530a10bc43773359ef8386d6ee63dfcc0 (diff) | |
| download | qa-frontpage-50845e6c7762c33ce506ffb8dc5201e912007023.tar qa-frontpage-50845e6c7762c33ce506ffb8dc5201e912007023.tar.gz | |
Guard against #:timeout not being set
| -rw-r--r-- | guix-qa-frontpage/utils.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-qa-frontpage/utils.scm b/guix-qa-frontpage/utils.scm index bff563b..d96db57 100644 --- a/guix-qa-frontpage/utils.scm +++ b/guix-qa-frontpage/utils.scm @@ -154,6 +154,13 @@ (loop (port-poll port mode poll-timeout-ms))) poll-value)))) + (unless read-timeout + (if timeout + (error "unset read-timeout") + (error "unset timeout"))) + (unless write-timeout + (error "unset write-timeout")) + (parameterize ((current-read-waiter (lambda (port) |