Haskell websocket在不活动后关闭？_Haskell_Websocket_Haskell Wai

Haskell websocket在不活动后关闭？

haskell websocket

Haskell websocket在不活动后关闭？,haskell,websocket,haskell-wai,Haskell,Websocket,Haskell Wai,我有一个在连接打开后看起来像这样的代码片段 receiveEvents :: WS.Connection -> Document -> IO() receiveEvents conn document = forever $ do putStrLn "receive events" evnt <- WS.receiveData conn let val = fromJust $ decode' evnt liftI

我有一个在连接打开后看起来像这样的代码片段

receiveEvents :: WS.Connection -> Document -> IO()
receiveEvents conn document = forever $ do
        putStrLn "receive events"
        evnt <- WS.receiveData conn
        let val = fromJust $ decode' evnt
        liftIO $ atomically $ do
                              writeTChan (eventQueue document) val

receiveEvents:：WS.Connection->Document->IO（）
receiveEvents连接文档=永久$do
putStrLn“接收事件”
evnt