[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: weex: Use ‘modify-phases’.
|
From: |
Tobias Geerinckx-Rice |
|
Subject: |
01/02: gnu: weex: Use ‘modify-phases’. |
|
Date: |
Sun, 23 Oct 2016 14:33:10 +0000 (UTC) |
nckx pushed a commit to branch master
in repository guix.
commit bdc74f07c366e64891693be7c4aa2b8d779c36e9
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Fri Oct 21 18:33:09 2016 +0200
gnu: weex: Use ‘modify-phases’.
* gnu/packages/ftp.scm (weex): Use the ‘modify-phases’ syntax.
---
gnu/packages/ftp.scm | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm
index e1e6191..a112655 100644
--- a/gnu/packages/ftp.scm
+++ b/gnu/packages/ftp.scm
@@ -139,18 +139,18 @@ FTP browser, as well as non-interactive commands such as
'ncftpput' and
(patches (search-patches "weex-vacopy.patch"))))
(build-system gnu-build-system)
(arguments
- `(#:phases
- (alist-replace 'configure
- ;; configure does not work followed by both "SHELL=..." and
- ;; "CONFIG_SHELL=..."; set environment variables instead
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bash (which "bash")))
- (setenv "SHELL" bash)
- (setenv "CONFIG_SHELL" bash)
- (zero? (system* bash "./configure"
- (string-append "--prefix=" out)))))
- %standard-phases)))
+ `(#:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ ;; configure does not work followed by both "SHELL=..." and
+ ;; "CONFIG_SHELL=..."; set environment variables instead
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bash (which "bash")))
+ (setenv "SHELL" bash)
+ (setenv "CONFIG_SHELL" bash)
+ (zero? (system* bash "./configure"
+ (string-append "--prefix=" out)))))))))
(home-page "http://weex.sourceforge.net/";)
(synopsis "Non-interactive client for FTP synchronization")
(description