From 318581c5fc8f7716ad65d670eb7654a03a0e785d Mon Sep 17 00:00:00 2001 From: Michael Rohleder Date: Tue, 1 Nov 2022 01:07:16 +0100 Subject: gnu: strawberry: Remove trailing #t from phases and snippet. * gnu/packages/music.scm (strawberry)[arguments]<#:phases>: Remove trailing #t. [snippet]: Likewise. Signed-off-by: Christopher Baines --- gnu/packages/music.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'gnu') 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 @@ playing your music.") (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 @@ playing your music.") (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) -- cgit v1.2.3