From 960ae0cde4d05c33547b16fe97f17f82a9c562e1 Mon Sep 17 00:00:00 2001 From: 宋文武 Date: Tue, 15 Dec 2015 12:09:19 +0800 Subject: gnu: talloc: Use 'modify-phases' syntax. * gnu/packages/samba.scm (talloc)[arguments]: Use 'modify-phases' syntax. --- gnu/packages/samba.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm index 484eafb647..0873a00267 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") -- cgit v1.2.3