module Distribution.Types.Benchmark.Lens (
Benchmark,
module Distribution.Types.Benchmark.Lens,
) where
import Distribution.Compat.Lens
import Distribution.Compat.Prelude
import Prelude ()
import Distribution.Types.Benchmark (Benchmark)
import Distribution.Types.BenchmarkInterface (BenchmarkInterface)
import Distribution.Types.BuildInfo (BuildInfo)
import Distribution.Types.UnqualComponentName (UnqualComponentName)
import qualified Distribution.Types.Benchmark as T
benchmarkName :: Lens' Benchmark UnqualComponentName
benchmarkName f s = fmap (\x -> s { T.benchmarkName = x }) (f (T.benchmarkName s))
benchmarkInterface :: Lens' Benchmark BenchmarkInterface
benchmarkInterface f s = fmap (\x -> s { T.benchmarkInterface = x }) (f (T.benchmarkInterface s))
benchmarkBuildInfo :: Lens' Benchmark BuildInfo
benchmarkBuildInfo f s = fmap (\x -> s { T.benchmarkBuildInfo = x }) (f (T.benchmarkBuildInfo s))