summaryrefslogtreecommitdiff
path: root/gnu/services/cuirass.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services/cuirass.scm')
-rw-r--r--gnu/services/cuirass.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index d585e26538c..91d78d15ac7 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -114,6 +114,7 @@
114(define (cuirass-activation config) 114(define (cuirass-activation config)
115 "Return the activation code for CONFIG." 115 "Return the activation code for CONFIG."
116 (let ((cache (cuirass-configuration-cache-directory config)) 116 (let ((cache (cuirass-configuration-cache-directory config))
117 (db (dirname (cuirass-configuration-database config)))
117 (user (cuirass-configuration-user config)) 118 (user (cuirass-configuration-user config))
118 (group (cuirass-configuration-group config))) 119 (group (cuirass-configuration-group config)))
119 (with-imported-modules '((guix build utils)) 120 (with-imported-modules '((guix build utils))
@@ -121,10 +122,12 @@
121 (use-modules (guix build utils)) 122 (use-modules (guix build utils))
122 123
123 (mkdir-p #$cache) 124 (mkdir-p #$cache)
125 (mkdir-p #$db)
124 126
125 (let ((uid (passwd:uid (getpw #$user))) 127 (let ((uid (passwd:uid (getpw #$user)))
126 (gid (group:gid (getgr #$group)))) 128 (gid (group:gid (getgr #$group))))
127 (chown #$cache uid gid)))))) 129 (chown #$cache uid gid)
130 (chown #$db uid gid))))))
128 131
129(define cuirass-service-type 132(define cuirass-service-type
130 (service-type 133 (service-type