summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-12-20 09:56:55 +0100
committerLudovic Courtès <ludo@gnu.org>2016-12-20 10:27:08 +0100
commit137f8df66cf7220f6ef9ac736b8f99e2fc726e15 (patch)
treeec6b659467e342879df304e194fd0af10b9ade87 /gnu
parent8c4e99cca393608f8be4b163249379590195bdfd (diff)
services: cuirass: Create the database directory.
* gnu/services/cuirass.scm (cuirass-activation): Create the database directory for CONFIG.
Diffstat (limited to 'gnu')
-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 d585e26538..91d78d15ac 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -114,6 +114,7 @@
(define (cuirass-activation config)
"Return the activation code for CONFIG."
(let ((cache (cuirass-configuration-cache-directory config))
+ (db (dirname (cuirass-configuration-database config)))
(user (cuirass-configuration-user config))
(group (cuirass-configuration-group config)))
(with-imported-modules '((guix build utils))
@@ -121,10 +122,12 @@
(use-modules (guix build utils))
(mkdir-p #$cache)
+ (mkdir-p #$db)
(let ((uid (passwd:uid (getpw #$user)))
(gid (group:gid (getgr #$group))))
- (chown #$cache uid gid))))))
+ (chown #$cache uid gid)
+ (chown #$db uid gid))))))
(define cuirass-service-type
(service-type