01/03: services: guix: Add guix-build-coordinator-agent cache directory.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit b6ece1c2069ee70c786e4163689cf17b7a0c7278
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Nov 7 20:09:44 2020 +0000

    services: guix: Add guix-build-coordinator-agent cache directory.
    
    As this is needed when substituting derivations.
    
    * gnu/services/guix.scm (guix-build-coordinator-agent-shepherd-services): 
Set
    XDG_CACHE_HOME.
    (guix-build-coordinator-agent-activation): Create
    /var/cache/guix-build-coordinator-agent.
---
 gnu/services/guix.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index b909c65..448f8c3 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -364,6 +364,8 @@
                 #:environment-variables
                 `(,(string-append
                     "GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale")
+                  ;; XDG_CACHE_HOME is used by Guix when caching narinfo files
+                  "XDG_CACHE_HOME=/var/cache/guix-build-coordinator-agent"
                   "LC_ALL=en_US.utf8")
                 #:log-file "/var/log/guix-build-coordinator/agent.log"))
       (stop #~(make-kill-destructor))))))
@@ -376,6 +378,12 @@
 
       (mkdir-p "/var/log/guix-build-coordinator")
 
+      ;; Create a cache directory for storing narinfo files if downloaded
+      (mkdir-p "/var/cache/guix-build-coordinator-agent")
+      (chown "/var/cache/guix-build-coordinator-agent"
+             (passwd:uid %user)
+             (passwd:gid %user))
+
       ;; Allow writing the PID file
       (mkdir-p "/var/run/guix-build-coordinator-agent")
       (chown "/var/run/guix-build-coordinator-agent"