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

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

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