@@ -9,14 +9,14 @@ main = do
99 t <- TIO.readFile "test.html"
1010 defaultMain
1111 [ bgroup "Forced"
12− [ bench "fast parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t
13− , bench "parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptions) t
14− , bench "mine Text" $ nf Me.tagStream t
12+ [ bench "tagsoup fast Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t
13+ , bench "tagsoup normal Text" $ nf (Soup.parseTagsOptions Soup.parseOptions) t
14+ , bench "html-parser" $ nf Me.tagStream t
1515 ]
1616 , bgroup "length"
17− [ bench "fast parse Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptionsFast) t
18− , bench "parse Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptions) t
19− , bench "mine Text" $ whnf (length . Me.tagStream) t
17+ [ bench "tagsoup fast Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptionsFast) t
18+ , bench "tagsoup normal Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptions) t
19+ , bench "html-parser" $ whnf (length . Me.tagStream) t
2020 ]
2121 ]
2222