diff options
author | Christopher Baines <mail@cbaines.net> | 2021-11-14 14:49:35 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-11-14 14:49:35 +0000 |
commit | 9d9bf45de5db83fbf348bc83374085476c873b93 (patch) | |
tree | 08ca65ca18ce3e8e822d0267c7ccf768e48883eb /guix-build-coordinator/agent-messaging/http.scm | |
parent | 5e140b3e4fa3283bba8f054ad7dacbfc0b0d483f (diff) | |
download | build-coordinator-9d9bf45de5db83fbf348bc83374085476c873b93.tar build-coordinator-9d9bf45de5db83fbf348bc83374085476c873b93.tar.gz |
Remove some test code
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 3 |
1 files changed, 1 insertions, 2 deletions
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 |