01/03: gnu: bind-utils: Use "modify-phases" syntax.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit b2844d8f14bbc2e57768b0c2868020da2faa5b0a
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Jan 21 11:20:30 2016 +0100

    gnu: bind-utils: Use "modify-phases" syntax.
    
    * gnu/packages/dns.scm (bind-utils): Use "modify-phases" syntax.
---
 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 c83d16a..f7d6c88 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 <address@hidden>
 ;;; Copyright © 2016 Mark H Weaver <address@hidden>
+;;; Copyright © 2016 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; 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