1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}
module BenchUtil.Common
( defaultMain
, Benchmark
, Benchmarkable
, bgroup
, bench
, fbench
, whnf
, whnfIO
, nf
) where
import Gauge.Main hiding (bgroup, bench)
import qualified Gauge.Main as C
import Foundation
fbench = bench "foundation"
bgroup :: String -> [Benchmark] -> Benchmark
bgroup n f = C.bgroup (toList n) f
bench :: String -> Benchmarkable -> Benchmark
bench n f = C.bench (toList n) f
|
