From 694e638e7811f363ee1438066f4beddea17981e6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 22 Nov 2018 16:51:45 +0100
Subject: status: Display 'build-remote' events.

* guix/status.scm (print-build-event): Add clause for 'build-remote'.
---
 guix/status.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'guix/status.scm')

diff --git a/guix/status.scm b/guix/status.scm
index ffa9d9e93c..2ceb56788a 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -393,6 +393,9 @@ addition to build events."
   expected hash: ~a
   actual hash:   ~a~%"))
              expected actual))
+    (('build-remote drv host _ ...)
+     (format port (info (G_ "offloading build of ~a to '~a'")) drv host)
+     (newline port))
     (('build-log pid line)
      (if (multiplexed-output-supported?)
          (if (not pid)
-- 
cgit v1.2.3