diff options
author | Nicolas Graves <ngraves@ngraves.fr> | 2024-04-06 04:08:50 +0200 |
---|---|---|
committer | Guix Patches Tester <> | 2024-04-17 14:27:12 +0200 |
commit | 1834e02e45cfc79d0eed1e35d063b74fabc27598 (patch) | |
tree | e8523c20fc308a69b03b3773fcb1e278b335e907 | |
parent | b47ae1ecc43baaf726701ab2d2f810ecfaa75428 (diff) | |
download | guix-patches-1834e02e45cfc79d0eed1e35d063b74fabc27598.tar guix-patches-1834e02e45cfc79d0eed1e35d063b74fabc27598.tar.gz |
guix: import: composer: Handle parsing failures.
* guix/import/composer (latest-release): Handle parsing
failures. Rename package to composer-package for clarity.
Change-Id: I57f6fba7b05122b031177681e76cf0b5c9547736
-rw-r--r-- | guix/import/composer.scm | 19 |
1 files 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 |