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

44
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,28 +89,27 @@
(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
(lambda _ (lambda _
(invoke "sh" "bootstrap" (invoke "sh" "bootstrap"
"--no-git" "--no-git"
"--gnulib-srcdir=gnulib"))) "--gnulib-srcdir=gnulib")))
;; Disable tests that require network access, which is most of them. ;; Disable tests that require network access, which is most of them.
(add-before 'check 'disable-impure-tests (add-before 'check 'disable-impure-tests
(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=" #$(this-package-input "readline")))))
(assoc-ref %build-inputs "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