haskell - 使用 eventsource 时检测客户端断开连接

Question

我正在尝试为 Yesod 中的网站构建聊天功能，我希望它有一个所有已连接用户的列表。我认为最好的方法是将人员添加到连接上的用户列表中，并在他们离开时将其删除。如果保持连接打开，响应似乎应该阻塞，所以我天真地写了

getReceiveR :: Handler ()
getReceiveR = do
  App chan <- getYesod
  req <- waiRequest
  res <- lift $ eventSourceAppChan chan req
  sendWaiResponse res
  liftIO $ putStrLn "client disconnected" <-- Note this

但是它当然不起作用，因为 sendWaiResponse 短路了。

有没有办法检测客户端何时断开连接？

编辑:我正在使用 this tutorial 的稍微修改过的版本测试这个概念。

Answer 1

我确实无法确定运行代码，但这行得通吗？

import Control.Monad.Trans.Resource

getReceiveR :: Handler ()
getReceiveR = do
  App chan <- getYesod
  req <- waiRequest
  res <- lift $ eventSourceAppChan chan req
  register . liftIO $ putStrLn "client disconnected"
  sendWaiResponse res