@@ -52,12 +52,6 @@ smallFileSize = 10 * 1024 * 1024
5252bigFileSize :: Int
5353bigFileSize = 100 * 1024 * 1024
5454
55−blockSize :: Int
56−blockSize = 32768
57−
58−blockCount :: Int -> Int
59−blockCount size = (size + blockSize - 1) `div` blockSize
60−
6155-------------------------------------------------------------------------------
6256--
6357-------------------------------------------------------------------------------
@@ -75,9 +69,8 @@ main = do
7569 "mkdir -p " ++ scratchDir
7670 ++ "; test -e " ++ infile
7771 ++ " || { echo \"creating input file " ++ infile
78− ++ "\" && dd if=/dev/random of=" ++ infile
79− ++ " bs=" ++ show blockSize
80− ++ " count=" ++ show (blockCount size)
72+ ++ "\" && head -c " ++ show size
73+ ++ " </dev/urandom >" ++ infile
8174 ++ ";}"
8275 runProcess_ (shell (cmd inFileSmall smallFileSize))
8376 runProcess_ (shell (cmd inFileBig bigFileSize))