From 30fca6bc9c66b2fb6272a6792c4ce09bfe99bc34 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kjetil.orbekk@gmail.com>
Date: Tue, 13 Oct 2015 22:20:52 -0400
Subject: Use explicit output buffering.

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

diff --git a/src/Main.hs b/src/Main.hs
index 1a491bd..c091c8f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -12,6 +12,7 @@ import Control.Monad
 import Control.Monad.IO.Class
 import Control.Monad.Trans.Either
 import Data.Aeson
+import Data.List.Split (splitOn)
 import GHC.Generics
 import HFlags
 import Network.Wai
@@ -19,8 +20,8 @@ import Network.Wai.Handler.Warp
 import Network.Wai.Middleware.RequestLogger
 import Servant
 import System.Exit
+import System.IO
 import System.IO.Unsafe (unsafePerformIO)
-import Data.List.Split (splitOn)
 
 import qualified Authentication
 import Data
@@ -86,6 +87,8 @@ app = logStdoutDev $ serve photoApi server
 port = 8081
 settings = setHost "*6" . setPort 8081 $ defaultSettings
 main = do
+  hSetBuffering stdout LineBuffering
+  hSetBuffering stderr LineBuffering
   $initHFlags "photos"
   print $ splitOn "," flags_allowed_users
   when (flags_pending_path == "") (die "--pending_path must be specified")
-- 
cgit v1.2.3