amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lftp: Use G-expressions.

Browse source 
* gnu/packages/ftp.scm (lftp)[arguments]: Use G-expressions.

Change-Id: I504465e7604d9638442b063753a8cf8abf3616a9
This commit is contained in:
Zheng Junjie 2024-11-30 12:36:26 +08:00
parent f45aae2287
commit db2b0d7df0
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/ftp.scm
View file

@ -27,6 +27,7 @@
#:use-module ((guix licenses) #:select (gpl2 gpl2+ gpl3+ clarified-artistic)) #:use-module ((guix licenses) #:select (gpl2 gpl2+ gpl3+ clarified-artistic))
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -88,11 +89,11 @@
(inputs (inputs
(list zlib readline gnutls)) (list zlib readline gnutls))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'unpack-gnulib (add-after 'unpack 'unpack-gnulib
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(copy-recursively (assoc-ref inputs "gnulib") (copy-recursively #$(this-package-native-input "gnulib")
"gnulib"))) "gnulib")))
(delete 'bootstrap) (delete 'bootstrap)
(add-after 'patch-source-shebangs 'bootstrap (add-after 'patch-source-shebangs 'bootstrap
@ -105,11 +106,10 @@
(lambda _ (lambda _
(substitute* "tests/Makefile" (substitute* "tests/Makefile"
(("(ftp-cls-l|ftp-list|http-get)\\$\\(EXEEXT\\)") "") (("(ftp-cls-l|ftp-list|http-get)\\$\\(EXEEXT\\)") "")
(("lftp-https-get ") "")) (("lftp-https-get ") "")))))
#t)))
#:configure-flags #:configure-flags
(list (string-append "--with-readline=" #~(list (string-append "--with-readline="
(assoc-ref %build-inputs "readline"))))) #$(this-package-input "readline")))))
(home-page "https://lftp.yar.ru/") (home-page "https://lftp.yar.ru/")
(synopsis "Command-line file transfer program") (synopsis "Command-line file transfer program")
(description (description