cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add retrying around inserting channel instance derivations

Browse source
This commit is contained in:
Christopher Baines 2024-08-29 09:38:44 +01:00
parent 4ab59f46b4
commit fd7b0a341d
1 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -2128,15 +2128,23 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(commit commit)))
(guix-source
channel-derivations-by-system
(channel->source-and-derivations-by-system
conn
channel-for-commit
fetch-with-authentication?
#:parallelism parallelism))
(guix-revision-id
(load-channel-instances utility-thread-channel
git-repository-id commit
channel-derivations-by-system)))
guix-revision-id
(retry-on-missing-store-item
(lambda ()
(let ((guix-source
channel-derivations-by-system
(channel->source-and-derivations-by-system
conn
channel-for-commit
fetch-with-authentication?
#:parallelism parallelism)))
(let ((guix-revision-id
(load-channel-instances utility-thread-channel
git-repository-id commit
channel-derivations-by-system)))
(values guix-source
channel-derivations-by-system
guix-revision-id)))))))
(let ((store-item
guix-derivation
(channel-derivations-by-system->guix-store-item