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 build-system gnu)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
@ -88,28 +89,27 @@
(inputs
(list zlib readline gnutls))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'unpack-gnulib
(lambda* (#:key inputs #:allow-other-keys)
(copy-recursively (assoc-ref inputs "gnulib")
"gnulib")))
(delete 'bootstrap)
(add-after 'patch-source-shebangs 'bootstrap
(lambda _
(invoke "sh" "bootstrap"
"--no-git"
"--gnulib-srcdir=gnulib")))
;; Disable tests that require network access, which is most of them.
(add-before 'check 'disable-impure-tests
(lambda _
(substitute* "tests/Makefile"
(("(ftp-cls-l|ftp-list|http-get)\\$\\(EXEEXT\\)") "")
(("lftp-https-get ") ""))
#t)))
#:configure-flags
(list (string-append "--with-readline="
(assoc-ref %build-inputs "readline")))))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'unpack-gnulib
(lambda _
(copy-recursively #$(this-package-native-input "gnulib")
"gnulib")))
(delete 'bootstrap)
(add-after 'patch-source-shebangs 'bootstrap
(lambda _
(invoke "sh" "bootstrap"
"--no-git"
"--gnulib-srcdir=gnulib")))
;; Disable tests that require network access, which is most of them.
(add-before 'check 'disable-impure-tests
(lambda _
(substitute* "tests/Makefile"
(("(ftp-cls-l|ftp-list|http-get)\\$\\(EXEEXT\\)") "")
(("lftp-https-get ") "")))))
#:configure-flags
#~(list (string-append "--with-readline="
#$(this-package-input "readline")))))
(home-page "https://lftp.yar.ru/")
(synopsis "Command-line file transfer program")
(description