futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: alsa-utils: Rewrite with G-Expressions.

Browse Source 
* gnu/packages/linux.scm (alsa-utils)[arguments]: Rewrite with G-Expressions.
<#:phases>: Drop obsolete 'disable-broken-test phase. Drop trailing #t.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Bruno Victal 2023-10-09 21:06:38 +01:00 committed by Ludovic Courtès
parent 55ce97b138
commit b8a254ceaa
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnu/packages/linux.scm
View File

@ -3066,28 +3066,19 @@ MIDI functionality to the Linux-based operating system.")
"09m4dnn4kplawprd2bl15nwa0b4r1brab3x44ga7f1fyk7aw5zwq")))) "09m4dnn4kplawprd2bl15nwa0b4r1brab3x44ga7f1fyk7aw5zwq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags (list ;; The udev rule is responsible for restoring (list
;; the volume. #:configure-flags
(string-append "--with-udev-rules-dir=" #~(list
(assoc-ref %outputs "out") ;; The udev rule is responsible for restoring the volume.
"/lib/udev/rules.d")) (string-append "--with-udev-rules-dir=" #$output "/lib/udev/rules.d"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'disable-broken-test (add-before 'install 'pre-install
(lambda _ (lambda _
;; XXX: The 1.1.8 release tarball is missing a header that's ;; Don't try to mkdir /var/lib/alsa.
;; required for this test to work. Fixed in 1.1.9. (substitute* "Makefile"
(substitute* "axfer/test/Makefile" (("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
((".*container-test.*") "")) "true\n")))))))
#t))
(add-before
'install 'pre-install
(lambda _
;; Don't try to mkdir /var/lib/alsa.
(substitute* "Makefile"
(("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
"true\n"))
#t)))))
(native-inputs (native-inputs
(list docbook-xml-4.2 docbook-xsl xmlto (list docbook-xml-4.2 docbook-xsl xmlto
gettext-minimal)) gettext-minimal))