diff mbox series

[bug#61297] services: mpd: Fix serialization procedure for list-of-string.

Message ID 9d5bd3aa290cd2bec065af9c017570f3b6543e05.1675608626.git.mirai@makinata.eu
State New
Headers show
Series [bug#61297] services: mpd: Fix serialization procedure for list-of-string. | expand

Commit Message

Bruno Victal Feb. 5, 2023, 2:51 p.m. UTC 
* gnu/services/audio.scm (mpd-serialize-list-of-string): Fix serialization procedure.
---
 gnu/services/audio.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

Comments

Leo Famulari Feb. 5, 2023, 5:26 p.m. UTC | #1 
On Sun, Feb 05, 2023 at 02:51:19PM +0000, Bruno Victal wrote:
> * gnu/services/audio.scm (mpd-serialize-list-of-string): Fix serialization procedure.

Thanks! Pushed as 4b9e1e84585270a40cec485046ce15387405d256
diff mbox series

Patch

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-string mpd-serialize-field)
 (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-))