ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: xdotool: Use 'modify-phases'.

Browse source 
* 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 @@ (define-public xdotool
(arguments
'(#:tests? #f ; Test suite requires a lot of black magic
#:phases
(alist-replace 'configure
(lambda* (#:key outputs #:allow-other-keys #:rest args)
(setenv "PREFIX" (assoc-ref outputs "out"))
(setenv "LDFLAGS" (string-append "-Wl,-rpath="
(assoc-ref
%outputs "out") "/lib"))
(setenv "CC" "gcc"))
%standard-phases)))
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys #:rest args)
(setenv "PREFIX" (assoc-ref outputs "out"))
(setenv "LDFLAGS"
(string-append "-Wl,-rpath="
(assoc-ref %outputs "out") "/lib"))
(setenv "CC" "gcc"))))))
(native-inputs `(("perl" ,perl))) ; for pod2man
(inputs `(("libx11" ,libx11)
("libxext" ,libxext)