[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#61590] [PATCH 3/3] services: ladspa: Export accessors.
From: |
Bruno Victal |
Subject: |
[bug#61590] [PATCH 3/3] services: ladspa: Export accessors. |
Date: |
Sat, 18 Feb 2023 00:51:33 +0000 |
* 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 --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
--
2.39.1