http-date-0.0.13: bench/Bench.hs

module Main where

import Criterion.Main
import Data.Time
import Model
import Network.HTTP.Date

main :: IO ()
main =
    defaultMain
        [ bgroup
            "format"
            [ bench "formatHTTPDate" (whnf formatHTTPDate hd)
            , bench "utcToDate" (whnf utcToDate utcd)
            , bench "epochTimeToHTTPDate" (whnf epochTimeToHTTPDate epochTime)
            ]
        ]
  where
    hd =
        defaultHTTPDate
            { hdYear = 2000
            , hdMonth = 2
            , hdDay = 9
            , hdHour = 10
            , hdMinute = 9
            , hdSecond = 20
            , hdWkday = 6
            }
    utcd = UTCTime (ModifiedJulianDay 51583) 36560
    epochTime = 10000000000