genvalidity-uuid-1.0.0.1: bench/Main.hs

{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}

module Main where

import Criterion.Main as Criterion
import Data.GenValidity.Criterion
import Data.GenValidity.UUID ()
import Data.UUID

main :: IO ()
main =
  Criterion.defaultMain
    [ genValidBench @UUID,
      shrinkValidBench @UUID
    ]