me/guix
Archived
1
0
Fork 0
Code Activity

gnu: gitolite: Update phase style.

Browse source 
* gnu/packages/version-control.scm (gitolite): Substitute INVOKE for
SYSTEM* and end phases with #t.
This commit is contained in:
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.
(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)