04/09: import: cpan: Gracefully handle missing projects.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c00ae79cca7f4b1c95669c5857c0e55e1b253f4f
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Mar 12 11:18:40 2020 +0100

    import: cpan: Gracefully handle missing projects.
    
    * guix/import/cpan.scm (cpan-fetch): Check whether 'json-fetch' returns #f.
---
 guix/import/cpan.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 7a97c7f..6bcd2ce 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))