diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:55:03 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-27 09:55:03 +0000 |
| commit | b3f710233c33aecf5156d1c70d398b7251971862 (patch) | |
| tree | 90de80118bfd194567dc9d74211b04cd5ff95a6c | |
| parent | 4ebff8a1293af72073a01b214217e5a7e5ad081e (diff) | |
| download | qa-frontpage-b3f710233c33aecf5156d1c70d398b7251971862.tar qa-frontpage-b3f710233c33aecf5156d1c70d398b7251971862.tar.gz | |
Use non-blocking-open-socket-for-uri
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index 7060098..1f63348 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -23,6 +23,7 @@ #:use-module (json) #:use-module (kolam http) #:use-module (kolam parse) + #:use-module (knots non-blocking) #:use-module (web uri) #:use-module (web client) #:use-module ((guix-data-service utils) #:select (chunk!)) @@ -71,7 +72,7 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." ;; Open a new connection to URI and evict old entries from ;; CACHE, if any. (let ((socket - (open-socket-for-uri + (non-blocking-open-socket-for-uri uri #:verify-certificate? verify-certificate?)) (new-cache evicted @@ -107,7 +108,7 @@ When VERIFY-CERTIFICATE? is true, verify HTTPS server certificates." (define* (graphql-http-get* uri document #:key (verify-certificate? #t) - (port (open-socket-for-uri + (port (non-blocking-open-socket-for-uri uri #:verify-certificate? verify-certificate?)) (keep-alive? #f) |