me
/
guix
Archived
1
0
Fork 0
Code

gnu: git: Add phase to restore hooks shebang. 

Fixes <https://bugs.gnu.org/25508>.

* gnu/packages/version-control.scm (git)[arguments]: New phase
restore-sample-hooks-shebang.
master
Miguel Ángel Arruga Vivas 2020-11-16 19:06:40 +01:00
parent 3428c66c5a
commit 46ce24fb2d
No known key found for this signature in database
GPG Key ID: 634C6E8979FABEC2
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -391,6 +391,16 @@ as well as the classic centralized workflow.")
(install-file "contrib/subtree/git-subtree.1" (install-file "contrib/subtree/git-subtree.1"
(string-append subtree "/share/man/man1")) (string-append subtree "/share/man/man1"))
#t))) #t)))
(add-after 'install 'restore-sample-hooks-shebang
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dir (string-append out "/share/git-core/templates/hooks")))
(for-each (lambda (file)
(format #t "restoring shebang on `~a'~%" file)
(substitute* file
(("^#!.*/bin/sh") "#!/bin/sh")))
(find-files dir ".*"))
#t)))
(add-after 'install 'split (add-after 'install 'split
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Split the binaries to the various outputs. ;; Split the binaries to the various outputs.