生产中使用Snap的HTTPS

时间:2017-06-09 11:24:57

标签: haskell ssl https lets-encrypt haskell-snap-framework

我的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://将无效。你有任何线索吗?

由于

1 个答案:

答案 0 :(得分:0)

我做到了:

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

     setSSLBind "0.0.0.0" $
     setSSLChainCert False $

在此之后,使用ghc -threaded进行构建非常重要,这将使其正常运行