Handle log output buffering more elegantlyHEADmaster

1 files changed, 2 insertions, 1 deletions

diff --git a/shepherd-exporter.scm b/shepherd-exporter.scm
index c0a1314..e96df83 100644
--- a/shepherd-exporter.scm
+++ b/shepherd-exporter.scm
@@ -165,7 +165,6 @@
               (uri->string (request-uri request)) code
               (inet-ntop (sockaddr:fam peer) (sockaddr:addr peer))
               (request-from request "") (request-user-agent request ""))
-      (force-output)  ; make sure log line is written immediately
       (metric-increment %metrics-requests-total
                         #:label-values `((code . ,code))))
     (update-process-metrics)
@@ -173,5 +172,7 @@
     (values resp writer)))
 
 (define-public (main . args)
+  ;; Make sure log lines from `request-handler-wrapper' are written immediately.
+  (setvbuf (current-output-port) 'line)
   (run-server request-handler-wrapper 'http
               `(#:port 9098 #:addr ,INADDR_ANY)))