branch wip-offload updated: tmp2

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch wip-offload
in repository guix-cuirass.

The following commit(s) were added to refs/heads/wip-offload by this push:
     new 4630013  tmp2
4630013 is described below

commit 4630013c14a5177d3a606be297bab4d2d0c6f536
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Dec 20 10:19:43 2020 +0100

    tmp2
---
 src/cuirass/remote-server.scm | 4 ++--
 src/cuirass/remote-worker.scm | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 6fd60c9..5e73073 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -368,12 +368,12 @@ build server signature."
        (unless (file-exists? nar-file)
          (mkdir-p (dirname nar-file))
          (or (url-fetch* nar-url nar-file)
-             (warning (G_ "Failed to download ~a~%." nar-url))))
+             (warning (G_ "Failed to download ~a~%.") nar-url)))
 
        (unless (file-exists? narinfo-file)
          (or (and (url-fetch* narinfo-url narinfo-file)
                   (sign-narinfo! narinfo-file))
-             (warning (G_ "Failed to download ~a~%." narinfo-url))))
+             (warning (G_ "Failed to download ~a~%.") narinfo-url)))
 
        (unless (file-exists? hash-file)
          (mkdir-p (dirname hash-file))
diff --git a/src/cuirass/remote-worker.scm b/src/cuirass/remote-worker.scm
index 9c868b2..ca19ddb 100644
--- a/src/cuirass/remote-worker.scm
+++ b/src/cuirass/remote-worker.scm
@@ -161,7 +161,10 @@ still be substituted."
         (add-substitute-url store publish-url)
         (empty-cache!)
         (reply (zmq-build-started-message drv name))
-        (guard (c ((store-protocol-error? c)
+        (guard (c ((store-error? c)
+                   (info (G_ "Derivation `~a' build failed.~%") drv)
+                   (reply (zmq-build-failed-message drv local-publish-url)))
+                  ((store-protocol-error? c)
                    (info (G_ "Derivation `~a' build failed: ~a~%")
                          drv (store-protocol-error-message c))
                    (reply (zmq-build-failed-message drv local-publish-url))))