diff options
| author | John MacFarlane <[email protected]> | 2022-10-28 09:30:24 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-10-28 09:30:24 -0700 |
| commit | 552d3b42aec31ac5e53654f78e0733295a877356 (patch) | |
| tree | 3f3d0814478133024bcc667a8cce20f104ec1d32 | |
| parent | 9d8d1a0b9e434504e9a2c5998a0ff381506ef359 (diff) | |
Issue message when starting up server indicating the port.
| -rw-r--r-- | pandoc-cli/server/PandocCLI/Server.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |