haskell - 如何通过 Snap 服务器启用 HTTPS？

Question

是否有在 Snap 服务器中启用 HTTPS 的简单示例？我不太喜欢 OpenSsl 及其与 Snap 的用法。谢谢

Answer 1

JP Moresmau 向您展示了如何从命令行启用它，但以编程方式执行相同的操作也同样容易。启动 Snap 的“主循环”的函数将配置参数作为第一个参数，如您所见 in this bit of documentation 。您只需从 Snap.Http.Server.Config 调用 defaultConfig模块，然后对其调用 setSSLPort、setCert 和 setSSLKey 。然后，您可以将此新配置作为第一个参数传递给 httpServe。如果您使用了snap init，您可以在src/Main.hs中找到所有相关代码。

如您所见here ，默认配置是使用 a description of options 从命令行创建的。因此，更改 defaultConfig 与传递命令行参数完全相同。

我觉得有点奇怪的是，没有 defaultSSLConfig 可以生成自签名证书，因此您可以快速尝试 SSL。另外，证书和 key 的类型是FilePath，这很奇怪。也许这是一个值得 Snap 团队检查的好拉取请求？