guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

07/09: gnu: mosh: Use 'modify-phases'.


From: Efraim Flashner
Subject: 07/09: gnu: mosh: Use 'modify-phases'.
Date: Thu, 11 Aug 2016 10:20:35 +0000 (UTC)

efraim pushed a commit to branch master
in repository guix.

commit 11379192fad7313aa9544ff99d4dea0168aecc0f
Author: Efraim Flashner <address@hidden>
Date:   Thu Aug 11 12:09:12 2016 +0300

    gnu: mosh: Use 'modify-phases'.
    
    * gnu/packages/ssh.scm (mosh)[arguments]: Use 'modify-phases'.
---
 gnu/packages/ssh.scm |   20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index 4e0697a..ef6d8b1 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -313,16 +313,16 @@ in future and NTLM based authentication is most likey 
never be supported.")
                 "1qsb0y882yfgwnpy6f98pi5xqm6kykdsrxzvaal37hs7szjhky0s"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:phases (alist-cons-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)))))
-                 %standard-phases)))
+     '(#:phases
+       (modify-phases %standard-phases
+         (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)))))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs



reply via email to

[Prev in Thread] Current Thread [Next in Thread]