ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ncftp: Use ‘modify-phases’.

Browse source 
* gnu/packages/ftp.scm (ncftp): Use the ‘modify-phases’ syntax.
This commit is contained in:
Tobias Geerinckx-Rice 2016-10-19 17:00:35 +02:00
parent c17b5986f2
commit f5d3773268
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

@ -100,18 +100,18 @@ (define-public ncftp
"free software")))))) "free software"))))))
(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
;; This is an old 'configure' script that doesn't (lambda* (#:key outputs #:allow-other-keys)
;; understand variables passed as arguments. ;; This is an old 'configure' script that doesn't
(let ((out (assoc-ref outputs "out"))) ;; understand variables passed as arguments.
(setenv "CONFIG_SHELL" (which "sh")) (let ((out (assoc-ref outputs "out")))
(setenv "SHELL" (which "sh")) (setenv "CONFIG_SHELL" (which "sh"))
(zero? (system* "./configure" (setenv "SHELL" (which "sh"))
(string-append "--prefix=" out))))) (zero? (system* "./configure"
%standard-phases) (string-append "--prefix=" out)))))))
#:tests? #f)) ;there are no tests #:tests? #f)) ;there are no tests
(inputs `(("ncurses" ,ncurses))) (inputs `(("ncurses" ,ncurses)))
(home-page "http://www.ncftp.com/ncftp/") (home-page "http://www.ncftp.com/ncftp/")
(synopsis "Command-line File Transfer Protocol (FTP) client") (synopsis "Command-line File Transfer Protocol (FTP) client")