bug#35398: http-get request fails for github.com

[Ricardo Wurmus <rekado@elephly.net>]

Hi Brian,

> System is —> Linux guix 4.20.10-gnu #1 SMP 1 x86_64 GNU/Linux
>
> I am running guile (GNU Guile) 2.2.4.
>
> http-get request is failing for “https://github.com <https://github.com/>”
>
> The steps to reproduce are as follows:
>
> scheme@(guile-user)> (use-modules (web client))
> scheme@(guile-user)> (http-get "https://github.com")
> ERROR: In procedure get-bytevector-some:
> Throw to key `gnutls-error' with args `(#<gnutls-error-enum Resource temporarily unavailable, try again.> read_from_session_record_port)'.
>
> Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
> scheme@(guile-user) [1]> ,bt
> In web/client.scm:
>    386:24  6 (http-request _ #:body _ #:port _ #:method _ #:version _ #:keep-alive? _ #:headers _ #:decode-body? _ #:streaming? _ #:request _)
> In web/response.scm:
>    198:31  5 (read-response #<input-output: string 1ca2ee0>)
> In web/http.scm:
>   1186:15  4 (read-response-line _)
>     159:2  3 (read-header-line _)
> In unknown file:
>            2 (%read-line #<input-output: string 1ca2ee0>)
> In web/client.scm:
>    142:24  1 (read! #vu8(1 17 1 37 14 19 5 17 1 18 11 16 23 0 0 2 46 0 17 1 18 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 …) …)
> In unknown file:
>            0 (get-bytevector-some #<input-output: string 1ca2f50>)

I can reproduce this.  (http-get "https://gnu.org") works though.

-- 
Ricardo