summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-12-20 23:06:34 +0100
committerLudovic Courtès <ludo@gnu.org>2012-12-20 23:06:34 +0100
commiteca63d3df8642587c35765af8446c1669e192789 (patch)
tree8a037ffa424f230694f62ca8c4035f21811c2320
parent4c377e861b11ed5c5689fdb3ba2d1d864c77cef4 (diff)
build-system/gnu: Patch shebangs after `configure'.
* guix/build/gnu-build-system.scm (patch-generated-files): New procedure. (%standard-phases): Add it after `configure'.
-rw-r--r--guix/build/gnu-build-system.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 8692359bd8..18c66e5256 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -101,6 +101,8 @@
(("^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 @@
;; 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)))