diff options
| author | EuAndreh <eu@euandre.org> | 2023-03-16 12:18:54 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2023-03-16 13:39:04 -0300 |
| commit | d9240775230405a7dfbccfe2052cbdcfc2aa76d2 (patch) | |
| tree | 19c3b44a1e97c2ab62ce64e9e8e2ec11720b04ce /src/org/euandre/queue.scm | |
| parent | queue.scm: Reorder args to (least-authority-wrapper ..) on cyrus-sal (diff) | |
| download | package-repository-d9240775230405a7dfbccfe2052cbdcfc2aa76d2.tar.gz package-repository-d9240775230405a7dfbccfe2052cbdcfc2aa76d2.tar.xz | |
queue.scm: Fix "configuration" action of cyrus-sal
Diffstat (limited to 'src/org/euandre/queue.scm')
| -rw-r--r-- | src/org/euandre/queue.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 659f72a..b269374 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -606,12 +606,11 @@ to the list of supplementary groups of the user of such running process."))) (name 'configuration) (documentation "FIXME:DOCUMENTATION") (procedure - #~(lambda _ - (format #t "Debug procedure")) - #;(lambda _ - (for-each (lambda (name) - (format #t "/etc/~a/~a~%" #$config-dirname name)) - (map cyrus-service-configuration-name #$services)))))))))))) + (let ((names (map cyrus-service-configuration-name services))) + #~(lambda _ + (for-each (lambda (name) + (format #t "/etc/~a/~a~%" #$config-dirname name)) + '#$names)))))))))))) (define cyrus-sasl-service-type (service-type |