@@ -823,9 +823,10 @@ pollOnce = \token cursor -> do
823 yield (PollUnauthorized {})
823 yield (PollUnauthorized {})
824 Authorized {pubkey} -> do
824 Authorized {pubkey} -> do
825 seqCounter <- *seqCounter
825 seqCounter <- *seqCounter
826+ messages <- *messages
826 let clampedCursor = clamp 0 (max seqCounter t) cursor
827 let clampedCursor = clamp 0 (max seqCounter t) cursor
827 let matchingMsgs = do
828 let matchingMsgs = do
828− m <- *messages
829+ m <- messages
829 where m.toKey == pubkey && m.receivedAt >= t - messageMaxAge && m.receivedAt > clampedCursor
830 where m.toKey == pubkey && m.receivedAt >= t - messageMaxAge && m.receivedAt > clampedCursor
831 let limitedMsgs = boundedSmallest matchingMsgs maxPollEvents (\m -> m.receivedAt)
832 let limitedMsgs = boundedSmallest matchingMsgs maxPollEvents (\m -> m.receivedAt)