Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

log starting both web servers

Browse Source
This commit is contained in:
Lucy Cifferello
2020-08-19 13:27:40 -06:00
parent 74564d3170
commit b772440145
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Application.hs
View File

@@ -203,8 +203,9 @@ startWeb foundation = do
where where
startWeb' app = do startWeb' app = do
let AppSettings{..} = appSettings foundation let AppSettings{..} = appSettings foundation
putStrLn @Text $ "Launching Web Server on port " <> show appPort putStrLn @Text $ "Launching Tor Web Server on port " <> show torPort
torAction <- async $ runSettings (warpSettings torPort foundation) app torAction <- async $ runSettings (warpSettings torPort foundation) app
putStrLn @Text $ "Launching Web Server on port " <> show appPort
action <- async $ runTLS (tlsSettings sslCertLocation sslKeyLocation) action <- async $ runTLS (tlsSettings sslCertLocation sslKeyLocation)
(warpSettings appPort foundation) (warpSettings appPort foundation)
app app