~ruther/guix-local: services: cuirass: Create the database directory.

137f8df66cf7220f6ef9ac736b8f99e2fc726e15 — Ludovic Courtès 9 years ago 8c4e99c

services: cuirass: Create the database directory.

* gnu/services/cuirass.scm (cuirass-activation): Create the database
directory for CONFIG.

patch browse .tar.gz

1 files changed, 4 insertions(+), 1 deletions(-)

M gnu/services/cuirass.scm

M gnu/services/cuirass.scm => gnu/services/cuirass.scm +4 -1

@@ 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