mirror of https://github.com/voidlizard/hbs2
16 lines
360 B
Haskell
16 lines
360 B
Haskell
module BenchUtils where
|
|
|
|
import Data.ByteString (ByteString)
|
|
import qualified Data.ByteString as BS
|
|
|
|
import Data.Text as T
|
|
|
|
bs128, kb2, mb1, mb5 :: ByteString
|
|
bs128 = BS.replicate 128 0
|
|
kb2 = BS.replicate 2000 0
|
|
mb1 = BS.replicate 1000000 0
|
|
mb5 = BS.replicate 5000000 0
|
|
|
|
s128 = T.replicate 128 (T.pack "0")
|
|
s2000 = T.replicate 2000 (T.pack "0")
|