diff options
Diffstat (limited to 'bench/Main.hs')
-rw-r--r-- | bench/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bench/Main.hs b/bench/Main.hs index 279842f..cc64d4b 100644 --- a/bench/Main.hs +++ b/bench/Main.hs | |||
@@ -49,19 +49,19 @@ main = do | |||
49 | defaultMain | 49 | defaultMain |
50 | [ bench "decode/bencode" $ nf A.bRead lazyTorrentFile | 50 | [ bench "decode/bencode" $ nf A.bRead lazyTorrentFile |
51 | , bench "decode/AttoBencode" $ nf (getRight . Atto.parseOnly bValue) torrentFile | 51 | , bench "decode/AttoBencode" $ nf (getRight . Atto.parseOnly bValue) torrentFile |
52 | , bench "decode/b-encode" $ nf (getRight . C.decode) torrentFile | 52 | , bench "decode/bencoding" $ nf (getRight . C.decode) torrentFile |
53 | 53 | ||
54 | , let Just v = A.bRead lazyTorrentFile in | 54 | , let Just v = A.bRead lazyTorrentFile in |
55 | bench "encode/bencode" $ nf A.bPack v | 55 | bench "encode/bencode" $ nf A.bPack v |
56 | , let Right v = Atto.parseOnly bValue torrentFile in | 56 | , let Right v = Atto.parseOnly bValue torrentFile in |
57 | bench "encode/AttoBencode" $ nf B.encode v | 57 | bench "encode/AttoBencode" $ nf B.encode v |
58 | , let Right v = C.decode torrentFile in | 58 | , let Right v = C.decode torrentFile in |
59 | bench "encode/b-encode" $ nf C.encode v | 59 | bench "encode/bencoding" $ nf C.encode v |
60 | 60 | ||
61 | , bench "decode+encode/bencode" $ nf (A.bPack . fromJust . A.bRead) | 61 | , bench "decode+encode/bencode" $ nf (A.bPack . fromJust . A.bRead) |
62 | lazyTorrentFile | 62 | lazyTorrentFile |
63 | , bench "decode+encode/AttoBencode" $ nf (B.encode . getRight . Atto.parseOnly bValue) | 63 | , bench "decode+encode/AttoBencode" $ nf (B.encode . getRight . Atto.parseOnly bValue) |
64 | torrentFile | 64 | torrentFile |
65 | , bench "decode+encode/b-encode" $ nf (C.encode . getRight . C.decode) | 65 | , bench "decode+encode/bencoding" $ nf (C.encode . getRight . C.decode) |
66 | torrentFile | 66 | torrentFile |
67 | ] | 67 | ] |