08/12: import: composer: Handle parsing failures.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 92e4c0a00dde99a3864e72b683eb53cb226e86e8
Author: Nicolas Graves <ngra...@ngraves.fr>
AuthorDate: Mon Oct 7 01:55:59 2024 +0200

    import: composer: Handle parsing failures.
    
    * guix/import/composer (latest-release): Handle parsing
    failures. Rename package to composer-package for clarity.
    
    Change-Id: I57f6fba7b05122b031177681e76cf0b5c9547736
    Signed-off-by: Ludovic Courtès <l...@gnu.org>
---
 guix/import/composer.scm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/guix/import/composer.scm b/guix/import/composer.scm
index 1ad608964b..75419ca63e 100644
--- a/guix/import/composer.scm
+++ b/guix/import/composer.scm
@@ -243,16 +243,19 @@ package in Packagist."
    (eq? (package-build-system package) composer-build-system)
    (string-prefix? "php-" (package-name package))))
 
-(define (latest-release package)
+(define* (latest-release package #:key (version #f))
   "Return an <upstream-source> for the latest release of PACKAGE."
   (let* ((php-name (guix-package->composer-name package))
-         (package (composer-fetch php-name))
-         (version (composer-package-version package))
-         (url (composer-source-url (composer-package-source package))))
-    (upstream-source
-     (package (package-name package))
-     (version version)
-     (urls (list url)))))
+         (composer-package (composer-fetch php-name #:version version)))
+    (if composer-package
+        (upstream-source
+         (package (composer-package-name composer-package))
+         (version (composer-package-version composer-package))
+         (urls (list (composer-source-url
+                      (composer-package-source composer-package)))))
+        (begin
+          (warning (G_ "failed to parse ~a~%") php-name)
+          #f))))
 
 (define %composer-updater
   (upstream-updater