fuzzy-time-gen-0.2.0.1: bench/Bench.hs

{-# LANGUAGE TypeApplications #-}

module Main where

import Criterion.Main as Criterion
import Data.FuzzyTime
import Data.FuzzyTime.Types.Gen ()
import Data.GenValidity.Criterion

main :: IO ()
main =
  Criterion.defaultMain
    [ genValidBench @FuzzyLocalTime,
      genValidBench @FuzzyTimeOfDay,
      genValidBench @FuzzyDay,
      genValidBench @Month
    ]