04/10: services: ladspa: Export accessors.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8390b47c045efca88785b5ed9210cb7aa13cb63a
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Sat Feb 18 00:51:33 2023 +0000

    services: ladspa: Export accessors.
    
    * 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.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/services/sound.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 @@
             pulseaudio-service-type
 
             ladspa-configuration
+            ladspa-configuration?
+            ladspa-configuration-plugins
             ladspa-service-type))
 
 ;;; Commentary:
@@ -241,7 +243,7 @@ computed-file object~%") file))))
 (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 @@ computed-file object~%") file))))
   `(("LADSPA_PATH" .
      (string-join
       ',(map (lambda (package) (file-append package "/lib/ladspa"))
-             (ladspa-plugins config))
+             (ladspa-configuration-plugins config))
       ":"))))
 
 (define ladspa-service-type