@@ -7,7 +7,6 @@ import qualified Text.HTML.Parser as Me
77main :: IO ()
88main = do
99 t <- TIO.readFile "test.html"
10− s <- readFile "test.html"
1110 defaultMain
1211 [ bgroup "Forced"
1312 [ bench "fast parse Text" $ nf (Soup.parseTagsOptions Soup.parseOptionsFast) t