aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/xyz/euandreh/queue.scm11
1 files changed, 7 insertions, 4 deletions
diff --git a/src/xyz/euandreh/queue.scm b/src/xyz/euandreh/queue.scm
index cca1354..88a405c 100644
--- a/src/xyz/euandreh/queue.scm
+++ b/src/xyz/euandreh/queue.scm
@@ -404,12 +404,15 @@ collections.OrderedDict that works in Python 2.4-2.6.")
(define (cyrus-sasl-activation config)
(match-record config <cyrus-sasl-configuration>
- (state-dir)
+ (user state-dir)
#~(begin
(use-modules (guix build utils))
- (format (current-error-port)
- "Creating Cyrus SASL socket directory: \"~a\".~%" #$state-dir)
- (mkdir-p #$state-dir))))
+ (let ((user (getpwnam #$user)))
+ (format (current-error-port)
+ "Creating Cyrus SASL socket directory: \"~a\".~%" #$state-dir)
+ (mkdir-p #$state-dir)
+ (chown #$state-dir (passwd:uid user) (passwd:gid user))
+ (chmod #$state-dir #o755)))))
(define (cyrus-sasl-accounts config)
(match-record config <cyrus-sasl-configuration>