build-system/gnu: Patch shebangs after `configure'.
* guix/build/gnu-build-system.scm (patch-generated-files): New procedure. (%standard-phases): Add it after `configure'.
This commit is contained in:
parent
4c377e861b
commit
eca63d3df8
|
@ -101,6 +101,8 @@
|
||||||
(("^SHELL[[:blank:]]*=.*$")
|
(("^SHELL[[:blank:]]*=.*$")
|
||||||
(string-append "SHELL = " bash "\n"))))))
|
(string-append "SHELL = " bash "\n"))))))
|
||||||
|
|
||||||
|
(define patch-generated-files patch-source-shebangs)
|
||||||
|
|
||||||
(define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
|
(define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
|
||||||
#:allow-other-keys)
|
#:allow-other-keys)
|
||||||
(every (lambda (p)
|
(every (lambda (p)
|
||||||
|
@ -250,7 +252,8 @@
|
||||||
;; Standard build phases, as a list of symbol/procedure pairs.
|
;; Standard build phases, as a list of symbol/procedure pairs.
|
||||||
(let-syntax ((phases (syntax-rules ()
|
(let-syntax ((phases (syntax-rules ()
|
||||||
((_ p ...) `((p . ,p) ...)))))
|
((_ p ...) `((p . ,p) ...)))))
|
||||||
(phases set-paths unpack patch patch-source-shebangs configure
|
(phases set-paths unpack patch
|
||||||
|
patch-source-shebangs configure patch-generated-files
|
||||||
build check install
|
build check install
|
||||||
patch-shebangs strip)))
|
patch-shebangs strip)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue