diff options
| -rw-r--r-- | guix/store.scm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/guix/store.scm b/guix/store.scm index 8e88c5f86d..54ed31cbbc 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -452,22 +452,22 @@ encoding conversion errors." (send (boolean keep-failed?) (boolean keep-going?) (boolean fallback?) (integer verbosity) (integer max-build-jobs) (integer max-silent-time)) - (if (>= (nix-server-minor-version server) 2) - (send (boolean use-build-hook?))) - (if (>= (nix-server-minor-version server) 4) - (send (integer build-verbosity) (integer log-type) - (boolean print-build-trace))) - (if (>= (nix-server-minor-version server) 6) - (send (integer build-cores))) - (if (>= (nix-server-minor-version server) 10) - (send (boolean use-substitutes?))) - (if (>= (nix-server-minor-version server) 12) - (send (string-list (fold-right (lambda (pair result) - (match pair - ((h . t) - (cons* h t result)))) - '() - binary-caches)))) + (when (>= (nix-server-minor-version server) 2) + (send (boolean use-build-hook?))) + (when (>= (nix-server-minor-version server) 4) + (send (integer build-verbosity) (integer log-type) + (boolean print-build-trace))) + (when (>= (nix-server-minor-version server) 6) + (send (integer build-cores))) + (when (>= (nix-server-minor-version server) 10) + (send (boolean use-substitutes?))) + (when (>= (nix-server-minor-version server) 12) + (send (string-list (fold-right (lambda (pair result) + (match pair + ((h . t) + (cons* h t result)))) + '() + binary-caches)))) (let loop ((done? (process-stderr server))) (or done? (process-stderr server))))) |