diff options
| author | Albert Krewinkel <[email protected]> | 2022-10-08 23:01:27 +0200 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-10-08 16:05:48 -0700 |
| commit | 5589b1f8f994dd4f741e6861fc2a374f609bb2db (patch) | |
| tree | 2123bebba2b32c66e55070f8eb141221a7480611 /pandoc-lua-engine/src | |
| parent | a4218b9719c77978e1968065a3c2c4f25d3c4137 (diff) | |
[API Change] Change argument type of `getReader`, `getWriter`.
The functions now take a `FlavoredFormat` instead of a text argument.
Diffstat (limited to 'pandoc-lua-engine/src')
| -rw-r--r-- | pandoc-lua-engine/src/Text/Pandoc/Lua/Module/Pandoc.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |