~ruther/guix-local

c237480b0cb912ca95d2b8e757a6a2e15ef6f3c1 — Efraim Flashner 9 years ago a0cbf1b
gnu: xdotool: Use 'modify-phases'.

* gnu/packages/xdisorg.scm (xdotool)[arguments]: Use 'modify-phases'.
1 files changed, 8 insertions(+), 8 deletions(-)

M gnu/packages/xdisorg.scm
M gnu/packages/xdisorg.scm => gnu/packages/xdisorg.scm +8 -8
@@ 182,14 182,14 @@ X11 (yet).")
    (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)