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