From 137f8df66cf7220f6ef9ac736b8f99e2fc726e15 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 20 Dec 2016 09:56:55 +0100 Subject: 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 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 -- cgit 1.4.1