From 3f499ae2d753bcdbced891e1ad28e6776fa7dda5 Mon Sep 17 00:00:00 2001
From: outfoxxed <outfoxxed@outfoxxed.me>
Date: Thu, 12 Jun 2025 16:13:09 -0700
Subject: [PATCH] fix output buffering in systemd service

---
 src/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 99c07e3..0685f07 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -8,9 +8,13 @@ import TemplateLoader (loadTemplates)
 import TemplatePage (PageContext (PageContext, ctxPageviews))
 import System.Environment (getArgs)
 import qualified Config as C
+import GHC.IO.Handle (hSetBuffering, BufferMode (LineBuffering))
+import GHC.IO.Handle.FD (stdout)
 
 main :: IO ()
 main = do
+  hSetBuffering stdout LineBuffering
+
   (configFile:_) <- getArgs
   config <- C.loadConfig configFile
   let cServe = C.serve config