genvalidity-path-0.3.0.3: bench/Main.hs

{-# LANGUAGE TypeApplications #-}

module Main where

import Criterion.Main

import Path

import Data.GenValidity.Criterion
import Data.GenValidity.Path ()

main :: IO ()
main =
  defaultMain
    [ genValidBench @(Path Abs File)
    , genValidBench @(Path Rel File)
    , genValidBench @(Path Abs Dir)
    , genValidBench @(Path Rel Dir)
    ]