From 72535fb3ece99822bc00eebfc6259f66b0e701cf Mon Sep 17 00:00:00 2001
From: James Brechtel <git@jamesbrechtel.com>
Date: Wed, 20 May 2026 14:38:52 -0400
Subject: [PATCH] fix: disable stdout/stderr buffering for Docker log
 visibility

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

diff --git a/app/Main.hs b/app/Main.hs
index 898b49f..f286f66 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -8,6 +8,7 @@ module Main (main) where
 import Data.String (fromString)
 import qualified Network.Wai.Handler.Warp as Warp
 import qualified Options.Applicative as Opts
+import System.IO (BufferMode (NoBuffering), hSetBuffering, stderr, stdout)
 
 import qualified Roux
 
@@ -51,6 +52,9 @@ optionsParser =
 
 main :: IO ()
 main = do
+    -- Disable buffering so Docker sees log output immediately.
+    hSetBuffering stdout NoBuffering
+    hSetBuffering stderr NoBuffering
     opts <-
         Opts.execParser $
             Opts.info