store: 'build-things' now supports older daemon protocols.
This is a followup to d203d3d. * guix/store.scm (build-things): Add 'build/old'. Use it when STORE's minor version is less than 15.
This commit is contained in:
parent
07e70f4846
commit
2734cbb895
@ -648,13 +648,22 @@ bits are kept. HASH-ALGO must be a string such as \"sha256\"."
|
||||
(let ((build (operation (build-things (string-list things)
|
||||
(integer mode))
|
||||
"Do it!"
|
||||
boolean))
|
||||
(build/old (operation (build-things (string-list things))
|
||||
"Do it!"
|
||||
boolean)))
|
||||
(lambda* (store things #:optional (mode (build-mode normal)))
|
||||
"Build THINGS, a list of store items which may be either '.drv' files or
|
||||
outputs, and return when the worker is done building them. Elements of THINGS
|
||||
that are not derivations can only be substituted and not built locally.
|
||||
Return #t on success."
|
||||
(build store things mode))))
|
||||
(if (>= (nix-server-minor-version store) 15)
|
||||
(build store things mode)
|
||||
(if (= mode (build-mode normal))
|
||||
(build/old store things)
|
||||
(raise (condition (&nix-protocol-error
|
||||
(message "unsupported build mode")
|
||||
(status 1)))))))))
|
||||
|
||||
(define-operation (add-temp-root (store-path path))
|
||||
"Make PATH a temporary root for the duration of the current session.
|
||||
|
Loading…
Reference in New Issue
Block a user