Haskell 在快照框架中编写EventSource处理程序

我有一个用Haskell的Snap web框架编写的基于web的聊天应用程序，它目前使用web套接字。出于各种原因，我想从WebSocket转移到服务器发送的事件。我的一些理由是：HTTP 2.0中没有包含Web套接字，EventSource更适合与函数式语言进行接口

我正在寻找任何提示、文档、建议、正确的方向等。。

---

与Snap框架和服务器发送事件/EventSource相关，我也有类似的内容，参考但没有响应。你可以找到代码的一部分，但没有流式传输到所有客户端。我也有类似的东西，参考但没有响应。您可以找到部分代码，但无需流式传输到所有客户端。