07/12: gnu: gitolite: Update phase style.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 92793c7b0287558becefeaa4832ebcb16e34a243
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sun Mar 4 16:57:01 2018 +0100

    gnu: gitolite: Update phase style.
    
    * gnu/packages/version-control.scm (gitolite): Substitute INVOKE for
    SYSTEM* and end phases with #t.
---
 gnu/packages/version-control.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index f6b346f..209df2b 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -958,7 +958,8 @@ also walk each side of a merge and test those changes 
individually.")
                         ;; This works because gitolite-shell is in the PATH.
                         (substitute* "src/triggers/post-compile/ssh-authkeys"
                           (("\\$glshell \\$user")
-                           "gitolite-shell $user")))))
+                           "gitolite-shell $user"))
+                        #t)))
                   (replace 'install
                     (lambda* (#:key outputs #:allow-other-keys)
                       (let* ((output (assoc-ref outputs "out"))
@@ -966,7 +967,7 @@ also walk each side of a merge and test those changes 
individually.")
                              (bindir (string-append output "/bin")))
                         (mkdir-p sharedir)
                         (mkdir-p bindir)
-                        (system* "./install" "-to" sharedir)
+                        (invoke "./install" "-to" sharedir)
                         ;; Create symlinks for executable scripts in /bin.
                         (for-each (lambda (script)
                                     (symlink (string-append sharedir "/" 
script)