me/guix
Archived
1
0
Fork 0
Code Activity

store: 'build-things' now supports older daemon protocols.

Browse source 
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:
Ludovic Courtès 2015-12-04 11:32:50 +02:00
parent 07e70f4846
commit 2734cbb895
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/store.scm
View file

@ -648,13 +648,22 @@ bits are kept. HASH-ALGO must be a string such as \"sha256\"."
(let ((build (operation (build-things (string-list things) (let ((build (operation (build-things (string-list things)
(integer mode)) (integer mode))
"Do it!" "Do it!"
boolean))) boolean))
(build/old (operation (build-things (string-list things))
"Do it!"
boolean)))
(lambda* (store things #:optional (mode (build-mode normal))) (lambda* (store things #:optional (mode (build-mode normal)))
"Build THINGS, a list of store items which may be either '.drv' files or "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 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. that are not derivations can only be substituted and not built locally.
Return #t on success." 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)) (define-operation (add-temp-root (store-path path))
"Make PATH a temporary root for the duration of the current session. "Make PATH a temporary root for the duration of the current session.