@@ -169,21 +169,21 @@ startApp = do
169169 -- no longer using registerWebhook as it needs updating to use TLS certification
170170 -- registerWebhook config
171171 runApp config initStart
172- finds_ssl_keys <- (&&) <$> doesFileExist sslCert <*> doesFileExist sslKey
173- if finds_ssl_keys
174- then do
175- print $ " Server (HTTPS) now listening to port " <> show port
176- runTLS tlsOpts (warpOpts port) . withServer $ config
177- else do
178- dir <- getCurrentDirectory
179- print $ " WARNING: Missing SSL keys from " <> dir
180- print $
181- " TLS will need to rely on gateway (if any). \
182- \ Server (PLAIN HTTP) now listening to port "
183- <> show port
184- run port $ withServer config
185- where
186- warpOpts p
187- | p == 80 = setPort 443 defaultSettings
188- | otherwise = setPort p defaultSettings
189- tlsOpts = tlsSettings sslCert sslKey
172+ -- finds_ssl_keys <- (&&) <$> doesFileExist sslCert <*> doesFileExist sslKey
173+ -- if finds_ssl_keys
174+ -- then do
175+ -- print $ "Server (HTTPS) now listening to port " <> show port
176+ -- runTLS tlsOpts (warpOpts port) . withServer $ config
177+ -- else do
178+ -- dir <- getCurrentDirectory
179+ -- print $ "WARNING: Missing SSL keys from " <> dir
180+ -- print $
181+ -- "TLS will need to rely on gateway (if any). \
182+ -- \ Server (PLAIN HTTP) now listening to port "
183+ -- <> show port
184+ run port $ withServer config
185+ -- where
186+ -- warpOpts p
187+ -- | p == 80 = setPort 443 defaultSettings
188+ -- | otherwise = setPort p defaultSettings
189+ -- tlsOpts = tlsSettings sslCert sslKey
0 commit comments