Got benchmarks compiling with new API.

1 files changed, 4 insertions, 3 deletions

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)