From f59354ed23a9c50e43b7aaaeaddb5365feda4e29 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 2 Feb 2020 08:30:02 +0100 Subject: Call add-temp-root for the derivation file names In an attempt to stop the derivations from being garbage collected between the time they're generated, and when they're potentially read by the Guix Data Service. --- guix-data-service/jobs/load-new-guix-revision.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'guix-data-service') diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 832ac9d..e4fc29e 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -396,12 +396,15 @@ WHERE job_id = $1" (list inferior-package-id system target - (derivation-file-name - (if (string=? system target) - (package-derivation store package system) - (package-cross-derivation store package - target - system)))))) + (let ((file-name + (derivation-file-name + (if (string=? system target) + (package-derivation store package system) + (package-cross-derivation store package + target + system))))) + (add-temp-root store file-name) + file-name)))) (lambda args ;; misc-error #f ~A ~S (No ;; cross-compilation for -- cgit v1.2.3