From 9d9bf45de5db83fbf348bc83374085476c873b93 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 14 Nov 2021 14:49:35 +0000 Subject: Remove some test code --- guix-build-coordinator/agent-messaging/http.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'guix-build-coordinator/agent-messaging/http.scm') diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 2252293..fc29f1d 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -316,8 +316,7 @@ (dump-port file-port port #:buffer-size 65536))) #:headers `((Authorization . ,auth-value)) - #:method (if bytes 'POST 'PUT) - #:report-bytes-sent (lambda (bytes) (when (eq? bytes 65536) (error "FOO")))))) + #:method (if bytes 'POST 'PUT)))) (when (>= (response-code response) 400) (raise-exception (make-exception-with-message -- cgit v1.2.3