Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Force readFile in benchmarks early

Browse source
This commit is contained in:
Bodigrim 2021-03-16 01:19:36 +00:00 committed by John MacFarlane
parent 78775751d9
commit d94f9b930a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
benchmark/benchmark-pandoc.hs
View file

@ -56,10 +56,10 @@ readerBench doc name = either (const Nothing) Just $
getImages :: IO [(FilePath, MimeType, BL.ByteString)]
getImages = do
ll <- BL.readFile "test/lalune.jpg"
mv <- BL.readFile "test/movie.jpg"
return [("lalune.jpg", "image/jpg", ll)
,("movie.jpg", "image/jpg", mv)]
ll <- B.readFile "test/lalune.jpg"
mv <- B.readFile "test/movie.jpg"
return [("lalune.jpg", "image/jpg", BL.fromStrict ll)
,("movie.jpg", "image/jpg", BL.fromStrict mv)]
writerBench :: [(FilePath, MimeType, BL.ByteString)]
-> Pandoc
@ -91,9 +91,9 @@ main = do
inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"
let opts = def
let doc = either (error . show) id $ runPure $ readMarkdown opts inp
imgs <- getImages
defaultMain
[ bgroup "writers" $ mapMaybe (writerBench imgs doc . fst)
[ env getImages $ \imgs ->
bgroup "writers" $ mapMaybe (writerBench imgs doc . fst)
(sortOn fst
writers :: [(T.Text, Writer PandocPure)])
, bgroup "readers" $ mapMaybe (readerBench doc . fst)