File: Bench.hs

package info (click to toggle)
haskell-http-client-tls 0.3.6.4-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 92 kB
  • sloc: haskell: 411; makefile: 2
file content (20 lines) | stat: -rw-r--r-- 455 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
{-# LANGUAGE CPP #-}
module Main where

#if MIN_VERSION_gauge(0, 2, 0)
import Gauge
#else
import Gauge.Main
#endif
import Network.HTTP.Client
import Network.HTTP.Client.TLS

main :: IO ()
main = defaultMain [
      bgroup "newManager" [
            bench "defaultManagerSettings" $
                whnfIO (newManager defaultManagerSettings)
          , bench "tlsManagerSettings" $
                whnfIO (newManager tlsManagerSettings)
          ]
    ]