From 694e638e7811f363ee1438066f4beddea17981e6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 22 Nov 2018 16:51:45 +0100
Subject: [PATCH] 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(+)
diff --git a/guix/status.scm b/guix/status.scm
index ffa9d9e93c2..2ceb56788ae 100644
--- a/guix/status.scm
+++ b/guix/status.scm
@@ -393,6 +393,9 @@ (define print-log-line
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)
--
GitLab