@@ -823,9 +823,10 @@ pollOnce = \token cursor -> do
823823 yield (PollUnauthorized {})
824824 Authorized {pubkey} -> do
825825 seqCounter <- *seqCounter
826+ messages <- *messages
826827 let clampedCursor = clamp 0 (max seqCounter t) cursor
827828 let matchingMsgs = do
828− m <- *messages
829+ m <- messages
829830 where m.toKey == pubkey && m.receivedAt >= t - messageMaxAge && m.receivedAt > clampedCursor
830831 yield m
831832 let limitedMsgs = boundedSmallest matchingMsgs maxPollEvents (\m -> m.receivedAt)