diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-12-20 09:56:55 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-12-20 10:27:08 +0100 |
| commit | 137f8df66cf7220f6ef9ac736b8f99e2fc726e15 (patch) | |
| tree | ec6b659467e342879df304e194fd0af10b9ade87 | |
| parent | 8c4e99cca393608f8be4b163249379590195bdfd (diff) | |
services: cuirass: Create the database directory.
* gnu/services/cuirass.scm (cuirass-activation): Create the database
directory for CONFIG.
| -rw-r--r-- | gnu/services/cuirass.scm | 5 |
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 |