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 | |
| 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.
| -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) |