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