{-# OPTIONS_GHC -fsimpl-tick-factor=0 #-}

module Main (main) where

import Prelude ()

import Prelude.Compat

import Criterion.Main

import Data.Aeson (decode, encode)

import Data.Time.Clock (UTCTime)

import Data.Time.LocalTime (ZonedTime)

import qualified Data.ByteString.Lazy as BL

utcTime :: BL.ByteString -> Maybe [UTCTime]

utcTime = decode

zTime :: BL.ByteString -> Maybe [ZonedTime]

zTime = decode

main :: IO ()

main = do

  let file1 = BL.readFile "json-data/dates.json"

  let file2 = BL.readFile "json-data/dates-fract.json"

  defaultMain [

      bgroup "decode" [

        bgroup "UTCTime" [

          env file1 $ \bs -> bench "whole" $ nf utcTime bs

        , env file2 $ \bs -> bench "fractional" $ nf utcTime bs

        ]

      , bgroup "ZonedTime" [

          env file1 $ \bs -> bench "whole" $ nf zTime bs

        , env file2 $ \bs -> bench "fractional" $ nf zTime bs

        ]

      ]

    , bgroup "encode" [

        bgroup "UTCTime" [

          env (utcTime <$> file1) $ \ts -> bench "whole" $ nf encode ts

        , env (utcTime <$> file2) $ \ts -> bench "fractional" $ nf encode ts

        ]

      , bgroup "ZonedTime" [

          env (zTime <$> file1) $ \ts -> bench "whole" $ nf encode ts

        , env (zTime <$> file2) $ \ts -> bench "fractional" $ nf encode ts

        ]

      ]

    ]