diff options
| author | EuAndreh <eu@euandre.org> | 2023-03-16 11:31:00 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-03-16 11:31:00 -0300 |
| commit | a6abbc9f22dbda71f979b9ec6be843d084fc6498 (patch) | |
| tree | 412598281e85a4fa206f24424f7733fc2af3b79f /src/org/euandre/queue.scm | |
| parent | queue.scm: cyrus-sasl-configuration-{cyrus-sasl => package} (diff) | |
| download | package-repository-a6abbc9f22dbda71f979b9ec6be843d084fc6498.tar.gz package-repository-a6abbc9f22dbda71f979b9ec6be843d084fc6498.tar.xz | |
queue.scm: Remove intermediate "config-dir" local binding
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 |