diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2016-08-19 23:17:48 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2016-08-19 23:17:48 +0300 |
| commit | ea0836cd6f09cc814505fabd0846ae58a58e4b3f (patch) | |
| tree | c6649f17d44be294c7c134c1552a480f742bcc23 | |
| parent | c237480b0cb912ca95d2b8e757a6a2e15ef6f3c1 (diff) | |
| download | guix-ea0836cd6f09cc814505fabd0846ae58a58e4b3f.tar.gz | |
gnu: unclutter: Use 'modify-phases'.
* gnu/packages/xdisorg.scm (unclutter)[arguments]: Use 'modify-phases'.
| -rw-r--r-- | gnu/packages/xdisorg.scm | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 68d4dff404..cc83a04679 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -514,21 +514,20 @@ include cursor in the resulting image.") (build-system gnu-build-system) (arguments '(#:tests? #f ; no check target - #:phases (alist-delete - 'configure - (alist-replace - 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man1 (string-append out "/share/man/man1"))) - (mkdir-p bin) - (mkdir-p man1) - (zero? - (system* "make" "install" "install.man" - (string-append "BINDIR=" bin) - (string-append "MANDIR=" man1))))) - %standard-phases)))) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (man1 (string-append out "/share/man/man1"))) + (mkdir-p bin) + (mkdir-p man1) + (zero? + (system* "make" "install" "install.man" + (string-append "BINDIR=" bin) + (string-append "MANDIR=" man1))))))))) (inputs `(("libx11" ,libx11))) (home-page "http://ftp.x.org/contrib/utilities/") (synopsis "Hide idle mouse cursor") |