bug#35053: 'guix lint -c github-url wmctrl' crashes linter

[Ludovic Courtès]

Efraim Flashner <address@hidden> skribis:

> wmctrl is hosted at sites.google.com and gives a 302 when attempting to
> download. I get a backtrace when running 'guix lint -c github-url wmctrl'
>
> Backtrace:address@hidden [github-url]...
>           16 (apply-smob/1 #<catch-closure 728c20>)
> In ice-9/boot-9.scm:
>     705:2 15 (call-with-prompt _ _ #<procedure default-prompt-handleâ¦>)
> In ice-9/eval.scm:
>     619:8 14 (_ #(#(#<directory (guile-user) 7af140>)))
> In guix/ui.scm:
>   1660:12 13 (run-guix-command _ . _)
> In srfi/srfi-1.scm:
>     640:9 12 (for-each #<procedure c5bbe0 at guix/scripts/lint.scm:â¦> â¦)
> In guix/scripts/lint.scm:
>    1150:4 11 (run-checkers #<package address@hidden gnu/packages/xdisoâ¦> â¦)
> In srfi/srfi-1.scm:
>     640:9 10 (for-each #<procedure 1b0c340 at guix/scripts/lint.scmâ¦> â¦)
>     640:9  9 (for-each #<procedure 1b0c020 at guix/scripts/lint.scmâ¦> â¦)
> In guix/scripts/lint.scm:
>     812:6  8 (_ "https://sites.google.com/site/tstyblo/wmctrl/wmctrlâ¦";)
>    802:29  7 (follow-redirects-to-github _)
> In web/client.scm:
>    386:24  6 (http-request _ #:body _ #:port _ #:method _ #:version _ â¦)
> In web/response.scm:
>    198:31  5 (read-response #<input-output: string 1b9df50>)
> 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 1b9df50>)
> In web/client.scm:
>    142:24  1 (read! #vu8(69 0 1 0 0 0 0 0 228 175 106 118 40 127 0 â¦) â¦)
> In unknown file:
>            0 (get-bytevector-some #<input-output: string 1f18000>)
>
> 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)'.

Fixed in 702c3c7dab87df674c3d6abc138805895b5d1d32.

Thanks,
Ludo’.