aboutsummaryrefslogtreecommitdiff
path: root/benchmark
diff options
context:
space:
mode:
Diffstat (limited to 'benchmark')
-rw-r--r--benchmark/benchmark-pandoc.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 1315166b9..a4e72f584 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -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)