guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 22ae76cfcef2bf306f728dbc35b6eabc52065b82
Author: Lilah Tascheter <[email protected]>
AuthorDate: Sun Nov 23 21:34:07 2025 -0600
services: mollysocket: Fix mollysocket configuration.
* gnu/services/messaging.scm (ms-format): Run string-map on label, not
str/rhs.
Change-Id: I07b6b90e4156b525aad1490a4165a3359bda8b3e
Signed-off-by: Ludovic Courtès <[email protected]>
Merges: #4435
---
gnu/services/messaging.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index 595f962294..1fbb1f1d85 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -2300,8 +2300,10 @@ multiple machines simultaneously.")))
;;;
;;; Mollysocket.
;;;
-(define (ms-format label str)
- (format #f "~a = ~a~%" label (string-map (match-lambda (#\- #\_) (x x))
str)))
+(define (ms-format label rhs)
+ (let* ((uglify (match-lambda (#\- #\_) (x x)))
+ (lhs (string-map uglify (symbol->string label))))
+ (format #f "~a = ~a~%" lhs rhs)))
(define (ms-serialize-string label val)
(ms-format label (string-append "'" val "'")))
(define (ms-serialize-integer label val)
