ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 23:02:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/gnu: Patch shebangs after `configure'.

Browse source 
* guix/build/gnu-build-system.scm (patch-generated-files): New
  procedure.
  (%standard-phases): Add it after `configure'.
This commit is contained in:
Ludovic Courtès 2012-12-20 23:06:34 +01:00
parent 4c377e861b
commit eca63d3df8
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/gnu-build-system.scm
View file

@ -101,6 +101,8 @@ (define* (patch-source-shebangs #:key source #:allow-other-keys)
(("^SHELL[[:blank:]]*=.*$")
(string-append "SHELL = " bash "\n"))))))
(define patch-generated-files patch-source-shebangs)
(define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
#:allow-other-keys)
(every (lambda (p)
@ -250,7 +252,8 @@ (define %standard-phases
;; Standard build phases, as a list of symbol/procedure pairs.
(let-syntax ((phases (syntax-rules ()
((_ 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
patch-shebangs strip)))