From 82a0a5923774821b4a19549fe4dbf58efa89b733 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marko=20Dimja=C5=A1evi=C4=87?= Date: Tue, 24 Jan 2023 14:10:25 +0100 Subject: [PATCH] Document a function --- services/galley/src/Galley/API/Message.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/services/galley/src/Galley/API/Message.hs b/services/galley/src/Galley/API/Message.hs index 8f0f2bb1789..7484a4c6849 100644 --- a/services/galley/src/Galley/API/Message.hs +++ b/services/galley/src/Galley/API/Message.hs @@ -553,6 +553,9 @@ sendLocalMessages loc now sender senderClient mconn qcnv botMap metadata localMe runMessagePush @t loc qcnv (pushes ^. traversed) pure mempty +-- | Send remote messages to the backend given by the domain argument, and +-- return the set of clients for which sending has failed. In case there was no +-- failure, the empty set is returned. sendRemoteMessages :: forall r x. (Members '[FederatorAccess, P.TinyLog] r, CallsFed 'Galley "on-message-sent") =>