blob: 607b9eef9df4e704e911d84be199e89918d737d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-- mark.hs: openpgp-asciiarmor benchmark suite
-- Copyright © 2018-2019 Clint Adams
-- This software is released under the terms of the Expat license.
-- (See the LICENSE file).
{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
import Criterion.Main
import Data.Digest.CRC24
main :: IO ()
main = defaultMain [
bgroup "crc" [
bench "crc24" $ whnf crc24 "test"
, bench "crc24Lazy" $ whnf crc24Lazy "test"
]
]
|