guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#60029] [PATCH 1/4] guix: copy-build-system: allow install plan dire


From: Jonathan Scoresby
Subject: [bug#60029] [PATCH 1/4] guix: copy-build-system: allow install plan directives to specify output
Date: Tue, 13 Dec 2022 01:34:17 -0700

---
 guix/build/copy-build-system.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/guix/build/copy-build-system.scm b/guix/build/copy-build-system.scm
index fb2d1db056..5d2a137268 100644
--- a/guix/build/copy-build-system.scm
+++ b/guix/build/copy-build-system.scm
@@ -133,8 +133,16 @@ (define* (install #:key install-plan outputs 
#:allow-other-keys)
                                       (string-append target "/")))
              file-list))))
 
-  (define* (install source target #:key include exclude include-regexp 
exclude-regexp)
-    (let ((final-target (string-append (assoc-ref outputs "out") "/" target))
+  (define* (install source
+                    target
+                    #:key include
+                    exclude
+                    include-regexp
+                    exclude-regexp
+                    output)
+    (let ((final-target (string-append (assoc-ref outputs
+                                                  (or output "out")) "/"
+                                       target))
           (filters? (or include exclude include-regexp exclude-regexp)))
       (when (and (not (file-is-directory? source))
                  filters?)
-- 
2.38.1






reply via email to

[Prev in Thread] Current Thread [Next in Thread]