diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:33:35 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-17 19:33:35 +0000 |
| commit | 572be25bcf29e5e4d0977bbdd661006bfbadd2cc (patch) | |
| tree | 2bc95e276e759fde01a589635b0f4897ad9f0f65 /guix-qa-frontpage/patchwork.scm | |
| parent | e4799b81a9f9a986fc510390d84f2d05b7974656 (diff) | |
| download | qa-frontpage-572be25bcf29e5e4d0977bbdd661006bfbadd2cc.tar qa-frontpage-572be25bcf29e5e4d0977bbdd661006bfbadd2cc.tar.gz | |
Use Guile Knots
Rather than the build coordinator for fibers utilties.
Diffstat (limited to 'guix-qa-frontpage/patchwork.scm')
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 08bf62f..0ebb248 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -7,6 +7,9 @@ #:use-module (ice-9 match) #:use-module (rnrs bytevectors) #:use-module (json) + #:use-module (fibers) + #:use-module (knots non-blocking) + #:use-module (knots timeout) #:use-module (web uri) #:use-module (web client) #:use-module (web request) @@ -80,7 +83,7 @@ (retry-on-error (lambda () (http-request uri - #:port (open-socket-for-uri* uri) + #:port (nonblocking-open-socket-for-uri uri) #:decode-body? #f #:streaming? #t)) #:times 2 @@ -250,7 +253,7 @@ ;; Need more series, so keep going (let* ((series-batch next-page-uri - (with-fibers-port-timeouts + (with-port-timeouts (lambda () (request-patchwork-series patchwork-uri)) #:timeout 60)) |