summaryrefslogtreecommitdiff
path: root/guix/self.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-11-05 23:26:37 +0100
committerLudovic Courtès <ludo@gnu.org>2018-11-06 00:04:11 +0100
commit8d3beb3a44b619d46715dbc4ccad4acfe0a1dcde (patch)
tree5825b26ae023cfb4d5fc7920eedf1e580f14fc96 /guix/self.scm
parentaa919fbc890c5438166083f9ff02e4b1968a182b (diff)
self: Install substitute keys.
* guix/self.scm (whole-package): Add #:substitute-keys and honor it. (compiled-guix): Pass #:substitute-keys to 'whole-package' when PULL-VERSION is one.
Diffstat (limited to 'guix/self.scm')
-rw-r--r--guix/self.scm12
1 files changed, 11 insertions, 1 deletions
diff --git a/guix/self.scm b/guix/self.scm
index 40ef528ffd..4548e6c044 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -408,7 +408,8 @@ load path."
#:key
(guile-version (effective-version))
compiled-modules
- info daemon guile
+ info daemon substitute-keys
+ guile
(command (guix-command modules
#:dependencies dependencies
#:guile guile
@@ -430,6 +431,13 @@ assumed to be part of MODULES."
(symlink (string-append #$daemon "/bin/guix-daemon")
(string-append #$output "/bin/guix-daemon")))
+ (when #$substitute-keys
+ (mkdir-p (string-append #$output "/share/guix"))
+ (copy-recursively #$substitute-keys
+ (string-append #$output
+ "/share/guix")
+ #:log (%make-void-port "w")))
+
(let ((modules (string-append #$output
"/share/guile/site/"
(effective-version)))
@@ -666,6 +674,8 @@ assumed to be part of MODULES."
'guix-daemon)
#:info (info-manual source)
+ #:substitute-keys (sub-directory source
+ "etc/substitutes")
#:guile-version guile-version)))
((= 0 pull-version)
;; Legacy 'guix pull': return the .scm and .go files as one