pandoc-cli: support "lua" and "serve" as commands

Pandoc behaves like `pandoc-lua` and `pandoc-server` if the first
argument is `lua` and `serve`, respectively.

1 files changed, 7 insertions, 3 deletions

diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs
index ca39b316f..630352c2c 100644
--- a/pandoc-cli/src/pandoc.hs
+++ b/pandoc-cli/src/pandoc.hs
@@ -31,10 +31,14 @@ main = E.handle (handleError . Left) $ do
   rawArgs <- map UTF8.decodeArg <$> getArgs
   case prg of
     "pandoc-server.cgi" -> runCGI
-    "pandoc-server"     -> runServer
+    "pandoc-server"     -> runServer rawArgs
     "pandoc-lua"        -> runLuaInterpreter prg rawArgs
-    _ -> parseOptionsFromArgs options defaultOpts prg rawArgs
-         >>= convertWithOpts
+    _ ->
+      case rawArgs of
+        "lua" : args   -> runLuaInterpreter "pandoc lua" args
+        "serve" : args -> runServer args
+        _              -> parseOptionsFromArgs options defaultOpts prg rawArgs
+                          >>= convertWithOpts
 
 -- | Runs pandoc as a Lua interpreter that is (mostly) compatible with
 -- the default @lua@ program shipping with Lua.