gnu: ncftp: Use ‘modify-phases’.
* gnu/packages/ftp.scm (ncftp): Use the ‘modify-phases’ syntax.
This commit is contained in:
parent
c17b5986f2
commit
f5d3773268
|
@ -100,18 +100,18 @@ reliability in mind.")
|
||||||
"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")
|
||||||
|
|
Loading…
Reference in New Issue