diff options
| author | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2016-01-21 11:20:30 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> | 2016-01-21 15:53:35 +0100 |
| commit | b2844d8f14bbc2e57768b0c2868020da2faa5b0a (patch) | |
| tree | 5fdca1e12149bb02e45dc53c81b2e8e54da3f6d3 /gnu/packages | |
| parent | 897092875e981678d3c121df3e3d970e90e7eb64 (diff) | |
| download | guix-b2844d8f14bbc2e57768b0c2868020da2faa5b0a.tar.gz guix-b2844d8f14bbc2e57768b0c2868020da2faa5b0a.zip | |
gnu: bind-utils: Use "modify-phases" syntax.
* gnu/packages/dns.scm (bind-utils): Use "modify-phases" syntax.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/dns.scm | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm index c83d16a68e..f7d6c88ee4 100644 --- a/gnu/packages/dns.scm +++ b/gnu/packages/dns.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> +;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -91,19 +92,17 @@ and BOOTP/TFTP for network booting of diskless machines.") (string-append "--with-pkcs11=" (assoc-ref %build-inputs "p11-kit"))) #:phases - (alist-replace - 'build - (lambda _ - (and (zero? (system* "make" "-C" "lib/dns")) - (zero? (system* "make" "-C" "lib/isc")) - (zero? (system* "make" "-C" "lib/bind9")) - (zero? (system* "make" "-C" "lib/isccfg")) - (zero? (system* "make" "-C" "lib/lwres")) - (zero? (system* "make" "-C" "bin/dig")))) - (alist-replace - 'install - (lambda _ (zero? (system* "make" "-C" "bin/dig" "install"))) - %standard-phases)))) + (modify-phases %standard-phases + (replace 'build + (lambda _ + (and (zero? (system* "make" "-C" "lib/dns")) + (zero? (system* "make" "-C" "lib/isc")) + (zero? (system* "make" "-C" "lib/bind9")) + (zero? (system* "make" "-C" "lib/isccfg")) + (zero? (system* "make" "-C" "lib/lwres")) + (zero? (system* "make" "-C" "bin/dig"))))) + (replace 'install + (lambda _ (zero? (system* "make" "-C" "bin/dig" "install"))))))) (home-page "https://www.isc.org/downloads/bind/") (synopsis "Tools for querying nameservers") (description |