outfoxxed/blog-proxy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix output buffering in systemd service

Browse source
This commit is contained in:
outfoxxed 2025-06-12 16:13:09 -07:00
parent b19325b675
commit 3f499ae2d7
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
View file

@ -8,9 +8,13 @@ import TemplateLoader (loadTemplates)
import TemplatePage (PageContext (PageContext, ctxPageviews)) import TemplatePage (PageContext (PageContext, ctxPageviews))
import System.Environment (getArgs) import System.Environment (getArgs)
import qualified Config as C import qualified Config as C
import GHC.IO.Handle (hSetBuffering, BufferMode (LineBuffering))
import GHC.IO.Handle.FD (stdout)
main :: IO () main :: IO ()
main = do main = do
hSetBuffering stdout LineBuffering
(configFile:_) <- getArgs (configFile:_) <- getArgs
config <- C.loadConfig configFile config <- C.loadConfig configFile
let cServe = C.serve config let cServe = C.serve config