diff options
| -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) |