From 74cd03b1a08a73c349818312cf2e0be9f54e0d4e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 1 Jul 2012 17:32:03 +0200 Subject: build-system/gnu: Add a `patch' phase. * guix/build/gnu-build-system.scm (patch): New procedure. (%standard-phases): Add `patch'. * guix/build-system/gnu.scm (gnu-build): Add `patches' and `patch-flags' parameters. Pass them on. --- guix/build-system/gnu.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix/build-system') diff --git a/guix/build-system/gnu.scm b/guix/build-system/gnu.scm index 0f931dc582..6876342b45 100644 --- a/guix/build-system/gnu.scm +++ b/guix/build-system/gnu.scm @@ -43,7 +43,9 @@ (define %standard-inputs (define* (gnu-build store name source inputs #:key (outputs '("out")) (configure-flags ''()) - (make-flags ''()) (phases '%standard-phases) + (make-flags ''()) + (patches ''()) (patch-flags ''("--batch" "-p1")) + (phases '%standard-phases) (system (%current-system)) (modules '((guix build gnu-build-system) (guix build utils)))) @@ -57,6 +59,8 @@ (define builder source) #:outputs %outputs #:inputs %build-inputs + #:patches ,patches + #:patch-flags ,patch-flags #:phases ,phases #:configure-flags ,configure-flags #:make-flags ,make-flags))) -- cgit v1.2.3