diff options
| -rw-r--r-- | src/Xmobar/App/TextEventLoop.hs | 3 |
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 |