From 53bc4fc5f0ed32a93ddb682389176f3b17069e5a Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 11 Mar 2023 16:11:26 -0300
Subject: queue.scm: Use debug procedure for cyrus-sasl-service extra action

---
 src/xyz/euandreh/queue.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/xyz/euandreh')

diff --git a/src/xyz/euandreh/queue.scm b/src/xyz/euandreh/queue.scm
index 7e9f47b..c040ce6 100644
--- a/src/xyz/euandreh/queue.scm
+++ b/src/xyz/euandreh/queue.scm
@@ -540,6 +540,8 @@ collections.OrderedDict that works in Python 2.4-2.6.")
               (documentation "FIXME:DOCUMENTATION")
               (procedure
                 #~(lambda _
+                    (format #t "Debug procedure"))
+                #;(lambda _
                     (for-each (lambda (name)
                                 (format #t "~a/~a~%" #$config-dir name))
                               (map cyrus-service-configuration-name #$services))))))))))))
-- 
cgit v1.2.3