guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

03/07: gnu: talloc: Use 'modify-phases' syntax.


From: ???
Subject: 03/07: gnu: talloc: Use 'modify-phases' syntax.
Date: Fri, 18 Dec 2015 02:31:26 +0000

iyzsong pushed a commit to branch master
in repository guix.

commit 960ae0cde4d05c33547b16fe97f17f82a9c562e1
Author: 宋文武 <address@hidden>
Date:   Tue Dec 15 12:09:19 2015 +0800

    gnu: talloc: Use 'modify-phases' syntax.
    
    * gnu/packages/samba.scm (talloc)[arguments]: Use 'modify-phases' syntax.
---
 gnu/packages/samba.scm |   20 ++++++++++----------
 1 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm
index 484eafb..0873a00 100644
--- a/gnu/packages/samba.scm
+++ b/gnu/packages/samba.scm
@@ -179,16 +179,16 @@ Desktops into Active Directory environments using the 
winbind daemon.")
                 "13c365f7y8idjf2v1jxdjpkc3lxdmsxxfxjx1ymianm7zjiph393"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (alist-replace
-                 'configure
-                 (lambda* (#:key outputs #:allow-other-keys)
-                   ;; talloc uses a custom configuration script that runs a
-                   ;; python script called 'waf'.
-                   (setenv "CONFIG_SHELL" (which "sh"))
-                   (let ((out (assoc-ref outputs "out")))
-                     (zero? (system* "./configure"
-                                     (string-append "--prefix=" out)))))
-                 %standard-phases)))
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; talloc uses a custom configuration script that runs a
+             ;; python script called 'waf'.
+             (setenv "CONFIG_SHELL" (which "sh"))
+             (let ((out (assoc-ref outputs "out")))
+               (zero? (system* "./configure"
+                               (string-append "--prefix=" out)))))))))
     (inputs
      `(("python" ,python-2)))
     (home-page "http://talloc.samba.org";)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]