diff options
| author | Evgeny Pisemsky <mail@pisemsky.site> | 2025-04-01 01:52:51 +0300 |
|---|---|---|
| committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2025-04-01 08:55:37 +0100 |
| commit | ea6f4ee097bffacc33a98e462bdec58920d823b5 (patch) | |
| tree | 9dd4f618b567c2bb5572d155b9bbcb9052fb0c84 | |
| parent | bcd207005c4ae1b0ae11ebe932047218ffe6ee83 (diff) | |
import: pypi: Fix null at home-page.
Reported in #73314: PyPI importer gives null at home-page for some
packages.
* guix/import/pypi.scm (<project-info>): [home-page]: Apply
NON-EMPTY-STRING-OR-FALSE to make it consistence with similar fields,
covering the case when PyPI's JSON file metadata file does not have the
information.
Change-Id: I501582988cf58b00bd201c12ad47e9b095988fae
Reported-by: Evgeny Pisemsky <mail@pisemsky.site>
Reviewed-by: Simon Tournier <zimon.toutoune@gmail.com>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
| -rw-r--r-- | guix/import/pypi.scm | 4 | ||||
| -rw-r--r-- | guix/packages.scm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm index 9a40dea1c13..dd43ebdcf3d 100644 --- a/guix/import/pypi.scm +++ b/guix/import/pypi.scm @@ -116,8 +116,8 @@ (license project-info-license) ;string (download-url project-info-download-url ;string | #f "download_url" non-empty-string-or-false) - (home-page project-info-home-page ;string - "home_page") + (home-page project-info-home-page ;string | #f + "home_page" non-empty-string-or-false) (url project-info-url "project_url") ;string (release-url project-info-release-url "release_url") ;string (version project-info-version)) ;string diff --git a/guix/packages.scm b/guix/packages.scm index 70ccd8a924c..18ab23e0aa6 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -651,7 +651,7 @@ Texinfo. Otherwise, return the string." (sanitize validate-texinfo)) ; one or two paragraphs (license package-license ; (list of) <license> (sanitize validate-license)) - (home-page package-home-page) ; string + (home-page package-home-page) ; string | #f (supported-systems package-supported-systems ; list of strings (default %supported-systems)) |