summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--src/Xmobar/App/TextEventLoop.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xmobar/App/TextEventLoop.hs b/src/Xmobar/App/TextEventLoop.hs
index cd7919c..57f5c1a 100644
--- a/src/Xmobar/App/TextEventLoop.hs
+++ b/src/Xmobar/App/TextEventLoop.hs
@@ -17,6 +17,7 @@
module Xmobar.App.TextEventLoop (textLoop) where
import Prelude hiding (lookup)
+import System.IO
import Data.List (intercalate)
import Control.Monad.Reader
@@ -39,6 +40,8 @@ startTextLoop' :: Config
-> [[([Async ()], TVar String)]]
-> IO ()
startTextLoop' cfg sig pauser vs = do
+ hSetBuffering stdin LineBuffering
+ hSetBuffering stdout LineBuffering
tv <- initLoop sig pauser vs
eventLoop cfg tv sig