ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-23 21:17:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: mpd: Fix unintentional API breakage for mixer-type field.

Browse source 
* gnu/services/audio.scm (mpd-output)[mixer-type]: Use sanitizer to
accept both strings and symbols as values.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Bruno Victal 2023-03-26 19:41:31 +01:00 committed by Liliana Marie Prikler
parent 0fbb356714
commit 2c4df1a41a
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/services/audio.scm
View file

@ -140,6 +140,11 @@ (define (uglify-field-name field-name)
(define list-of-symbol?
(list-of symbol?))
;;;
;;; MPD
;;;
(define (mpd-serialize-field field-name value)
(let ((field (if (string? field-name) field-name
(uglify-field-name field-name)))
@ -294,7 +299,17 @@ (define-configuration mpd-output
for this audio output: the @code{hardware} mixer, the @code{software}
mixer, the @code{null} mixer (allows setting the volume, but with no
effect; this can be used as a trick to implement an external mixer
External Mixer) or no mixer (@code{none}).")
External Mixer) or no mixer (@code{none})."
(sanitizer
(lambda (x) ; TODO: deprecated, remove me later.
(cond
((symbol? x)
(warning (G_ "symbol value for 'mixer-type' is deprecated, \
use string instead~%"))
(symbol->string x))
((string? x) x)
(else
(configuration-field-error #f 'mixer-type x))))))
(replay-gain-handler
maybe-string