me
/
guix
Archived
1
0
Fork 0
Code

gnu: gitolite: Update phase style. 

* gnu/packages/version-control.scm (gitolite): Substitute INVOKE for
SYSTEM* and end phases with #t.
master
Tobias Geerinckx-Rice 2018-03-04 16:57:01 +01:00
parent 7730b7179c
commit 92793c7b02
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/packages/version-control.scm
View File

@ -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. ;; This works because gitolite-shell is in the PATH.
(substitute* "src/triggers/post-compile/ssh-authkeys" (substitute* "src/triggers/post-compile/ssh-authkeys"
(("\\$glshell \\$user") (("\\$glshell \\$user")
"gitolite-shell $user"))))) "gitolite-shell $user"))
#t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((output (assoc-ref outputs "out")) (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"))) (bindir (string-append output "/bin")))
(mkdir-p sharedir) (mkdir-p sharedir)
(mkdir-p bindir) (mkdir-p bindir)
(system* "./install" "-to" sharedir) (invoke "./install" "-to" sharedir)
;; Create symlinks for executable scripts in /bin. ;; Create symlinks for executable scripts in /bin.
(for-each (lambda (script) (for-each (lambda (script)
(symlink (string-append sharedir "/" script) (symlink (string-append sharedir "/" script)