1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE PackageImports #-}
module Snap.Internal.Http.Parser.Benchmark
( benchmarks )
where
import qualified Control.Exception as E
import Control.Monad.Identity
import Criterion.Main hiding (run)
import Data.Attoparsec hiding (Result(..))
import Data.ByteString (ByteString)
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy.Char8 as L
import Snap.Internal.Http.Parser
import Snap.Internal.Http.Parser.Data
import qualified Snap.Iteratee as SI
import Snap.Iteratee hiding (take)
parseGet :: S.ByteString -> Identity ()
parseGet s = do
!_ <- run_ $ enumBS s $$ parseRequest
return ()
benchmarks = bgroup "parser"
[ bench "firefoxget" $ whnf (runIdentity . parseGet) parseGetData
]
|
