From cfc4d0bdfe2764fee19df171c639a08169c6d3ce Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 5 Nov 2017 17:17:34 -0500 Subject: Some comments. --- Presence/XMPPServer.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index e78e4dd9..79167267 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs @@ -185,7 +185,9 @@ data XMPPServerParameters = -- , xmppLookupClientJID :: ConnectionKey -> IO Text , xmppTellClientNameOfPeer :: ConnectionKey -> [Text] -> IO Text , xmppDeliverMessage :: (IO ()) -> Stanza -> IO () + -- | Called whenever a local client's presence changes. , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO () + -- | Called whenever a remote peer's presence changes. , xmppInformPeerPresence :: ConnectionKey -> Stanza -> IO () , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO () , xmppClientSubscriptionRequest :: IO () -> ConnectionKey -> Stanza -> TChan Stanza -> IO () -- cgit v1.2.3