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

Fix retrying code

Browse source
This commit is contained in:
Christopher Baines 2025-05-25 18:00:24 +01:00
parent d183573f58
commit dfbfc846d6
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1594,14 +1594,14 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
'retry)
(_ #f)))))
(let loop ((manifest (compute)))
(when (eq? mainfest 'retry)
(loop (compute)))
(define (add-tmp-root-and-return-drv drv)
(add-temp-root store drv)
drv)
(let loop ((manifest (compute)))
(when (eq? manifest 'retry)
(loop (compute)))
(simple-format
(current-error-port)
"computed the manifest for ~A\n" system)