From e26c8eca6981200625de138dfb396048fa188e1a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 13 Oct 2022 23:35:12 -0700 Subject: Got benchmarks compiling with new API. --- benchmark/benchmark-pandoc.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'benchmark/benchmark-pandoc.hs') diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs index a006a4309..3b3c1fa8f 100644 --- a/benchmark/benchmark-pandoc.hs +++ b/benchmark/benchmark-pandoc.hs @@ -28,6 +28,7 @@ import Test.Tasty.Bench import qualified Data.ByteString.Lazy as BL import Data.Maybe (mapMaybe) import Data.List (sortOn) +import Text.Pandoc.Format (FlavoredFormat(..)) readerBench :: Pandoc -> T.Text @@ -36,8 +37,8 @@ readerBench _ name | name `elem` ["bibtex", "biblatex", "csljson"] = Nothing readerBench doc name = either (const Nothing) Just $ runPure $ do - (rdr, rexts) <- getReader name - (wtr, wexts) <- getWriter name + (rdr, rexts) <- getReader $ FlavoredFormat name mempty + (wtr, wexts) <- getWriter $ FlavoredFormat name mempty case (rdr, wtr) of (TextReader r, TextWriter w) -> do inp <- w def{ writerWrapText = WrapAuto @@ -70,7 +71,7 @@ writerBench _ _ name | name `elem` ["bibtex", "biblatex", "csljson"] = Nothing writerBench imgs doc name = either (const Nothing) Just $ runPure $ do - (wtr, wexts) <- getWriter name + (wtr, wexts) <- getWriter $ FlavoredFormat name mempty case wtr of TextWriter writerFun -> return $ bench (T.unpack name) -- cgit v1.2.3