summaryrefslogtreecommitdiff
path: root/bench
diff options
context:
space:
mode:
authorBodigrim <>2017-08-05 20:56:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-08-05 20:56:00 (GMT)
commit4ce53820685d4388f4a1370b6080ee3f2cc7ca36 (patch)
tree12322abef5930e71fb24948ad9e2c9089af3425a /bench
parentee978d3f2424b40f391b46b6a858ec86b672f227 (diff)
version 0.1.0.10.1.0.1
Diffstat (limited to 'bench')
-rw-r--r--bench/Bench.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/bench/Bench.hs b/bench/Bench.hs
index c9a43aa..231102c 100644
--- a/bench/Bench.hs
+++ b/bench/Bench.hs
@@ -1,8 +1,11 @@
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
module Main where
import Criterion.Main
import Data.BitStream.WheelMapping
+import Data.Word
doBench :: String -> (Word -> Word) -> Benchmark
doBench name fn = bench name $ nf (sum . (map fn)) [0..46409]