haskell - Yesod的长期投票

Question

我可以在 Yesod 或任何其他具有类似数据库设施的 Haskell Web 框架中进行长轮询吗？

准确地说，我想延迟 HTTP 响应，直到发生有趣的事情。还应该有一个超时，在此之后，客户端将收到一个“什么都没发生”的响应，然后客户端将发出相同的请求。

为了让生活变得更加复杂，我想到的应用程序通过 HTTP/HTML5 和一个非常紧凑的 UDP 协议(protocol)为 MIDP 客户端提供所有内容。来自任一协议(protocol)的事件都可以释放任一协议(protocol)中的响应。

TIA,
阿德里安。

Answer 1

我无法回答更复杂的 UDP 内容的所有问题，但简短的回答是，是的，Yesod 支持长轮询。您基本上可以执行以下操作:

myHandler = do
    mres <- timeout timeoutInMicroseconds someAction
    case mres of
        Nothing -> return nothingHappenedResponse
        Just res -> doSomething res

您可能希望使用来自提升基础包的 System.Timeout.Lifted。