04/07: gnu: lftp: Use G-expressions.

[guix-commits]

z572 pushed a commit to branch master
in repository guix.

commit db2b0d7df0a273816475825c8523b003bab01dae
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Sat Nov 30 12:36:26 2024 +0800

    gnu: lftp: Use G-expressions.
    
    * gnu/packages/ftp.scm (lftp)[arguments]: Use G-expressions.
    
    Change-Id: I504465e7604d9638442b063753a8cf8abf3616a9
---
 gnu/packages/ftp.scm | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm
index c16172575d..2df6797c42 100644
--- a/gnu/packages/ftp.scm
+++ b/gnu/packages/ftp.scm
@@ -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