1module Codec.Binary.Base85Bench where
2
3import Criterion.Main (bench, nf)
4
5import Codec.Binary.Base85
6
7mkBenchs data1M data10M = let
8        enc1M = encode data1M
9        enc10M = encode data10M
10    in
11        [ bench "enc base 85 1M" $ nf encode data1M
12        , bench "dec base 85 1M" $ nf decode enc1M
13        , bench "enc base 85 10M" $ nf encode data10M
14        , bench "dec base 85 10M" $ nf decode enc10M
15        ]
16