03/03: services: mpd: Fix serialization procedure for list-of-string.

[guix-commits]

lfam pushed a commit to branch master
in repository guix.

commit 4b9e1e84585270a40cec485046ce15387405d256
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Sun Feb 5 14:51:19 2023 +0000

    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>
---
 gnu/services/audio.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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