diff options
Diffstat (limited to 'guix-qa-frontpage/mumi.scm')
| -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) |