diff options
Diffstat (limited to 'test/Benchmark.hs')
| -rw-r--r-- | test/Benchmark.hs | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/test/Benchmark.hs b/test/Benchmark.hs index 9c81049..3454ca2 100644 --- a/test/Benchmark.hs +++ b/test/Benchmark.hs @@ -1,15 +1,22 @@ module Main where -import Control.Lens ((&), (.~)) -import Criterion.Main (bench, bgroup, defaultMain, nfAppIO) -import Verismith (configProperty, defaultConfig, proceduralIO, - propSize, propStmntDepth) +import Control.Lens ((&), (.~)) +import Criterion.Main (bench, bgroup, defaultMain, nfAppIO) +import Verismith + ( configProperty, + defaultConfig, + proceduralIO, + propSize, + propStmntDepth, + ) main :: IO () -main = defaultMain - [ bgroup "generation" - [ bench "default" $ nfAppIO (proceduralIO "top") defaultConfig - , bench "depth" . nfAppIO (proceduralIO "top") $ defaultConfig & configProperty . propStmntDepth .~ 10 - , bench "size" . nfAppIO (proceduralIO "top") $ defaultConfig & configProperty . propSize .~ 40 +main = + defaultMain + [ bgroup + "generation" + [ bench "default" $ nfAppIO (proceduralIO "top") defaultConfig, + bench "depth" . nfAppIO (proceduralIO "top") $ defaultConfig & configProperty . propStmntDepth .~ 10, + bench "size" . nfAppIO (proceduralIO "top") $ defaultConfig & configProperty . propSize .~ 40 ] ] |