From 5589b1f8f994dd4f741e6861fc2a374f609bb2db Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sat, 8 Oct 2022 23:01:27 +0200
Subject: [API Change] Change argument type of `getReader`, `getWriter`.

The functions now take a `FlavoredFormat` instead of a text argument.
---
 pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'pandoc-lua-engine/src/Text')

diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs
index 1fdc6fd65..60f74d8b0 100644
--- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs
+++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs
@@ -30,6 +30,7 @@ import HsLua hiding (pushModule)
 import System.Exit (ExitCode (..))
 import Text.Pandoc.Definition
 import Text.Pandoc.Error (PandocError (..))
+import Text.Pandoc.Format (parseFlavoredFormat)
 import Text.Pandoc.Lua.Orphans ()
 import Text.Pandoc.Lua.Marshal.AST
 import Text.Pandoc.Lua.Marshal.Filter (peekFilter)
@@ -208,7 +209,7 @@ functions =
   , defun "read"
     ### (\content mformatspec mreaderOptions -> unPandocLua $ do
             let readerOpts = fromMaybe def mreaderOptions
-            let formatSpec = fromMaybe "markdown" mformatspec
+            formatSpec <- parseFlavoredFormat $ fromMaybe "markdown" mformatspec
             getReader formatSpec >>= \case
               (TextReader r, es)       ->
                  r readerOpts{readerExtensions = es}
@@ -246,7 +247,7 @@ functions =
   , defun "write"
     ### (\doc mformatspec mwriterOpts -> unPandocLua $ do
             let writerOpts = fromMaybe def mwriterOpts
-            let formatSpec = fromMaybe "html" mformatspec
+            formatSpec <- parseFlavoredFormat $ fromMaybe "html" mformatspec
             getWriter formatSpec >>= \case
               (TextWriter w, es)      -> Right <$>
                 w writerOpts{ writerExtensions = es } doc
-- 
cgit v1.2.3