aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Scripting.hs
diff options
context:
space:
mode:
authorAlbert Krewinkel <[email protected]>2022-10-10 09:12:11 +0200
committerAlbert Krewinkel <[email protected]>2022-10-10 09:13:09 +0200
commit3e1d3b5e5efb269a75550f70156c722de3da56d0 (patch)
tree3790e05989bd14044a7c807df1d5dee321e3a308 /src/Text/Pandoc/Scripting.hs
parent5d858e4119af3154ad8682ffc331115a01428e4c (diff)
Lua: use `Reader` type for custom readers.
Diffstat (limited to 'src/Text/Pandoc/Scripting.hs')
-rw-r--r--src/Text/Pandoc/Scripting.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Scripting.hs b/src/Text/Pandoc/Scripting.hs
index 17bc2f972..9df00a5cf 100644
--- a/src/Text/Pandoc/Scripting.hs
+++ b/src/Text/Pandoc/Scripting.hs
@@ -22,7 +22,7 @@ import Text.Pandoc.Definition (Pandoc)
import Text.Pandoc.Class.PandocMonad (PandocMonad)
import Text.Pandoc.Error (PandocError (PandocNoScriptingEngine))
import Text.Pandoc.Filter.Environment (Environment)
-import Text.Pandoc.Options (ReaderOptions)
+import Text.Pandoc.Readers (Reader)
import Text.Pandoc.Sources (Sources)
import Text.Pandoc.Writers (Writer)
@@ -36,7 +36,7 @@ data ScriptingEngine = ScriptingEngine
-- ^ Use the scripting engine to run a filter.
, engineReadCustom :: forall m. (PandocMonad m, MonadIO m)
- => FilePath -> ReaderOptions -> Sources -> m Pandoc
+ => FilePath -> m (Reader m)
-- ^ Function to parse input into a 'Pandoc' document.
, engineWriteCustom :: forall m. (PandocMonad m, MonadIO m)
@@ -49,7 +49,7 @@ noEngine = ScriptingEngine
{ engineName = "none"
, engineApplyFilter = \_env _args _fp _doc ->
throwError PandocNoScriptingEngine
- , engineReadCustom = \_fp _ropts _sources ->
+ , engineReadCustom = \_fp ->
throwError PandocNoScriptingEngine
, engineWriteCustom = \_fp ->
throwError PandocNoScriptingEngine