diff mbox series

[bug#61590,3/3] services: ladspa: Export accessors.

Message ID bf5da450c1249e0d13eada19cbf501fd6d13efeb.1676681327.git.mirai@makinata.eu
State New
Headers show
Series Export accessors for sound services. | expand

Commit Message

Bruno Victal Feb. 18, 2023, 12:51 a.m. UTC 
* gnu/service/sound.scm: Export ladspa-configuration? and
ladspa-configuration-plugins.
(<ladspa-configuration>)[plugins]: Rename accessor to ladspa-configuration-plugins.
(ladspa-environment): Adjust to use renamed plugin accessor.
---
 gnu/services/sound.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)
diff mbox series

Patch

diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm
index c3f64171dc..8ca7acd737 100644
--- a/gnu/services/sound.scm
+++ b/gnu/services/sound.scm
@@ -54,6 +54,8 @@  (define-module (gnu services sound)
             pulseaudio-service-type
 
             ladspa-configuration
+            ladspa-configuration?
+            ladspa-configuration-plugins
             ladspa-service-type))
 
 ;;; Commentary:
@@ -241,7 +243,7 @@  (define pulseaudio-service-type
 (define-record-type* <ladspa-configuration>
   ladspa-configuration make-ladspa-configuration
   ladspa-configuration?
-  (plugins ladspa-plugins (default '())))
+  (plugins ladspa-configuration-plugins (default '())))
 
 (define (ladspa-environment config)
   ;; Define this variable in the global environment such that
@@ -249,7 +251,7 @@  (define (ladspa-environment config)
   `(("LADSPA_PATH" .
      (string-join
       ',(map (lambda (package) (file-append package "/lib/ladspa"))
-             (ladspa-plugins config))
+             (ladspa-configuration-plugins config))
       ":"))))
 
 (define ladspa-service-type