[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: services: cuirass: Create /var/log/cuirass during activation.
From: |
guix-commits |
Subject: |
02/02: services: cuirass: Create /var/log/cuirass during activation. |
Date: |
Wed, 23 Oct 2019 15:49:00 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit b40f4a5995cff00077aa60881737d0d0f6871982
Author: Ludovic Courtès <address@hidden>
Date: Wed Oct 23 21:48:08 2019 +0200
services: cuirass: Create /var/log/cuirass during activation.
* gnu/services/cuirass.scm (cuirass-activation): Create "/var/log/cuirass".
---
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 914a0d3..d924217 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -164,6 +164,7 @@
(let ((cache (cuirass-configuration-cache-directory config))
(db (dirname (cuirass-configuration-database config)))
(user (cuirass-configuration-user config))
+ (log "/var/log/cuirass")
(group (cuirass-configuration-group config)))
(with-imported-modules '((guix build utils))
#~(begin
@@ -171,11 +172,13 @@
(mkdir-p #$cache)
(mkdir-p #$db)
+ (mkdir-p #$log)
(let ((uid (passwd:uid (getpw #$user)))
(gid (group:gid (getgr #$group))))
(chown #$cache uid gid)
- (chown #$db uid gid))))))
+ (chown #$db uid gid)
+ (chown #$log uid gid))))))
(define (cuirass-log-rotations config)
"Return the list of log rotations that corresponds to CONFIG."