TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: hss: Use G-expressions.

Browse source 
* gnu/packages/ssh.scm (hss)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-22 02:00:01 +02:00
parent b8d5cbb767
commit b25e18407b
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/ssh.scm
View file

@ -72,6 +72,7 @@ (define-module (gnu packages ssh)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
@ -93,18 +94,18 @@ (define-public hss
(inputs
(list readline))
(arguments
`(#:make-flags
(list ,(string-append "CC=" (cc-for-target))
(string-append "INSTALL_BIN=" (assoc-ref %outputs "out") "/bin"))
#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "Makefile"
(("/usr/local/opt/readline")
(assoc-ref inputs "readline")))))
(delete 'configure)))) ; no configure script
(list #:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "INSTALL_BIN=" #$output "/bin"))
#:tests? #f ; no tests
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda _
(substitute* "Makefile"
(("/usr/local/opt/readline")
#$(this-package-input "readline")))))
(delete 'configure)))) ; no configure script
(build-system gnu-build-system)
(home-page "https://github.com/six-ddc/hss/")
(synopsis "Interactive SSH client for multiple servers")