From 22fa51ded17367a49114a1dc993402294579f7ea Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Thu, 22 Sep 2022 23:39:25 +0200 Subject: Make pandoc behave like a Lua interpreter when called as `pandoc-lua`. (#8311) --- pandoc-cli/src/pandoc.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'pandoc-cli/src') diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs index 305fc405e..49aaa884e 100644 --- a/pandoc-cli/src/pandoc.hs +++ b/pandoc-cli/src/pandoc.hs @@ -14,6 +14,7 @@ module Main where import qualified Control.Exception as E import Text.Pandoc.App (convertWithOpts, defaultOpts, options, parseOptions) import Text.Pandoc.Error (handleError) +import Text.Pandoc.Lua (runScript) import Text.Pandoc.Server (ServerOpts(..), parseServerOpts, app) import Safe (readDef) import System.Environment (getProgName, lookupEnv) @@ -30,4 +31,5 @@ main = E.handle (handleError . Left) $ do "pandoc-server" -> do sopts <- parseServerOpts Warp.run (serverPort sopts) (timeout (serverTimeout sopts) app) + "pandoc-lua" -> runScript _ -> parseOptions options defaultOpts >>= convertWithOpts -- cgit v1.2.3