diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-02 08:30:02 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-02 08:30:02 +0100 |
| commit | f59354ed23a9c50e43b7aaaeaddb5365feda4e29 (patch) | |
| tree | e3655c82c57d325e1f18935e5c4c4f10c81615ad | |
| parent | 381acf312e5efd740cd057312a8b53351d30586b (diff) | |
| download | data-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.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 15 |
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 |