aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/suckless.scm
diff options
context:
space:
mode:
authorng0 <ng0@libertad.pw>2017-01-15 12:21:15 +0000
committerLudovic Courtès <ludo@gnu.org>2017-01-16 11:03:46 +0100
commit0d2c8f342017eab4f5c542e53a9179acaf6b507f (patch)
treeaf4bbb885c2b2366c15db3362611e7238d393e28 /gnu/packages/suckless.scm
parent849a1b8133263741754dfec7a424d9de05a165ef (diff)
downloadguix-0d2c8f342017eab4f5c542e53a9179acaf6b507f.tar
guix-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>
Diffstat (limited to 'gnu/packages/suckless.scm')
-rw-r--r--gnu/packages/suckless.scm26
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)