@@ -39,7 +39,7 @@ import Data.Word (Word8)
39import System.Directory (getFileSize)
39import System.Directory (getFileSize)
40import System.Environment (lookupEnv)
40import System.Environment (lookupEnv)
41import System.IO (openFile, IOMode(..), Handle, hClose, stderr, hPutStrLn)
41import System.IO (openFile, IOMode(..), Handle, hClose, stderr, hPutStrLn)
42−import System.Process.Typed (shell, runProcess_)
42+import System.Process (callCommand)
44import Data.IORef
44import Data.IORef
45import Prelude hiding (last, length)
45import Prelude hiding (last, length)
@@ -183,8 +183,8 @@ mkHandleBenchEnv = do
183 ++ "\" && head -c " ++ show size
183 ++ "\" && head -c " ++ show size
184 ++ " </dev/urandom >" ++ infile
184 ++ " </dev/urandom >" ++ infile
186− runProcess_ (shell (cmd inFileSmall smallFileSize))
186+ callCommand (cmd inFileSmall smallFileSize)
187− runProcess_ (shell (cmd inFileBig bigFileSize))
187+ callCommand (cmd inFileBig bigFileSize)
188 return (inFileSmall, inFileBig)
188 return (inFileSmall, inFileBig)
190 hPutStrLn stderr $ "Using small input file: " ++ small
190 hPutStrLn stderr $ "Using small input file: " ++ small