mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-26 04:29:25 -05:00
remote: Really build things remotely when #:build-locally? is #false.
Fixes <https://issues.guix.gnu.org/46756>. Reported by pkill9 <pkill9@runbox.com>, Maxim Cournoyer <maxim.cournoyer@gmail.com>, and Katherine Cox-Buday <cox.katherine.e@gmail.com>. * guix/remote.scm (remote-eval): When BUILD-LOCALLY? is false, wrap 'build-derivations' call in 'with-build-handler'.
This commit is contained in:
parent
97d8d2ad02
commit
b19250eec6
1 changed files with 10 additions and 1 deletions
|
@ -146,6 +146,15 @@ (define sources
|
||||||
sources)))
|
sources)))
|
||||||
(mbegin %store-monad
|
(mbegin %store-monad
|
||||||
((store-lift send-files) to-send remote #:recursive? #t)
|
((store-lift send-files) to-send remote #:recursive? #t)
|
||||||
(return (build-derivations remote inputs))
|
|
||||||
|
;; Build handlers are not tied to a specific <store-connection>.
|
||||||
|
;; If a handler is already installed, it might want to go ahead
|
||||||
|
;; and build, but on the local <store-connection> instead of
|
||||||
|
;; REMOTE. To avoid that, install a build handler that does
|
||||||
|
;; nothing.
|
||||||
|
(return (with-build-handler (lambda (continue . _)
|
||||||
|
(continue #t))
|
||||||
|
(build-derivations remote inputs)))
|
||||||
|
|
||||||
(return (close-connection remote))
|
(return (close-connection remote))
|
||||||
(return (%remote-eval lowered session become-command)))))))
|
(return (%remote-eval lowered session become-command)))))))
|
||||||
|
|
Loading…
Reference in a new issue