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

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

[Efraim Flashner]

[-- Attachment #1: Type: text/plain, Size: 1942 bytes --]

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:mctrl@1.07 [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 wmctrl@1.07 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)'.


-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

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

[Ludovic Courtès]

Efraim Flashner <efraim@flashner.co.il> 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:mctrl@1.07 [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 wmctrl@1.07 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’.