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