me/guix
Archived
1
0
Fork 0
Code Activity

gnu: weex: Use ‘modify-phases’.

Browse source 
* gnu/packages/ftp.scm (weex): Use the ‘modify-phases’ syntax.
This commit is contained in:
Tobias Geerinckx-Rice 2016-10-21 18:33:09 +02:00
parent 5f5b57681c
commit bdc74f07c3
No known key found for this signature in database
GPG key ID: 91CCDB9B48541B99
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/ftp.scm
View file

@ -139,18 +139,18 @@ FTP browser, as well as non-interactive commands such as 'ncftpput' and
(patches (search-patches "weex-vacopy.patch")))) (patches (search-patches "weex-vacopy.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(alist-replace 'configure (modify-phases %standard-phases
;; configure does not work followed by both "SHELL=..." and (replace 'configure
;; "CONFIG_SHELL=..."; set environment variables instead ;; configure does not work followed by both "SHELL=..." and
(lambda* (#:key outputs #:allow-other-keys) ;; "CONFIG_SHELL=..."; set environment variables instead
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key outputs #:allow-other-keys)
(bash (which "bash"))) (let* ((out (assoc-ref outputs "out"))
(setenv "SHELL" bash) (bash (which "bash")))
(setenv "CONFIG_SHELL" bash) (setenv "SHELL" bash)
(zero? (system* bash "./configure" (setenv "CONFIG_SHELL" bash)
(string-append "--prefix=" out))))) (zero? (system* bash "./configure"
%standard-phases))) (string-append "--prefix=" out)))))))))
(home-page "http://weex.sourceforge.net/") (home-page "http://weex.sourceforge.net/")
(synopsis "Non-interactive client for FTP synchronization") (synopsis "Non-interactive client for FTP synchronization")
(description (description