diff options
| author | Lilah Tascheter <lilah@lunabee.space> | 2025-11-23 21:34:07 -0600 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-03-04 17:45:15 +0100 |
| commit | 22ae76cfcef2bf306f728dbc35b6eabc52065b82 (patch) | |
| tree | 2cde3956553385ca96bef003d70cd1be3e1b5863 /gnu/services | |
| parent | 2bd0ba7226422d29af386bbc7b8302f16e891a6b (diff) | |
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 <ludo@gnu.org>
Merges: #4435
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/messaging.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 595f9622946..1fbb1f1d857 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) |