services: mpd: Fix serialization procedure for list-of-string.
This is a followup to commit 5c5f0fc113
* gnu/services/audio.scm (mpd-serialize-list-of-string): Fix serialization procedure.
Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
parent
95ecff4289
commit
4b9e1e8458
@ -160,7 +160,7 @@
|
|||||||
(define mpd-serialize-boolean mpd-serialize-field)
|
(define mpd-serialize-boolean mpd-serialize-field)
|
||||||
|
|
||||||
(define (mpd-serialize-list-of-string field-name value)
|
(define (mpd-serialize-list-of-string field-name value)
|
||||||
#~(string-concatenate #$(map (cut mpd-serialize-string field-name <>) value)))
|
#~(string-append #$@(map (cut mpd-serialize-string field-name <>) value)))
|
||||||
|
|
||||||
(define-maybe string (prefix mpd-))
|
(define-maybe string (prefix mpd-))
|
||||||
(define-maybe list-of-string (prefix mpd-))
|
(define-maybe list-of-string (prefix mpd-))
|
||||||
|
Loading…
Reference in New Issue
Block a user