From 522302a97edbe2bcfea3c6f8f7017016c02c4a37 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Fri, 28 Jun 2024 09:58:21 +0200
Subject: [PATCH] pandoc-cli: Refer printing of version info to the Lua
 interpreter

The Lua interpreter no longer terminates when called with `-v` or
`--version` arguments, thus improving compatibility with the default
`lua` interpreter program.
---
 pandoc-cli/src/pandoc.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs
index 103ba6df1b1a..019d0adedb15 100644
--- a/pandoc-cli/src/pandoc.hs
+++ b/pandoc-cli/src/pandoc.hs
@@ -20,7 +20,6 @@ import Text.Pandoc.App ( convertWithOpts, defaultOpts, options
 import Text.Pandoc.Error (handleError)
 import System.Exit (exitSuccess)
 import Data.Monoid (Any(..))
-import Control.Monad (when)
 import PandocCLI.Lua
 import PandocCLI.Server
 import qualified Text.Pandoc.UTF8 as UTF8
@@ -52,16 +51,16 @@ main = E.handle (handleError . Left) $ do
   let hasVersion = getAny $ foldMap
          (\s -> Any (s == "-v" || s == "--version"))
          (takeWhile (/= "--") rawArgs)
-  when hasVersion versionInfo
+  let versionOr action = if hasVersion then versionInfo else action
   case prg of
-    "pandoc-server.cgi" -> runCGI
-    "pandoc-server"     -> runServer rawArgs
+    "pandoc-server.cgi" -> versionOr runCGI
+    "pandoc-server"     -> versionOr $ runServer rawArgs
     "pandoc-lua"        -> runLuaInterpreter prg rawArgs
     _ ->
       case rawArgs of
         "lua" : args   -> runLuaInterpreter "pandoc lua" args
-        "server": args -> runServer args
-        args           -> do
+        "server": args -> versionOr $ runServer args
+        args           -> versionOr $ do
           engine <- getEngine
           res <- parseOptionsFromArgs options defaultOpts prg args
           case res of