@@ -9,14 +9,14 @@ main = do
9 t <- TIO.readFile "test.html"
9 t <- TIO.readFile "test.html"
10 defaultMain
10 defaultMain
11 [ bgroup "Forced"
11 [ bgroup "Forced"
12− [ bench "fast parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t
12+ [ bench "tagsoup fast Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t
13− , bench "parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptions) t
13+ , bench "tagsoup normal Text" $ nf (Soup.parseTagsOptions Soup.parseOptions) t
14− , bench "mine Text" $ nf Me.tagStream t
14+ , bench "html-parser" $ nf Me.tagStream t
16 , bgroup "length"
16 , bgroup "length"
17− [ bench "fast parse Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptionsFast) t
17+ [ bench "tagsoup fast Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptionsFast) t
18− , bench "parse Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptions) t
18+ , bench "tagsoup normal Text" $ whnf (length . Soup.parseTagsOptions Soup.parseOptions) t
19− , bench "mine Text" $ whnf (length . Me.tagStream) t
19+ , bench "html-parser" $ whnf (length . Me.tagStream) t