flaw-websocket-server/Flaw/Network/WebSocket/Wai.hs
Parse error Open
Open
timedOut <- readTVar delayVar
- Read upRead up
- Exclude checks
Found
let step = join $ atomically $ do
let readPing = do
> timedOut <- readTVar delayVar
unless timedOut retry
return $ WS.sendPing connection B.empty
remove it.