diff options
| author | Pavel Kalugin <pavel@pavelthebest.me> | 2022-01-31 21:46:01 +0300 |
|---|---|---|
| committer | Pavel Kalugin <pavel@pavelthebest.me> | 2022-01-31 21:46:01 +0300 |
| commit | dde86479be0835ae4a9fe14e14857a3460fd8e1d (patch) | |
| tree | fd3f0b67ed0669e2d066d688c1ba8938b49583d5 | |
| parent | f42813b383f4bbc533ae7a38df1782febf5eb444 (diff) | |
| download | xmobar-dde86479be0835ae4a9fe14e14857a3460fd8e1d.tar.gz xmobar-dde86479be0835ae4a9fe14e14857a3460fd8e1d.tar.bz2 | |
Fix text output buffering
Signed-off-by: Pavel Kalugin <pavel@pavelthebest.me>
| -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 |