summary refs log tree commit diff
diff options
context:
space:
mode:
authorBruno Victal <mirai@makinata.eu>2023-02-05 14:51:19 +0000
committerLeo Famulari <leo@famulari.name>2023-02-05 18:25:10 +0100
commit4b9e1e84585270a40cec485046ce15387405d256 (patch)
tree4673c68a30492bb0457d68e13c17bba6db39c074
parent95ecff4289e37cf15e3d19847076a8a9d108527d (diff)
downloadguix-4b9e1e84585270a40cec485046ce15387405d256.tar.gz
services: mpd: Fix serialization procedure for list-of-string.
This is a followup to commit 5c5f0fc1135ff15f9c4adfc5f27eadd9a592b5d1

* gnu/services/audio.scm (mpd-serialize-list-of-string): Fix serialization procedure.

Signed-off-by: Leo Famulari <leo@famulari.name>
-rw-r--r--gnu/services/audio.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/audio.scm b/gnu/services/audio.scm
index 630110db2a..d55b804ba9 100644
--- a/gnu/services/audio.scm
+++ b/gnu/services/audio.scm
@@ -160,7 +160,7 @@
 (define mpd-serialize-boolean mpd-serialize-field)
 
 (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 list-of-string (prefix mpd-))