@@ -1873,11 +1873,11 @@ sendCancelToEach = \messageId to servers -> forEach servers (\server -> do
18731873 authorization: auth,
18741874 protocolVersion: federationProtocolVersion
18751875 })
1876− when (case result of; Err _ -> True {}; Ok {value: r} -> not r.ok) (atomic (do
1876+ when (case result of Err _ -> True {}; Ok {value: r} -> not r.ok) (atomic do
18771877 cur <- *pendingFederationCancels
18781878 *pendingFederationCancels = capList (union cur [
18791879 {messageId, toKey: to, toServer: server, createdAt: t, retries: 0}
1880− ]) 10000 (\c -> c.createdAt))))
1880+ ]) 10000 (\c -> c.createdAt)))
18811881
18821882-- POST /messages/cancel-batch: multi-id sender-side cancel. Same ownership
18831883-- check as `handleCancelMessage`, applied independently per entry.
@@ -1939,7 +1939,7 @@ handleVerifyToken = \token scope clientIp respond -> do
19391939 pending <- *pendingVerifications
19401940 let same = \p -> p.scope == scope && p.token == token
19411941 let match = any pending (\p -> same p && t - p.createdAt < verificationTokenExpiry)
1942− when match *pendingVerifications = removeWhere pending same
1942+ when match (*pendingVerifications = removeWhere pending same)
19431943 yield match)
19441944 yield (respond {ok: found})
19451945