aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-02-02 08:30:02 +0100
committerChristopher Baines <mail@cbaines.net>2020-02-02 08:30:02 +0100
commitf59354ed23a9c50e43b7aaaeaddb5365feda4e29 (patch)
treee3655c82c57d325e1f18935e5c4c4f10c81615ad /guix-data-service
parent381acf312e5efd740cd057312a8b53351d30586b (diff)
downloaddata-service-f59354ed23a9c50e43b7aaaeaddb5365feda4e29.tar
data-service-f59354ed23a9c50e43b7aaaeaddb5365feda4e29.tar.gz
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.
Diffstat (limited to 'guix-data-service')
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm15
1 files changed, 9 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 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