mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 15:26:47 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: strawberry: Remove trailing #t from phases and snippet.

Browse source 
* gnu/packages/music.scm (strawberry)[arguments]<#:phases>: Remove trailing #t.
[snippet]: Likewise.

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Michael Rohleder 2022-11-01 01:07:16 +01:00 committed by Christopher Baines
parent 7f75be7312
commit 318581c5fc
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/music.scm
View file

@ -504,8 +504,7 @@ (define-public strawberry
(find-files "3rdparty" (find-files "3rdparty"
(lambda (file stat) (lambda (file stat)
(string-match "^3rdparty/[^/]*$" file)) (string-match "^3rdparty/[^/]*$" file))
#:directories? #t)) #:directories? #t))))))
#t))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:test-target "run_strawberry_tests" `(#:test-target "run_strawberry_tests"
@ -516,15 +515,13 @@ (define-public strawberry
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
(wrap-program (string-append out "/bin/strawberry") (wrap-program (string-append out "/bin/strawberry")
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))) `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))))
#t)))
(add-before 'check 'pre-check (add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server"))) (let ((xorg-server (assoc-ref inputs "xorg-server")))
(system (format #f "~a/bin/Xvfb :1 &" xorg-server)) (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
(setenv "DISPLAY" ":1") (setenv "DISPLAY" ":1")
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))))))))
#t))))))
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) `(("gettext" ,gettext-minimal)
("googletest" ,googletest) ("googletest" ,googletest)