-- As to version 0.2.1, the middleware costs 0.7 microseconds per request
-- Most of this time is spent with the latency measure
main :: IO()
main = defaultMain [
  bgroup "fib" [
                 bench "with metrics"    $ nfIO (readRequestCounter True  (httpGet "") 10000)
               , bench "without metrics" $ nfIO (readRequestCounter False (httpGet "") 10000)
               ]
  ]
main :: IO()
main = defaultMain [
  bgroup "fib" [
                 bench "with metrics"    $ nfIO (readRequestCounter True  (httpGet "") 10000)
               , bench "without metrics" $ nfIO (readRequestCounter False (httpGet "") 10000)
               ]
  ]
main = defaultMain [
  bgroup "fib" [
                 bench "with metrics"    $ nfIO (readRequestCounter True  (httpGet "") 10000)
               , bench "without metrics" $ nfIO (readRequestCounter False (httpGet "") 10000)
               ]
  ]