ilyakooo0/streamly
1
0
Fork 0
mirror of https://github.com/ilyakooo0/streamly.git synced 2024-09-11 08:25:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

Print info messages on stderr instead of stdout

Browse Source 
Otherwise it mixes with the output of benchmark list which we use in
scripts.
This commit is contained in:
Harendra Kumar 2021-06-07 19:23:24 +05:30 committed by Harendra Kumar
parent c4358b3957
commit 3cd8e9bddf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
benchmark/lib/Streamly/Benchmark/Common/Handle.hs
View File

@ -38,7 +38,7 @@ import Data.Char (ord, chr)
import Data.Word (Word8)
import System.Directory (getFileSize)
import System.Environment (lookupEnv)
import System.IO (openFile, IOMode(..), Handle, hClose)
import System.IO (openFile, IOMode(..), Handle, hClose, stderr, hPutStrLn)
import System.Process.Typed (shell, runProcess_)
import Data.IORef
@ -187,13 +187,13 @@ mkHandleBenchEnv = do
runProcess_ (shell (cmd inFileBig bigFileSize))
return (inFileSmall, inFileBig)
putStrLn $ "Using small input file: " ++ small
hPutStrLn stderr $ "Using small input file: " ++ small
smallHandle <- openFile small ReadMode
putStrLn $ "Using big input file: " ++ big
hPutStrLn stderr $ "Using big input file: " ++ big
bigHandle <- openFile big ReadMode
putStrLn $ "Using output file: " ++ outfile
hPutStrLn stderr $ "Using output file: " ++ outfile
outHandle <- openFile outfile WriteMode
devNull <- openFile "/dev/null" WriteMode