ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
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 @@ (define (channel-with-substitutes-available chan url)
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))))