25f912de5b
Rescued from commit 11d6e2e260 which removed
db benchmarks in favor of benchmarking arbitrary git-annex commands. Which
is nice and general, but microbenchmarks are useful too.
26 lines
494 B
Haskell
26 lines
494 B
Haskell
{- git-annex benchmark data types.
|
|
-
|
|
- Copyright 2019 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module Types.Benchmark where
|
|
|
|
import Annex
|
|
import Types.Command
|
|
#ifdef WITH_BENCHMARK
|
|
import Criterion.Main.Options (Mode)
|
|
#endif
|
|
|
|
type BenchmarkGenerator = [String] -> Annex (IO ())
|
|
|
|
type MkBenchmarkGenerator = [Command] -> BenchmarkGenerator
|
|
|
|
#ifdef WITH_BENCHMARK
|
|
type CriterionMode = Mode
|
|
#else
|
|
type CriterionMode = ()
|
|
#endif
|