tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

ci: Catch error for unreachable channel with substitutes.

Browse Source 
* guix/ci.scm (channel-with-substitutes-available): Catch all error when
running 'find-latest-commit-with-substitutes'.  Move the warning when failing.

Change-Id: I352e07f14417f77c7ebf0f40a01c6a2e58b15d78
This commit is contained in:
Simon Tournier
2024-04-24 16:39:10 +02:00
parent ae2591d028
commit ffdcef5f36
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
guix/ci.scm
View File

@@ -336,10 +336,13 @@ URL. The current system is taken into account.
If no commit with available substitutes were found, the commit field is set to
false and a warning message is printed."
(let ((commit (find-latest-commit-with-substitutes url)))
(unless commit
(warning (G_ "could not find available substitutes at ~a~%")
url))
(let ((commit (catch #t
(lambda ()
(find-latest-commit-with-substitutes url))
(lambda _
(warning (G_ "could not find available substitutes at ~a~%")
url)
#false))))
(channel
(inherit chan)
(commit commit))))