diff options
Diffstat (limited to 'src/org/euandre/queue.scm')
| -rw-r--r-- | src/org/euandre/queue.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 655fcb5..5c39631 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -570,8 +570,7 @@ to the list of supplementary groups of the user of such running process."))) (match-record config <cyrus-sasl-configuration> (package user group supplementary-groups authmech config-dirname run-directory services run-in-container? container-name container-namespaces extra-mappings) - (let* ((config-dir (string-append "/etc/" config-dirname)) - (bin (file-append package "/sbin/saslauthd")) + (let* ((bin (file-append package "/sbin/saslauthd")) (cmd (if (not run-in-container?) bin (least-authority-wrapper @@ -611,7 +610,7 @@ to the list of supplementary groups of the user of such running process."))) (format #t "Debug procedure")) #;(lambda _ (for-each (lambda (name) - (format #t "~a/~a~%" #$config-dir name)) + (format #t "/etc/~a/~a~%" #$config-dirname name)) (map cyrus-service-configuration-name #$services)))))))))))) (define cyrus-sasl-service-type |