hexagoxel
/
hxtools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix problem with \r\n instead of \n causing output glitches

master
Lennart Spitzner 2022-03-18 13:38:00 +01:00
parent 7105c6cd95
commit 103e7e9762
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src-hxbrief/Main.hs
View File

@ -610,11 +610,11 @@ main = B.mainFromCmdParser $ do
go go
in go in go
let outHandler out = forever $ do let outHandler out = forever $ do
x <- System.IO.hGetLine out x <- filter (/= '\r') <$> System.IO.hGetLine out
fst teeHandles `forM_` \h -> System.IO.hPutStrLn h x fst teeHandles `forM_` \h -> System.IO.hPutStrLn h x
modifyMVar_ stateVar (processLine (StdOut, x)) modifyMVar_ stateVar (processLine (StdOut, x))
let errHandler err = forever $ do let errHandler err = forever $ do
x <- System.IO.hGetLine err x <- filter (/= '\r') <$> System.IO.hGetLine err
snd teeHandles `forM_` \h -> System.IO.hPutStrLn h x snd teeHandles `forM_` \h -> System.IO.hPutStrLn h x
modifyMVar_ stateVar (processLine (StdErr, x)) modifyMVar_ stateVar (processLine (StdErr, x))
let tickHandler = forever $ do let tickHandler = forever $ do