diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-12 11:18:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-12 11:52:38 +0100 |
| commit | c00ae79cca7f4b1c95669c5857c0e55e1b253f4f (patch) | |
| tree | f6fa3b2dab3a487c4106c944339a36915ef21f64 | |
| parent | 2d0409a4a2cedb76ab7a96173e19304bb54b8701 (diff) | |
| download | patches-c00ae79cca7f4b1c95669c5857c0e55e1b253f4f.tar patches-c00ae79cca7f4b1c95669c5857c0e55e1b253f4f.tar.gz | |
import: cpan: Gracefully handle missing projects.
* guix/import/cpan.scm (cpan-fetch): Check whether 'json-fetch' returns #f.
| -rw-r--r-- | guix/import/cpan.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index 7a97c7f8e8..6bcd2ce9eb 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -181,9 +181,9 @@ return \"Test-Simple\"" or #f on failure. MODULE should be the distribution name, such as \"Test-Script\" for the \"Test::Script\" module." ;; This API always returns the latest release of the module. - (json->cpan-release - (json-fetch (string-append (%metacpan-base-url) "/release/" - name)))) + (and=> (json-fetch (string-append (%metacpan-base-url) "/release/" + name)) + json->cpan-release)) (define (cpan-home name) (string-append "https://metacpan.org/release/" name)) |