Issue message when starting up server indicating the port.

This commit is contained in:
John MacFarlane
2022-10-28 09:30:24 -07:00
parent 9d8d1a0b9e
commit 552d3b42ae
+1
View File
@@ -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)