jmd pushed a commit to branch wip-installer
in repository guix.
commit 25db82066e21756a3a114f186cf3872a6d90737a
Author: Ludovic Courtès <[email protected]>
Date: Tue Dec 20 09:56:55 2016 +0100
services: cuirass: Create the database directory.
* gnu/services/cuirass.scm (cuirass-activation): Create the database
directory for CONFIG.
---
gnu/services/cuirass.scm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index d585e26..91d78d1 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
