04/13: gnu: libuv: Use 'modify-phases' syntax.

[Marius Bakke]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 61bed157075b23bc29d6859e4755ebaafac0d77a
Author: Marius Bakke <address@hidden>
Date:   Sun Nov 19 15:23:04 2017 +0100

    gnu: libuv: Use 'modify-phases' syntax.
    
    * gnu/packages/libevent.scm (libuv)[arguments]<#:phases>: Use 
'modify-phases'.
---
 gnu/packages/libevent.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm
index 0b87011..c0c7688 100644
--- a/gnu/packages/libevent.scm
+++ b/gnu/packages/libevent.scm
@@ -131,13 +131,12 @@ programs.")
                 "0pbq9kb96fp131fcmmpjngh8n4nsnwafzirdi8j934wnmnlsyjnn"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (alist-cons-after
-                 'unpack 'autogen
-                 (lambda _
-                   ;; Fashionable people don't run 'make dist' these days, so
-                   ;; we need to do that ourselves.
-                   (zero? (system* "sh" "autogen.sh")))
-                 %standard-phases)
+     '(#:phases (modify-phases %standard-phases
+                  (add-after 'unpack 'autogen
+                    (lambda _
+                      ;; Fashionable people don't run 'make dist' these days, 
so
+                      ;; we need to do that ourselves.
+                      (zero? (system* "sh" "autogen.sh")))))
 
        ;; XXX: Some tests want /dev/tty, attempt to make connections, etc.
        #:tests? #f))