tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: mollysocket: Fix mollysocket configuration.

Browse Source 
* gnu/services/messaging.scm (ms-format): Run string-map on label, not str/rhs.

Change-Id: I07b6b90e4156b525aad1490a4165a3359bda8b3e
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #4435
This commit is contained in:
Lilah Tascheter
2025-11-23 21:34:07 -06:00
committed by Ludovic Courtès
parent 2bd0ba7226
commit 22ae76cfce
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/services/messaging.scm
View File

@@ -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)