gnu: guile-ssh: Update to 0.16.4.

* gnu/packages/ssh.scm (guile-ssh): Update to 0.16.4.
  [arguments]: Improve the style.

Change-Id: Ib7d741e7f4fc7a1fc167cfa4f7953f84d9f4d390
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Artyom V. Poptsov 2023-12-23 10:16:55 +03:00 committed by Ludovic Courtès
parent fe736803da
commit 80bec14a9e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -324,7 +324,7 @@ (define-public openssh-sans-x
(define-public guile-ssh (define-public guile-ssh
(package (package
(name "guile-ssh") (name "guile-ssh")
(version "0.16.3") (version "0.16.4")
(home-page "https://github.com/artyom-poptsov/guile-ssh") (home-page "https://github.com/artyom-poptsov/guile-ssh")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
@ -334,7 +334,7 @@ (define-public guile-ssh
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0b03aizjdj3g15xfkspgvy8k5jl8bgv4q7gwjwr3l2ibqkrm8vrz")))) "127yhjaywais3h2g3cxhqmhdmqgxf9j1jwb6wzx92j0z7asrjqwr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
@ -362,8 +362,7 @@ (define-public guile-ssh
(parallel-job-count))) (parallel-job-count)))
(substitute* (find-files "." "\\.scm$") (substitute* (find-files "." "\\.scm$")
(("\"libguile-ssh\"") (("\"libguile-ssh\"")
(string-append "\"" lib "/libguile-ssh\""))) (string-append "\"" lib "/libguile-ssh\""))))))
#t)))
,@(if (%current-target-system) ,@(if (%current-target-system)
'() '()
'((add-before 'check 'fix-guile-path '((add-before 'check 'fix-guile-path
@ -371,8 +370,7 @@ (define-public guile-ssh
(let ((guile (assoc-ref inputs "guile"))) (let ((guile (assoc-ref inputs "guile")))
(substitute* "tests/common.scm" (substitute* "tests/common.scm"
(("/usr/bin/guile") (("/usr/bin/guile")
(string-append guile "/bin/guile"))) (string-append guile "/bin/guile"))))))))
#t)))))
(add-after 'install 'remove-bin-directory (add-after 'install 'remove-bin-directory
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -384,8 +382,7 @@ (define-public guile-ssh
(string-append examples "/ssshd.scm")) (string-append examples "/ssshd.scm"))
(rename-file (string-append bin "/sssh.scm") (rename-file (string-append bin "/sssh.scm")
(string-append examples "/sssh.scm")) (string-append examples "/sssh.scm"))
(delete-file-recursively bin) (delete-file-recursively bin)))))))
#t))))))
(native-inputs (list autoconf (native-inputs (list autoconf
automake automake
libtool libtool