diff options
-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) |