mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Handle failures in load-new-guix-revision
Currently, I think the desired commit can be missing, if patches come in gradually, and the series changes after the first laminar job has been run. Therefore, try to ignore some errors and just delete the job.
This commit is contained in:
parent
6d0eaab4e7
commit
853a2e4125
1 changed files with 13 additions and 6 deletions
|
@ -108,11 +108,17 @@
|
|||
(derivation->output-path derivation)))
|
||||
|
||||
(define (channel->guix-store-item store channel)
|
||||
(catch
|
||||
#t
|
||||
(lambda ()
|
||||
(dirname
|
||||
(readlink
|
||||
(string-append (channel->manifest-store-item store
|
||||
channel)
|
||||
"/bin"))))
|
||||
(lambda args
|
||||
(simple-format #t "guix-data-service: load-new-guix-revision: error: ~A\n" args)
|
||||
#f)))
|
||||
|
||||
(define (extract-information-from store conn url commit store_path)
|
||||
(let ((inf (open-inferior/container store store_path
|
||||
|
@ -144,7 +150,8 @@
|
|||
(channel (name 'guix)
|
||||
(url url)
|
||||
(commit commit)))))
|
||||
(extract-information-from store conn url commit store-item)))))
|
||||
(and store-item
|
||||
(extract-information-from store conn url commit store-item))))))
|
||||
|
||||
(define (select-job-for-commit conn commit)
|
||||
(let ((result
|
||||
|
|
Loading…
Reference in a new issue