diff options
| author | ng0 <ng0@libertad.pw> | 2017-01-15 12:21:15 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-16 11:03:46 +0100 |
| commit | 0d2c8f342017eab4f5c542e53a9179acaf6b507f (patch) | |
| tree | af4bbb885c2b2366c15db3362611e7238d393e28 | |
| parent | 849a1b8133263741754dfec7a424d9de05a165ef (diff) | |
| download | patches-0d2c8f342017eab4f5c542e53a9179acaf6b507f.tar patches-0d2c8f342017eab4f5c542e53a9179acaf6b507f.tar.gz | |
gnu: dwm: Use modify-phases.
* gnu/packages/suckless.scm (dwm): Use modify-phases.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/suckless.scm | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm index 868939b90a..a737a29dc0 100644 --- a/gnu/packages/suckless.scm +++ b/gnu/packages/suckless.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net> ;;; Copyright © 2016 Al McElrath <hello@yrns.org> -;;; Copyright © 2016, 2017 ng0 <ng0@libertad.pw> +;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org> ;;; Copyright © 2015 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org> @@ -64,19 +64,17 @@ (assoc-ref %build-inputs "freetype") "/include/freetype2")) #:phases - (alist-replace - 'configure - (lambda _ - (substitute* "Makefile" (("\\$\\{CC\\}") "gcc")) - #t) - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (zero? - (system* "make" "install" - (string-append "DESTDIR=" out) "PREFIX=")))) - %standard-phases)))) + (modify-phases %standard-phases + (replace 'configure + (lambda _ + (substitute* "Makefile" (("\\$\\{CC\\}") "gcc")) + #t)) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (zero? + (system* "make" "install" + (string-append "DESTDIR=" out) "PREFIX=")))))))) (inputs `(("freetype" ,freetype) ("libx11" ,libx11) |