me
/
guix
Archived
1
0
Fork 0
Code

gnu: pulseaudio: Use 'modify-phases' syntax. 

* gnu/packages/pulseaudio.scm (pulseaudio)[arguments]: Use 'modify-phases'.
master
Marius Bakke 2017-12-17 17:29:52 +01:00
parent 2edf825974
commit 277cf3dc1d
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/packages/pulseaudio.scm
View File

@ -147,16 +147,16 @@ rates.")
(string-append "--with-udev-rules-dir=" (string-append "--with-udev-rules-dir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/lib/udev/rules.d")) "/lib/udev/rules.d"))
#:phases (alist-cons-before #:phases (modify-phases %standard-phases
'check 'pre-check (add-before 'check 'pre-check
(lambda _ (lambda _
;; 'tests/lock-autospawn-test.c' wants to create a file ;; 'tests/lock-autospawn-test.c' wants to create a file
;; under ~/.config/pulse. ;; under ~/.config/pulse.
(setenv "HOME" (getcwd)) (setenv "HOME" (getcwd))
;; 'thread-test' needs more time on hydra and on slower ;; 'thread-test' needs more time on hydra and on slower
;; machines, so we set the default timeout to 120 seconds. ;; machines, so we set the default timeout to 120 seconds.
(setenv "CK_DEFAULT_TIMEOUT" "120")) (setenv "CK_DEFAULT_TIMEOUT" "120")
%standard-phases))) #t)))))
(inputs (inputs
;; TODO: Add optional inputs (GTK+?). ;; TODO: Add optional inputs (GTK+?).
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)