diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-14 14:28:08 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-14 14:28:08 +0000 |
| commit | fc774e63e9cb1481d1e1c13d18e35290666c9708 (patch) | |
| tree | 772137b5dac55529cd257f8eb69980469810c682 /guix-build-coordinator/utils.scm | |
| parent | f1725d0b64e034cacc0fe9f5b279a13246ceab97 (diff) | |
| download | build-coordinator-fc774e63e9cb1481d1e1c13d18e35290666c9708.tar build-coordinator-fc774e63e9cb1481d1e1c13d18e35290666c9708.tar.gz | |
Support custom methods in call-with-streaming-http-request
Diffstat (limited to 'guix-build-coordinator/utils.scm')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 5d365a6..9d69ec3 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -310,12 +310,13 @@ upcoming chunk." (define* (call-with-streaming-http-request uri callback #:key (headers '()) + (method 'PUT) report-bytes-sent) (let* ((port (open-socket-for-uri uri)) (request (build-request uri - #:method 'PUT + #:method method #:version '(1 . 1) #:headers `((connection close) (Transfer-Encoding . "chunked") |