git.iko.soy/typeable/html-parse
on master help sign in
Benchmark: Clean up
9a0971fBen Gamari
Benchmark.hs−1
compare with master
unifiedsplit
@@ -7,7 +7,6 @@ import qualified Text.HTML.Parser as Me
7main :: IO ()
7main :: IO ()
8main = do
8main = do
9 t <- TIO.readFile "test.html"
9 t <- TIO.readFile "test.html"
10− s <- readFile "test.html"
11 defaultMain
10 defaultMain
12 [ bgroup "Forced"
11 [ bgroup "Forced"
13 [ bench "fast parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t
12 [ bench "fast parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t