aboutsummaryrefslogtreecommitdiff
path: root/gn/packages
diff options
context:
space:
mode:
authorEfraim Flashner2021-12-12 15:53:45 +0200
committerEfraim Flashner2021-12-12 15:54:18 +0200
commitb519de0a508392c409d93f0bac263b06b662d534 (patch)
tree59f8a26e376df8f23a596df20c2ee2d9dcd1a8f0 /gn/packages
parentc73512fe75ba1586aafd2043a7656604f73dbeb6 (diff)
downloadguix-bioinformatics-b519de0a508392c409d93f0bac263b06b662d534.tar.gz
gn: gitea: don't patch shebangs of repo actions
Diffstat (limited to 'gn/packages')
-rw-r--r--gn/packages/gitea.scm28
1 files changed, 19 insertions, 9 deletions
diff --git a/gn/packages/gitea.scm b/gn/packages/gitea.scm
index f3af232..34114b0 100644
--- a/gn/packages/gitea.scm
+++ b/gn/packages/gitea.scm
@@ -3,6 +3,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system go)
+ #:use-module (gnu packages bash)
#:use-module (gnu packages node)
#:use-module (gnu packages version-control))
@@ -22,6 +23,16 @@
`(#:install-source? #f
#:phases
(modify-phases %standard-phases
+ (add-after 'patch-source-shebangs 'unpatch-example-shebangs
+ ;; If we don't do this then git repos created with this version of
+ ;; gitea will use the build environment's bash for the different
+ ;; git repo hooks.
+ (lambda _
+ (substitute*
+ (find-files "src/integrations/gitea-repositories-meta"
+ "(\\.sample|gitea|(post|pre)-receive|update)")
+ (("#!/gnu/store/.*/bin/bash") "#!/bin/bash")
+ (("#!/gnu/store/.*/bin/sh") "#!/bin/sh"))))
(add-before 'build 'prepare-build
(lambda _
(setenv "TAGS" "bindata sqlite sqlite_unlock_notify")
@@ -32,14 +43,12 @@
(invoke "make" "build"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
- (if tests?
- (begin
- (with-directory-excursion "src"
- (invoke "make" "test")
- ;; Gitea requires git with lfs support to run tests.
- ;(invoke "make" "test-sqlite")
- (invoke "make" "test-sqlite-migration")))
- #t)))
+ (when tests?
+ (with-directory-excursion "src"
+ (invoke "make" "test")
+ ;; Gitea requires git with lfs support to run tests.
+ ;(invoke "make" "test-sqlite")
+ (invoke "make" "test-sqlite-migration")))))
(replace 'install
(lambda _
(with-directory-excursion "src"
@@ -55,7 +64,8 @@
(native-inputs
`(("node" ,node)))
(inputs
- `(("git" ,git)))
+ `(("bash" ,bash-minimal)
+ ("git" ,git)))
(home-page "https://gitea.io/")
(synopsis "Self-hosted git service")
;; TODO: Rewrite description