From 103e7e97623666868d4b232bb49dd8c5f1126a65 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Fri, 18 Mar 2022 13:38:00 +0100 Subject: [PATCH] Fix problem with \r\n instead of \n causing output glitches --- src-hxbrief/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src-hxbrief/Main.hs b/src-hxbrief/Main.hs index 4227d5b..683bcb5 100644 --- a/src-hxbrief/Main.hs +++ b/src-hxbrief/Main.hs @@ -610,11 +610,11 @@ main = B.mainFromCmdParser $ do go in go 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 modifyMVar_ stateVar (processLine (StdOut, x)) 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 modifyMVar_ stateVar (processLine (StdErr, x)) let tickHandler = forever $ do