me/guix
Archived
1
0
Fork 0
Code Activity

import: launchpad: Gracefully handle 404s from api.launchpad.net.

Browse source 
Fixes <https://bugs.gnu.org/49031>.
Reported by Emad Alblueshi <emad.albloushi@gmail.com>.

* guix/import/launchpad.scm (latest-released-version): Gracefully handle
'json-fetch' returning #f.
This commit is contained in:
Ludovic Courtès 2021-06-15 23:18:46 +02:00
parent bccf2a9e25
commit f371972e78
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
guix/import/launchpad.scm
View file

@ -110,15 +110,14 @@ for example, 'linuxdcpp'. Return #f if there is no releases."
char-set:digit) char-set:digit)
(assoc-ref x "version")))) (assoc-ref x "version"))))
(assoc-ref (match (json-fetch
(last (remove (string-append "https://api.launchpad.net/1.0/"
pre-release? package-name "/releases"))
(vector->list (#f #f) ;404 or similar
(assoc-ref (json-fetch (json
(string-append "https://api.launchpad.net/1.0/" (assoc-ref
package-name "/releases")) (last (remove pre-release? (vector->list (assoc-ref json "entries"))))
"entries")))) "version"))))
"version"))
(define (latest-release pkg) (define (latest-release pkg)
"Return an <upstream-source> for the latest release of PKG." "Return an <upstream-source> for the latest release of PKG."