diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-09 21:28:57 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-09 21:28:57 +0100 |
commit | e6f2c9bc2b6fc9ef9c688d44618f60f7e0a65139 (patch) | |
tree | 8677d4f55700eae1718ec237cedbd3cc6b5a11f9 | |
parent | ab86dd62a77f59a73360bf85a2ba89405c352153 (diff) | |
download | build-coordinator-e6f2c9bc2b6fc9ef9c688d44618f60f7e0a65139.tar build-coordinator-e6f2c9bc2b6fc9ef9c688d44618f60f7e0a65139.tar.gz |
Sprinkle call-with-streaming-http-request with set-port-encoding!
Otherwise when the chunked-output-port is closed, there's issues putting
characters to the port.
-rw-r--r-- | guix-build-coordinator/utils.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 1e34df7..e5017d5 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -267,6 +267,7 @@ upcoming chunk." ,@headers) #:port port))) + (set-port-encoding! port "ISO-8859-1") (let ((request (write-request request port))) (let ((chunked-output-port (make-chunked-output-port @@ -279,6 +280,7 @@ upcoming chunk." (lambda (arg) (simple-format (current-error-port) "warning: SIGPIPE\n"))) + (set-port-encoding! chunked-output-port "ISO-8859-1") (callback chunked-output-port) (close-port chunked-output-port) (display "\r\n" port) |