From 552d3b42aec31ac5e53654f78e0733295a877356 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 28 Oct 2022 09:30:24 -0700 Subject: Issue message when starting up server indicating the port. --- pandoc-cli/server/PandocCLI/Server.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/pandoc-cli/server/PandocCLI/Server.hs b/pandoc-cli/server/PandocCLI/Server.hs index 3f04ab1b0..d2a1c9d3e 100644 --- a/pandoc-cli/server/PandocCLI/Server.hs +++ b/pandoc-cli/server/PandocCLI/Server.hs @@ -29,4 +29,5 @@ runCGI = do runServer :: [String] -> IO () runServer args = do sopts <- parseServerOptsFromArgs args + putStrLn $ "Starting server on port " <> show (serverPort sopts) <> "..." Warp.run (serverPort sopts) (timeout (serverTimeout sopts) app) -- cgit v1.2.3