Fix logging.

* src/cuirass/remote-server.scm (remote-server): Have stdout/stderr
line-buffered.
* src/cuirass/remote-worker.scm (remote-worker): Ditto.
* src/cuirass/remote.scm (publish-server): Discard publish logs.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>

src/cuirass/remote-server.scm

@@ -437,6 +437,10 @@ exiting."
 (define (remote-server args)
   (signal-handler)
 
+  ;; Always have stdout/stderr line-buffered.
+  (setvbuf (current-output-port) 'line)
+  (setvbuf (current-error-port) 'line)
+
   (with-error-handling
     (let* ((opts (args-fold* args %options
                              (lambda (opt name arg result)

src/cuirass/remote-worker.scm

@@ -314,6 +314,10 @@ exiting."
 (define (remote-worker args)
   (signal-handler)
 
+  ;; Always have stdout/stderr line-buffered.
+  (setvbuf (current-output-port) 'line)
+  (setvbuf (current-error-port) 'line)
+
   (with-error-handling
     (let* ((opts (args-fold* args %options
                              (lambda (opt name arg result)

src/cuirass/remote.scm

@@ -242,7 +242,7 @@ PRIVATE-KEY to sign narinfos."
      (parameterize ((%public-key public-key)
                     (%private-key private-key))
        (with-store store
-         (let ((log-file (open-file "/tmp/publish.log" "w")))
+         (let ((log-file (open-file "/dev/null" "w")))
            (close-fdes 1)
            (close-fdes 2)
            (dup2 (fileno log-file) 1)