haskell - 生产中带有 Snap 的 HTTPS

Question

我的 Snap 有以下配置

  Local.withPool 2 $ \pool -> do
Local.parallel_ pool [ httpServe (setPort (read port) config) Main.skite
                     --, httpServe (setPort 8003 config) Ws.brz
                     ]

--httpServe (setPort 8003 config) Ws.brz
where
 config =
     setErrorLog  ConfigNoLog $
     setAccessLog ConfigNoLog $
     setSSLPort 443 $
     setSSLCert "/etc/letsencrypt/../cert.pem" $
     setSSLKey "/etc/letsencrypt/../privkey.pem" $
     defaultConfig

在我构建和上传之后，所有证书都已到位，但 https:// 将不起作用。你有什么线索吗？

谢谢

Answer 1

我做到了:

首先我将这两行添加到配置中

     setSSLBind "0.0.0.0" $
     setSSLChainCert False $

在此之后，使用 ghc -threaded 进行构建非常重要，这将使它启动并运行