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