Connection reuse for substitutes breaks with gzip

$ ./pre-inst-env guix build vigra inkscape eigen pt-scotch

accepted connection from pid 20839, user ludo

69.6 MB will be downloaded:

/gnu/store/si36xnajxjnx7v6ywd7qyhyv8ar9aymn-vigra-1.11.1

/gnu/store/0fcjk788gj7k6gsf3zsx8j8lyw6w896b-inkscape-1.0.2

substituting /gnu/store/0fcjk788gj7k6gsf3zsx8j8lyw6w896b-inkscape-1.0.2...

downloading from https://ci.guix.gnu.org/nar/gzip/0fcjk788gj7k6gsf3zsx8j8lyw6w896b-inkscape-1.0.2 ...

inkscape-1.0.2 38.6MiB 16.8MiB/s 00:02 [##################] 100.0%

substituting /gnu/store/si36xnajxjnx7v6ywd7qyhyv8ar9aymn-vigra-1.11.1...

Backtrace:

In guix/ui.scm:

2164:12 19 (run-guix-command _ . _)

In guix/scripts/substitute.scm:

664:2 18 (guix-substitute . _)

In unknown file:

17 (with-continuation-barrier #<procedure thunk ()>)

In ice-9/boot-9.scm:

1736:10 16 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In unknown file:

15 (apply-smob/0 #<thunk 7fa67ce511c0>)

In ice-9/boot-9.scm:

1736:10 14 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

1736:10 13 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

1731:15 12 (with-exception-handler #<procedure 7fa67c302390 at ice-9/boot-9.scm:1815:7 (exn)> _ #:unwind? _ # _)

In guix/scripts/substitute.scm:

713:17 11 (_)

414:7 10 (process-substitution _ "/gnu/store/si36xnajxjnx7v6ywd7qyhyv8ar9aymn-vigra-1.11.1" #:cache-urls _ #:acl …)

In ice-9/boot-9.scm:

1736:10 9 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In guix/scripts/substitute.scm:

423:9 8 (_)

In ice-9/boot-9.scm:

1731:15 7 (with-exception-handler #<procedure 7fa67c42edb0 at ice-9/boot-9.scm:1815:7 (exn)> _ #:unwind? _ # _)

1669:16 6 (raise-exception _ #:continuable? _)

1667:16 5 (raise-exception _ #:continuable? _)

1669:16 4 (raise-exception _ #:continuable? _)

1764:13 3 (_ #<&compound-exception components: (#<&error> #<&irritants irritants: (http-version "_'$Àçv\x8b\x8f7…>)

1669:16 2 (raise-exception _ #:continuable? _)

1667:16 1 (raise-exception _ #:continuable? _)

1669:16 0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1669:16: In procedure raise-exception:

Bad http-version header component: _'$Àçv‹¸7$H?

Backtrace:

In ice-9/boot-9.scm:

1736:10 4 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In unknown file:

3 (apply-smob/0 #<thunk 7fa67e9cb520>)

In ice-9/boot-9.scm:

718:2 2 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)

In ice-9/eval.scm:

619:8 1 (_ #(#(#<directory (guile-user) 7fa67e9cec80>)))

In guix/ui.scm:

2164:12 0 (run-guix-command _ . _)

guix/ui.scm:2164:12: In procedure run-guix-command:

Bad http-version header component: _'$Àçv‹¸7$H?

substitution of /gnu/store/si36xnajxjnx7v6ywd7qyhyv8ar9aymn-vigra-1.11.1 failed

guix build: error: some substitutes for the outputs of derivation `/gnu/store/k32m5dcf31psvx66n95icxbvyimrjrk5-vigra-1.11.1.drv' failed (usually happens due to networking issues); try `--fallback' to build derivation from source

$ wget -qO - https://ci.guix.gnu.org/nar/gzip/si36xnajxjnx7v6ywd7qyhyv8ar9aymn-vigra-1.11.1 | gunzip > /dev/null

$ echo $?

0--8<---------------cut here---------------end--------------->8---

Ludo’.

$ ./pre-inst-env guile ~/src/guix-debugging/http-pipelining-gzip.scm

;;; (fetch 164664960)

Backtrace:

In ice-9/boot-9.scm:

1736:10 11 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In unknown file:

10 (apply-smob/0 #<thunk 7f9bf630c520>)

In ice-9/boot-9.scm:

718:2 9 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)

In ice-9/eval.scm:

619:8 8 (_ #(#(#<directory (guile-user) 7f9bf630fc80>)))

In ice-9/boot-9.scm:

2806:4 7 (save-module-excursion _)

4351:12 6 (_)

In /home/ludo/src/guix-debugging/http-pipelining-gzip.scm:

18:4 5 (_)

In guix/http-client.scm:

116:21 4 (http-fetch _ #:port _ #:text? _ #:buffered? _ #:open-connection _ #:keep-alive? _ # _ #:headers _ # _)

In web/client.scm:

526:24 3 (http-request _ #:body _ #:verify-certificate? _ #:port _ #:method _ #:version _ #:keep-alive? _ # _ # …)

In web/response.scm:

198:31 2 (read-response #<input-output: string 7f9bf36c6000>)

In web/http.scm:

1194:12 1 (read-response-line _)

252:2 0 (parse-http-version _ _ _)

web/http.scm:252:2: In procedure parse-http-version:

Bad http-version header component: ì½

$ ./pre-inst-env guile ~/src/guix-debugging/http-pipelining-gzip.scm

;;; (port #<input-output: file 7fced4c20000>)

;;; (input #<input: file 7fced4c8ef50>)

;;; (drain "")

;;; (fetch 16397)

;;; (port #<input-output: file 7fced4c20000>)

Backtrace:

In ice-9/boot-9.scm:

1736:10 11 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _)

In unknown file:

10 (apply-smob/0 #<thunk 7fced7866520>)

In ice-9/boot-9.scm:

718:2 9 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)

In ice-9/eval.scm:

619:8 8 (_ #(#(#<directory (guile-user) 7fced7869c80>)))

In ice-9/boot-9.scm:

2806:4 7 (save-module-excursion _)

4351:12 6 (_)

In /home/ludo/src/guix-debugging/http-pipelining-gzip.scm:

18:4 5 (_)

In guix/http-client.scm:

116:21 4 (http-fetch _ #:port _ #:text? _ #:buffered? _ #:open-connection _ #:keep-alive? _ # _ #:headers _ # _)

In web/client.scm:

526:24 3 (http-request _ #:body _ #:verify-certificate? _ #:port _ #:method _ #:version _ #:keep-alive? _ # _ # …)

In web/response.scm:

198:31 2 (read-response #<input-output: string 7fced4c20000>)

In web/http.scm:

1194:12 1 (read-response-line _)

252:2 0 (parse-http-version _ _ _)

web/http.scm:252:2: In procedure parse-http-version:

Bad http-version header component: <!DOCTYPE

(gdb) p session->internals.record_buffer

$9 = {head = 0x7f7370, tail = 0x7f7370, length = 1, byte_length = 16219}

(gdb) p *session->internals.record_buffer->head

$10 = {next = 0x0, prev = 0x0, mark = 165, msg = {

data = 0x7f73c0 "HTTP/1.1 200 OK\r\nServer: nginx\r\nDate: Wed, 10 Mar 2021 21:23:44 GMT\r\nContent-Type: text/html\r\nContent-Length: 16397\r\nConnection: keep-alive\r\nAccept-Ranges: bytes\r\n\r\n<!DOCTYPE html><html lang=\"en\"><hea"..., size = 16384}, maximum_size = 18751, uhead_mark = 0, type = GNUTLS_APPLICATION_DATA, record_sequence = 1,

epoch = 0, htype = 72, handshake_sequence = 0}

(gdb) p *(&session->internals.record_buffer->head.msg.data[165])

$11 = 60 '<'

(gdb) p (&session->internals.record_buffer->head.msg.data[165])

$12 = (unsigned char *) 0x7f7465 "<!DOCTYPE html><html lang=\"en\"><head><title>GNU's advanced distro and transactional package manager — GNU Guix</title><meta charset=\"UTF-8\" /><meta name=\"keywords\" content=\"GNU, Linux, Unix, Free s"...

ice-9/boot-9.scm:1669:16: In procedure raise-exception:

Bad http-version header component: ¡_¨””8á—¯ñÿ