aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-qa-frontpage/utils.scm7
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)