summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2016-08-19 23:15:37 +0300
committerEfraim Flashner <efraim@flashner.co.il>2016-08-19 23:15:37 +0300
commitc237480b0cb912ca95d2b8e757a6a2e15ef6f3c1 (patch)
tree819d47edd372dbaa289b154ef3280f0bcc038b2e
parenta0cbf1b9bf6e31aaab4065527b9264bb3537d973 (diff)
downloadguix-c237480b0cb912ca95d2b8e757a6a2e15ef6f3c1.tar.gz
gnu: xdotool: Use 'modify-phases'.
* gnu/packages/xdisorg.scm (xdotool)[arguments]: Use 'modify-phases'.
-rw-r--r--gnu/packages/xdisorg.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 659bce098d..68d4dff404 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -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)