diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-10-15 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-10-15 02:00:00 +0200 |
| commit | 063655dbada4ec95b59bd94edded61b664528fcb (patch) | |
| tree | dc9e80f86b5d2ce591e6e9b4d22b2ff1f36b1d09 /gnu | |
| parent | 62d42bdd75cafbbf80c722d792a325eb51ba20af (diff) | |
| download | guix-063655dbada4ec95b59bd94edded61b664528fcb.tar.gz guix-063655dbada4ec95b59bd94edded61b664528fcb.zip | |
gnu: mosh: Update package style.
* gnu/packages/ssh.scm (mosh)[arguments]: Use G-expressions.
Don't explicitly return #t from phases.
[inputs]: Remove input labels.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/ssh.scm | 44 |
1 files changed, 21 insertions, 23 deletions
diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm index 3a5d5ef59b..39b90fad8f 100644 --- a/gnu/packages/ssh.scm +++ b/gnu/packages/ssh.scm @@ -473,32 +473,30 @@ with optional @acronym{TLS, Transport-Level Security} to protect credentials.") "1pax8sqlvcc7ammsxd9r53yx4m2hg1827wfz6f4rrwjx9q9lnbl7")))) (build-system gnu-build-system) (arguments - '(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-FHS-file-names - (lambda _ - (substitute* "scripts/mosh.pl" - (("/bin/sh") - (which "sh"))) - #t)) - (add-after 'install 'wrap - (lambda* (#:key outputs #:allow-other-keys) - ;; Make sure 'mosh' can find 'mosh-client' and - ;; 'mosh-server'. - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin"))) - (wrap-program (string-append bin "/mosh") - `("PATH" ":" prefix (,bin))))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-FHS-file-names + (lambda _ + (substitute* "scripts/mosh.pl" + (("/bin/sh") + (which "sh"))))) + (add-after 'install 'wrap + (lambda _ + ;; Make sure 'mosh' can find 'mosh-client' and 'mosh-server'. + (let ((bin (string-append #$output "/bin"))) + (wrap-program (string-append bin "/mosh") + `("PATH" ":" prefix (,bin))))))))) (native-inputs (list pkg-config)) (inputs - `(("openssl" ,openssl) - ("perl" ,perl) - ("perl-io-tty" ,perl-io-tty) - ("zlib" ,zlib) - ("ncurses" ,ncurses) - ("protobuf" ,protobuf) - ("boost-headers" ,boost))) + (list boost + ncurses + openssl + perl + perl-io-tty + protobuf + zlib)) (home-page "https://mosh.org/") (synopsis "Remote shell tolerant to intermittent connectivity") (description |