nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

store: Use 'when' instead of 'if' in effectful context. 

* guix/store.scm (set-build-options): Use 'when' instead of 'if'.
This commit is contained in:
Ludovic Courtès 2014-02-27 19:17:10 +01:00
parent 7dc68701da
commit 371e87d286
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/store.scm
View File

@ -452,16 +452,16 @@ encoding conversion errors."
(send (boolean keep-failed?) (boolean keep-going?) (send (boolean keep-failed?) (boolean keep-going?)
(boolean fallback?) (integer verbosity) (boolean fallback?) (integer verbosity)
(integer max-build-jobs) (integer max-silent-time)) (integer max-build-jobs) (integer max-silent-time))
(if (>= (nix-server-minor-version server) 2) (when (>= (nix-server-minor-version server) 2)
(send (boolean use-build-hook?))) (send (boolean use-build-hook?)))
(if (>= (nix-server-minor-version server) 4) (when (>= (nix-server-minor-version server) 4)
(send (integer build-verbosity) (integer log-type) (send (integer build-verbosity) (integer log-type)
(boolean print-build-trace))) (boolean print-build-trace)))
(if (>= (nix-server-minor-version server) 6) (when (>= (nix-server-minor-version server) 6)
(send (integer build-cores))) (send (integer build-cores)))
(if (>= (nix-server-minor-version server) 10) (when (>= (nix-server-minor-version server) 10)
(send (boolean use-substitutes?))) (send (boolean use-substitutes?)))
(if (>= (nix-server-minor-version server) 12) (when (>= (nix-server-minor-version server) 12)
(send (string-list (fold-right (lambda (pair result) (send (string-list (fold-right (lambda (pair result)
(match pair (match pair
((h . t) ((h . t)