elliptic-curve-0.2.1: benchmarks/GroupBenchmarks.hs

module GroupBenchmarks where

import Criterion.Main
import GHC.Base
import Group

benchmark :: Group g => String -> g -> Benchmark
benchmark = (. whnf (flip mul' 3)) . bench