[no subject]

[Ludovic Courtès]

branch: master
commit c5ecec38ce988df0ab44190a000442716b7cc4a1
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 25 11:58:44 2023 +0200

    remote-server: Slightly improve ‘ensure-path*’ error messages.
    
    * src/cuirass/scripts/remote-server.scm (ensure-path*): Tweak error
    messages.
---
 src/cuirass/scripts/remote-server.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index b3c2b88..25f43e4 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -36,7 +36,8 @@
   #:use-module ((guix store)
                 #:select (current-build-output-port
                           ensure-path
-                          store-protocol-error?))
+                          store-protocol-error?
+                          store-protocol-error-message))
   #:use-module (guix ui)
   #:use-module ((guix utils)
                 #:select (cache-directory call-with-temporary-output-file))
@@ -320,11 +321,12 @@ be used to reply to the worker."
 
 (define (ensure-path* store output)
   (guard (c ((store-protocol-error? c)
-             (log-error "Failed to add ~a to store: store protocol error." 
output)
-             (log-error "The remote-worker signing key might not be 
authorized.")
+             (log-error "failed to add ~a to store: ~a"
+                        output (store-protocol-error-message c))
+             (log-error "The remote-worker signing key might be unauthorized.")
              #f)
             ((nar-error? c)
-             (log-error "Failed to add ~a to store: nar error." output)
+             (log-error "failed to add ~a to store: nar error" output)
              (log-error "The guix-daemon process may have returned 
unexpectedly.")
              #f))
     (ensure-path store output)))