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.
This commit is contained in:
parent
aa919fbc89
commit
8d3beb3a44
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue