@@ -301,12 +301,7 @@ type PresenceEntry = {pubkey: PubkeyHex, server: ServerName, expiresAt: Timestam
301301-- A message queued for cross-server delivery to `toServer`. `retries` is
302302-- incremented by `retryPendingForwards` until `maxForwardRetries` is hit.
303303-- Identity is derived from `encryptedBlob` (see `Message`).
304−type ForwardEntry = {
305− toServer: ServerName,
306− toKey: PubkeyHex,
307− encryptedBlob: BlobHex,
308− retries: Int
309−}
304+type ForwardEntry = {toServer: ServerName, toKey: PubkeyHex, encryptedBlob: BlobHex, retries: Int}
310305-- Replay-protection record: a message id we already delivered locally.
311306type DeliveredEntry = {messageId: MessageIdHex, toKey: PubkeyHex, deliveredAt: Timestamp}
312307-- Running failure counter for a peer; keyed by `server`. Drives `retryBackoff`.
@@ -1582,12 +1577,7 @@ handleListMessages = \offset authorization clientIp respond -> do
15821577handleDeleteMessages : [MessageIdHex] -> Text -> Text -> ({authorized: Bool, deletedCount: Int, error: Text, ok: Bool} -> a) -> IO {rw *globalRateCount, rw *globalRateWindowStart, r *sessions, clock} a
15831578handleDeleteMessages = \messageIds authorization clientIp respond -> do
15841579 t <- now
1585− let mkErr = \e -> {
1586− ok: False {},
1587− authorized: False {},
1588− deletedCount: 0,
1589− error: e
1590− }
1580+ let mkErr = \e -> {ok: False {}, authorized: False {}, deletedCount: 0, error: e}
15911581 gateClientWrite authorization clientIp t respond mkErr {
15921582 ok: False {},
15931583 authorized: True {},