nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: xdotool: Use 'modify-phases'. 

* gnu/packages/xdisorg.scm (xdotool)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-08-19 23:15:37 +03:00
parent a0cbf1b9bf
commit c237480b0c
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/xdisorg.scm
View File

@ -182,14 +182,14 @@ X11 (yet).")
(arguments (arguments
'(#:tests? #f ; Test suite requires a lot of black magic '(#:tests? #f ; Test suite requires a lot of black magic
#:phases #:phases
(alist-replace 'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys #:rest args) (replace 'configure
(setenv "PREFIX" (assoc-ref outputs "out")) (lambda* (#:key outputs #:allow-other-keys #:rest args)
(setenv "LDFLAGS" (string-append "-Wl,-rpath=" (setenv "PREFIX" (assoc-ref outputs "out"))
(assoc-ref (setenv "LDFLAGS"
%outputs "out") "/lib")) (string-append "-Wl,-rpath="
(setenv "CC" "gcc")) (assoc-ref %outputs "out") "/lib"))
%standard-phases))) (setenv "CC" "gcc"))))))
(native-inputs `(("perl" ,perl))) ; for pod2man (native-inputs `(("perl" ,perl))) ; for pod2man
(inputs `(("libx11" ,libx11) (inputs `(("libx11" ,libx11)
("libxext" ,libxext) ("libxext" ,libxext)