Michael Rohleder wrote 2 years ago
(address . guix-patches@gnu.org)(name . Michael Rohleder)(address . mike@rohleder.de)
20221101000716.6746-1-mike@rohleder.de
* gnu/packages/music.scm (strawberry)[arguments]<#:phases>: Remove trailing #t.
[snippet]: Likewise.
---
gnu/packages/music.scm | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
Toggle diff (34 lines)
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index d493b09f07..c8dd415523 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -504,8 +504,7 @@ (define-public strawberry
(find-files "3rdparty"
(lambda (file stat)
(string-match "^3rdparty/[^/]*$" file))
- #:directories? #t))
- #t))))
+ #:directories? #t))))))
(build-system cmake-build-system)
(arguments
`(#:test-target "run_strawberry_tests"
@@ -516,15 +515,13 @@ (define-public strawberry
(let ((out (assoc-ref outputs "out"))
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(wrap-program (string-append out "/bin/strawberry")
- `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
- #t)))
+ `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))))
(add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server")))
(system (format #f "~a/bin/Xvfb :1 &" xorg-server))
(setenv "DISPLAY" ":1")
- (setenv "HOME" (getcwd))
- #t))))))
+ (setenv "HOME" (getcwd))))))))
(native-inputs
`(("gettext" ,gettext-minimal)
("googletest" ,googletest)
--
2.38.0