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 | |
| 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
| -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."))) | |||
| 2300 | ;;; | 2300 | ;;; |
| 2301 | ;;; Mollysocket. | 2301 | ;;; Mollysocket. |
| 2302 | ;;; | 2302 | ;;; |
| 2303 | (define (ms-format label str) | 2303 | (define (ms-format label rhs) |
| 2304 | (format #f "~a = ~a~%" label (string-map (match-lambda (#\- #\_) (x x)) str))) | 2304 | (let* ((uglify (match-lambda (#\- #\_) (x x))) |
| 2305 | (lhs (string-map uglify (symbol->string label)))) | ||
| 2306 | (format #f "~a = ~a~%" lhs rhs))) | ||
| 2305 | (define (ms-serialize-string label val) | 2307 | (define (ms-serialize-string label val) |
| 2306 | (ms-format label (string-append "'" val "'"))) | 2308 | (ms-format label (string-append "'" val "'"))) |
| 2307 | (define (ms-serialize-integer label val) | 2309 | (define (ms-serialize-integer label val) |