me
/
guix
Archived
1
0
Fork 0
Code

ci: Catch error for unreachable channel with substitutes. 

* 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
master
Simon Tournier 2024-04-24 16:39:10 +02:00
parent ae2591d028
commit ffdcef5f36
No known key found for this signature in database
GPG Key ID: 92F1D22C608EE7E5
1 changed files with 7 additions and 4 deletions
Show Stats 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))))