From d9240775230405a7dfbccfe2052cbdcfc2aa76d2 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Thu, 16 Mar 2023 12:18:54 -0300
Subject: queue.scm: Fix "configuration" action of cyrus-sal

---
 src/org/euandre/queue.scm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'src/org/euandre')

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
-- 
cgit v1.2.3