diff options
author | Christopher Baines <mail@cbaines.net> | 2021-05-21 19:50:07 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-05-21 20:29:38 +0100 |
commit | 0c0f30f0a4146c4e548cd9843d26b0bc02cb5024 (patch) | |
tree | 42da0cde0b116be77106131f8acb4bd604954a68 /guix-build-coordinator | |
parent | 4f5b888c030eb842d4cf207f13226f7e0443dee8 (diff) | |
download | build-coordinator-0c0f30f0a4146c4e548cd9843d26b0bc02cb5024.tar build-coordinator-0c0f30f0a4146c4e548cd9843d26b0bc02cb5024.tar.gz |
Drop the request mutex for most requests
Just use it when uploading files.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 06c3495..6ff2e6a 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -136,15 +136,13 @@ (define (make-request) (let-values (((response body) - (with-request-mutex - (lambda () - (http-request uri - #:method method - #:body (scm->json-string body) - #:decode-body? #f - #:headers - `((Authorization . ,auth-value) - ,@headers)))))) + (http-request uri + #:method method + #:body (scm->json-string body) + #:decode-body? #f + #:headers + `((Authorization . ,auth-value) + ,@headers)))) (let ((code (response-code response))) (cond ((eq? code 400) |