diff options
Diffstat (limited to 'gnu/services/cuirass.scm')
| -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 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 |
