From 4a69ce1baac10cdb0744dee2c0f2d3747fa74b2c Mon Sep 17 00:00:00 2001 From: mbays Date: Fri, 23 Jun 2023 00:00:00 +0000 Subject: [PATCH] write slurp info to stderr not stdout --- Slurp.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Slurp.hs b/Slurp.hs index fd1b56e..4ebef8e 100644 --- a/Slurp.hs +++ b/Slurp.hs @@ -28,9 +28,9 @@ interleaveProgress t0 bs = do let slurp _ _ n' [] = do t' <- timeCurrentP when (t' `timeDiffP` t1 > (Seconds 1, 0)) $ do - putStrLn $ "\r\ESC[KReceived: " ++ humanBytes n' + hPutStrLn stderr $ "\r\ESC[KReceived: " ++ humanBytes n' ++ " " ++ humanRate n' (t' `timeDiffP` t0) - hFlush stdout + hFlush stderr return [] slurp n t n' (c:cs) = unsafeInterleaveIO $ do let n'' = n' + fromIntegral (BS.length c) @@ -38,9 +38,9 @@ interleaveProgress t0 bs = do if t' `timeDiffP` t > (Seconds 1, 0) then do when (t' `timeDiffP` t1 > (Seconds 1, 0)) $ do - putStr $ "\r\ESC[KProgress: " ++ humanBytes n' + hPutStr stderr $ "\r\ESC[KProgress: " ++ humanBytes n' ++ " " ++ humanRate (n' - n) (t' `timeDiffP` t) - hFlush stdout + hFlush stderr (c:) <$> slurp n'' t' n'' cs else (c:) <$> slurp n t n'' cs humanBytes n | n < 1024 = show n ++ "B" -- 2.11.4.GIT