From dfbfc846d60195ae62526de13d0c662375c09b43 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 25 May 2025 18:00:24 +0100 Subject: [PATCH] Fix retrying code --- guix-data-service/jobs/load-new-guix-revision.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 2e46036..310d2ae 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1594,13 +1594,13 @@ 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) - (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)