From 3419fc9f1e5ba565bf388ba34d14763f3e081fa1 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sat, 22 Jun 2024 10:32:23 +0200
Subject: 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,
-- 
cgit v1.2.3

bb9e1bdff92ac303f82f25db56133c23'>commit</a><a href='/guix/diff/build-aux/check-channel-news.scm?id=8632bda8bb9e1bdff92ac303f82f25db56133c23'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/build-aux/check-channel-news.scm'>
<input type='hidden' name='id' value='8632bda8bb9e1bdff92ac303f82f25db56133c23'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8632bda8bb9e1bdff92ac303f82f25db56133c23'>root</a>/<a href='/guix/log/build-aux?id=8632bda8bb9e1bdff92ac303f82f25db56133c23'>build-aux</a>/<a href='/guix/log/build-aux/check-channel-news.scm?id=8632bda8bb9e1bdff92ac303f82f25db56133c23'>check-channel-news.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/build-aux/check-channel-news.scm?id=8632bda8bb9e1bdff92ac303f82f25db56133c23&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-05-22 00:35:23 +0200'>2020-05-22</span></td><td><a href='/guix/commit/build-aux/check-channel-news.scm?id=1ad5209d904d471ded6cf53b4e29b64e963dea3f'>maint: Add "make check-channel-news".</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>