From 0ab014ed1e5890e338792fab98aecc45cd889f99 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Thu, 29 Sep 2022 14:09:48 +0200 Subject: [API Change] App: parameterize `options` over the scripting engine --- pandoc-cli/src/pandoc.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'pandoc-cli/src') diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs index ca5cf6651..216198291 100644 --- a/pandoc-cli/src/pandoc.hs +++ b/pandoc-cli/src/pandoc.hs @@ -20,7 +20,7 @@ import Text.Pandoc.App ( convertWithOpts, defaultOpts, options , parseOptionsFromArgs) import Text.Pandoc.Class (runIOorExplode) import Text.Pandoc.Error (handleError) -import Text.Pandoc.Lua (runLua, runLuaNoEnv) +import Text.Pandoc.Lua (getEngine, runLua, runLuaNoEnv) import Text.Pandoc.Shared (pandocVersionText) import qualified Text.Pandoc.UTF8 as UTF8 import PandocCLI.Server @@ -37,8 +37,10 @@ main = E.handle (handleError . Left) $ do case rawArgs of "lua" : args -> runLuaInterpreter "pandoc lua" args "serve" : args -> runServer args - _ -> parseOptionsFromArgs options defaultOpts prg rawArgs - >>= convertWithOpts + _ -> do + engine <- getEngine + let opts = options engine + parseOptionsFromArgs opts defaultOpts prg rawArgs >>= convertWithOpts -- | Runs pandoc as a Lua interpreter that is (mostly) compatible with -- the default @lua@ program shipping with Lua. -- cgit v1.2.3