aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2023-10-15 02:00:00 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2023-10-15 02:00:00 +0200
commit063655dbada4ec95b59bd94edded61b664528fcb (patch)
treedc9e80f86b5d2ce591e6e9b4d22b2ff1f36b1d09 /gnu
parent62d42bdd75cafbbf80c722d792a325eb51ba20af (diff)
downloadguix-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.scm44
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