guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

118/155: services: cuirass: Create the database directory.


From: John Darrington
Subject: 118/155: services: cuirass: Create the database directory.
Date: Wed, 21 Dec 2016 20:48:39 +0000 (UTC)

jmd pushed a commit to branch wip-installer
in repository guix.

commit 25db82066e21756a3a114f186cf3872a6d90737a
Author: Ludovic Court├Ęs <address@hidden>
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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]