aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2024-06-22 10:32:23 +0200
committerLudovic Courtès <ludo@gnu.org>2024-08-31 10:45:36 +0200
commit3419fc9f1e5ba565bf388ba34d14763f3e081fa1 (patch)
tree634a0098954b5678c82a6f908e8b4e3c96ece9ad
parenta73c75a367d352527896639691024b75d5df814d (diff)
downloadguix-3419fc9f1e5ba565bf388ba34d14763f3e081fa1.tar.gz
guix-3419fc9f1e5ba565bf388ba34d14763f3e081fa1.zip
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.scm11
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,