summaryrefslogtreecommitdiff
path: root/bench/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bench/Main.hs')
-rw-r--r--bench/Main.hs6
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 ]