tweet-hs-0.6.0.0: bench/Bench.hs

module Main where

import           Criterion.Main
import qualified Data.ByteString             as BS
import           Web.Tweet.Parser.FastParser


setupEnv = BS.readFile "test/data"

fast = fmap (fmap fromFast) . fastParse

main = do
    defaultMain [
                env setupEnv $ \ ~file ->
                bgroup "fastParser"
                      [ bench "226" $ whnf fast file ]
                ]