guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#65479] [PATCH core-updates v2 49/62] gnu: alsa-utils: Rewrite with


From: Bruno Victal
Subject: [bug#65479] [PATCH core-updates v2 49/62] gnu: alsa-utils: Rewrite with G-Expressions.
Date: Sat, 23 Sep 2023 15:20:24 +0100

* gnu/packages/linux.scm (alsa-utils)[arguments]: Rewrite with G-Expressions.
<#:phases>: Drop obsolete 'disable-broken-test phase. Drop trailing #t.
---
 gnu/packages/linux.scm | 35 +++++++++++++----------------------
 1 file changed, 13 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 9b128cf4fa..4f6c1277e2 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -2883,28 +2883,19 @@ (define-public alsa-utils
                "09m4dnn4kplawprd2bl15nwa0b4r1brab3x44ga7f1fyk7aw5zwq"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:configure-flags (list ;; The udev rule is responsible for restoring
-                               ;; the volume.
-                               (string-append "--with-udev-rules-dir="
-                                              (assoc-ref %outputs "out")
-                                              "/lib/udev/rules.d"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'disable-broken-test
-           (lambda _
-             ;; XXX: The 1.1.8 release tarball is missing a header that's
-             ;; required for this test to work.  Fixed in 1.1.9.
-             (substitute* "axfer/test/Makefile"
-               ((".*container-test.*") ""))
-             #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)))))
+     (list
+      #:configure-flags
+      #~(list
+         ;; The udev rule is responsible for restoring the volume.
+         (string-append "--with-udev-rules-dir=" #$output "/lib/udev/rules.d"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 'pre-install
+            (lambda _
+              ;; Don't try to mkdir /var/lib/alsa.
+              (substitute* "Makefile"
+                (("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
+                 "true\n")))))))
     (native-inputs
      (list docbook-xml-4.2 docbook-xsl xmlto
            gettext-minimal))
-- 
2.41.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]