From 907c21f76140fb0687ddc2e1d72c6eddd00061ab Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 29 Jan 2019 09:22:44 +0100 Subject: base: Use the new 'store-error' procedure names. The 'nix-error' names are now deprecated in Guix. * src/cuirass/base.scm (build-derivations&): Use the new 'store-error' procedure names. --- src/cuirass/base.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index c7447fa..2c568c9 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -1,5 +1,5 @@ ;;; base.scm -- Cuirass base module -;;; Copyright © 2016, 2017, 2018 Ludovic Courtès +;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès ;;; Copyright © 2016, 2017 Mathieu Lirzin ;;; Copyright © 2017 Mathieu Othacehe ;;; Copyright © 2017 Ricardo Wurmus @@ -375,7 +375,7 @@ Essentially this procedure inverts the inversion-of-control that (lambda () (catch #t (lambda () - (guard (c ((nix-error? c) + (guard (c ((store-error? c) (close-port output) (atomic-box-set! result c))) (parameterize ((current-build-output-port output)) @@ -467,11 +467,11 @@ items." (if (> count max-batch-size) (split-at drv max-batch-size) (values drv '())))) - (guard (c ((nix-protocol-error? c) + (guard (c ((store-protocol-error? c) (log-message "batch of builds (partially) failed: \ ~a (status: ~a)" - (nix-protocol-error-message c) - (nix-protocol-error-status c)))) + (store-protocol-error-message c) + (store-protocol-error-status c)))) (log-message "building batch of ~a derivations (~a/~a)" max-batch-size (- total count) total) (let-values (((port finish) -- cgit v1.2.3