status: Display 'build-remote' events.

* guix/status.scm (print-build-event): Add clause for 'build-remote'.
2018-11-22 16:51:45 +01:00 · 2018-11-22 16:51:45 +01:00 · 694e638e78
commit 694e638e78
parent 60e1c1099f
1 changed files with 3 additions and 0 deletions
--- 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)