parseRequest benchmarkin...

req1 = B.concat 
       [ "GET /favicon.ico HTTP/1.1\r\n"
       , "Host: 0.0.0.0=5000\r\n"
       , "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9) Gecko/2008061015 Firefox/3.0\r\n"
       , "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n"
       , "Accept-Language: en-us,en;q=0.5\r\n"
       , "Accept-Encoding: gzip,deflate\r\n"
       , "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\n"
       , "Keep-Alive: 300\r\n"
       , "Connection: keep-alive\r\n"
       , "\r\n" ]

test1 ::  IO ()
test1 = do
  i <- SI.enumBS req1 parseRequest
  f <- SI.run i
  return ()

benchmarks = bgroup "parser" 
             [ bench "firefoxget" $ whnfIO test1
             ]





aycan@fgt:~/haskell/snap-server/test$ ./dist/build/benchmark/benchmark -k csv -t csv
warming up
estimating clock resolution...
mean is 8.439662 us (80001 iterations)
found 1311 outliers among 79998 samples (1.6%)
  1171 (1.5%) high severe
estimating cost of a clock call...
mean is 150.0217 ns (71 iterations)
found 5 outliers among 71 samples (7.0%)
  1 (1.4%) low mild
  3 (4.2%) high mild
  1 (1.4%) high severe

benchmarking parser/firefoxget
collecting 100 samples, 426 iterations each, in estimated 845.4999 ms
bootstrapping with 100000 resamples
mean: 19.93133 us, lb 19.92589 us, ub 19.93890 us, ci 0.950
std dev: 32.42077 ns, lb 21.54082 ns, ub 55.65444 ns, ci 0.950
found 3 outliers among 100 samples (3.0%)
  1 (1.0%) low severe
  1 (1.0%) high severe
variance introduced by outliers: 0.990%
variance is unaffected by outliers