diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2024-06-22 10:32:23 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-11 10:25:21 +0100 |
| commit | 1e9c10e651f66377e187a39914187da0043e72f1 (patch) | |
| tree | 6195054b1584138cdda951171368d71c5a98b1a7 | |
| parent | ac3edb217e69184ed7975178fd3d6706cf919f68 (diff) | |
| download | guix-patches-1e9c10e651f66377e187a39914187da0043e72f1.tar guix-patches-1e9c10e651f66377e187a39914187da0043e72f1.tar.gz | |
guix: import texlive: no bogus data with non-existing packages.
* guix/import/texlive.scm (latest-release): Check if the package really exists
in the package database before returning an <upstream-source> object.
Change-Id: I85c600b7b125b02cac58f263eac645dd8fab63ab
| -rw-r--r-- | guix/import/texlive.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix/import/texlive.scm b/guix/import/texlive.scm index 1881f40f16..e4e0654b78 100644 --- a/guix/import/texlive.scm +++ b/guix/import/texlive.scm @@ -794,11 +794,12 @@ include a VERSION string to fetch a specific version." (let* ((version (or version (latest-texlive-tag))) (database (tlpdb/cached version)) (upstream-name (package-upstream-name* package))) - (upstream-source - (package upstream-name) - (version version) - (urls (texlive->svn-multi-reference upstream-name version database)) - (inputs (list-upstream-inputs upstream-name version database))))) + (and (assoc-ref database upstream-name) + (upstream-source + (package upstream-name) + (version version) + (urls (texlive->svn-multi-reference upstream-name version database)) + (inputs (list-upstream-inputs upstream-name version database)))))) (define %texlive-updater ;; The TeX Live updater. It is restricted to TeX Live releases (2023.0, |