summaryrefslogtreecommitdiff
path: root/Presence
diff options
context:
space:
mode:
Diffstat (limited to 'Presence')
-rw-r--r--Presence/XMPPServer.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 3d4120fa..a118ce88 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -190,6 +190,7 @@ data XMPPServerParameters =
190 , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO () 190 , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO ()
191 , xmppInformPeerPresence :: ConnectionKey -> Stanza -> IO () 191 , xmppInformPeerPresence :: ConnectionKey -> Stanza -> IO ()
192 , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO () 192 , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO ()
193 , xmppClientSubscriptionRequest :: IO () -> ConnectionKey -> Stanza -> IO ()
193 } 194 }
194 195
195 196
@@ -1607,6 +1608,9 @@ monitor sv params xmpp = do
1607 xmppSubscribeToRoster xmpp k 1608 xmppSubscribeToRoster xmpp k
1608 PresenceStatus {} -> do 1609 PresenceStatus {} -> do
1609 xmppInformClientPresence xmpp k stanza 1610 xmppInformClientPresence xmpp k stanza
1611 PresenceRequestSubscription {} -> do
1612 let fail = return () -- todo
1613 xmppClientSubscriptionRequest xmpp fail k stanza
1610 NotifyClientVersion name version -> do 1614 NotifyClientVersion name version -> do
1611 enableClientHacks name version replyto 1615 enableClientHacks name version replyto
1612 UnrecognizedQuery query -> do 1616 UnrecognizedQuery query -> do