nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: talloc: Use 'modify-phases' syntax. 

* gnu/packages/samba.scm (talloc)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
宋文武 2015-12-15 12:09:19 +08:00
parent c2fb20761a
commit 960ae0cde4
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/samba.scm
View File

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