From 135cfed2a385efccf61214002736e81c7b3ef667 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 28 Oct 2022 09:32:50 -0700 Subject: Print starting server message to stderr instead of stdout. --- pandoc-cli/server/PandocCLI/Server.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pandoc-cli/server/PandocCLI/Server.hs b/pandoc-cli/server/PandocCLI/Server.hs index d2a1c9d3e..55cc9ffbd 100644 --- a/pandoc-cli/server/PandocCLI/Server.hs +++ b/pandoc-cli/server/PandocCLI/Server.hs @@ -18,6 +18,7 @@ import Network.Wai.Middleware.Timeout (timeout) import Safe (readDef) import System.Environment (lookupEnv) import Text.Pandoc.Server (ServerOpts(..), parseServerOptsFromArgs, app) +import System.IO (stderr, hPutStrLn) -- | Runs the CGI server. runCGI :: IO () @@ -29,5 +30,6 @@ runCGI = do runServer :: [String] -> IO () runServer args = do sopts <- parseServerOptsFromArgs args - putStrLn $ "Starting server on port " <> show (serverPort sopts) <> "..." + hPutStrLn stderr $ + "Starting server on port " <> show (serverPort sopts) <> "..." Warp.run (serverPort sopts) (timeout (serverTimeout sopts) app) -- cgit v1.2.3