@@ -39,7 +39,7 @@ import Data.Word (Word8)
3939import System.Directory (getFileSize)
4040import System.Environment (lookupEnv)
4141import System.IO (openFile, IOMode(..), Handle, hClose, stderr, hPutStrLn)
42−import System.Process.Typed (shell, runProcess_)
42+import System.Process (callCommand)
4343
4444import Data.IORef
4545import Prelude hiding (last, length)
@@ -183,8 +183,8 @@ mkHandleBenchEnv = do
183183 ++ "\" && head -c " ++ show size
184184 ++ " </dev/urandom >" ++ infile
185185 ++ ";}"
186− runProcess_ (shell (cmd inFileSmall smallFileSize))
187− runProcess_ (shell (cmd inFileBig bigFileSize))
186+ callCommand (cmd inFileSmall smallFileSize)
187+ callCommand (cmd inFileBig bigFileSize)
188188 return (inFileSmall, inFileBig)
189189
190190 hPutStrLn stderr $ "Using small input file: " ++ small