115/141: guix: import texlive: no bogus data with non-existing packages.

[guix-commits]

ngz pushed a commit to branch tex-team
in repository guix.

commit 1cb28f2bf1c245f0bb3954798a9780ba2b86fb2c
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat Jun 22 10:32:23 2024 +0200

    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
---
 guix/import/texlive.scm | 11 ++++++-----
 1 file 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,