optimal-blocks-0.0.1: benches/BenchAll.hs

module Main
( main
) where

import qualified Buzz
import qualified OptimalBlocks
import qualified Data.ByteString as BS
import System.IO ( withFile, IOMode(ReadMode) )
import Criterion.Main ( defaultMain )

main :: IO ()
main = do
  bytes <- withFile "/dev/urandom" ReadMode $ (flip BS.hGet) (10 * 1024 * 1024)
  defaultMain $ (OptimalBlocks.speed bytes) ++ (Buzz.speed bytes)