mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/gnu: Really apply patches.

Browse source 
* guix/build/gnu-build-system.scm (patch): Use `--input FILE', not just
  `FILE'.
This commit is contained in:
Ludovic Courtès 2012-09-01 15:43:46 +02:00
parent 8197c978ef
commit d118c548b5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -91,7 +91,7 @@ (define* (patch #:key (patches '()) (patch-flags '("--batch" "-p1"))
(every (lambda (p)
(format #t "applying patch `~a'~%" p)
(zero? (apply system* "patch"
(append patch-flags (list p)))))
(append patch-flags (list "--input" p)))))
patches))
(define* (configure #:key outputs (configure-flags '()) out-of-source?