3cd8e9b · streamly · git.iko.soy

38import Data.Word (Word8)

39import System.Directory (getFileSize)

40import System.Environment (lookupEnv)

41−import System.IO (openFile, IOMode(..), Handle, hClose)

41+import System.IO (openFile, IOMode(..), Handle, hClose, stderr, hPutStrLn)

42import System.Process.Typed (shell, runProcess_)

43

44import Data.IORef

187 runProcess_ (shell (cmd inFileBig bigFileSize))

188 return (inFileSmall, inFileBig)

189

190− putStrLn $ "Using small input file: " ++ small

190+ hPutStrLn stderr $ "Using small input file: " ++ small

191 smallHandle <- openFile small ReadMode

192

193− putStrLn $ "Using big input file: " ++ big

193+ hPutStrLn stderr $ "Using big input file: " ++ big

194 bigHandle <- openFile big ReadMode

195

196− putStrLn $ "Using output file: " ++ outfile

196+ hPutStrLn stderr $ "Using output file: " ++ outfile

197 outHandle <- openFile outfile WriteMode

198 devNull <- openFile "/dev/null" WriteMode

199