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 =
     , xmppInformClientPresence :: ConnectionKey -> Stanza -> IO ()
     , xmppInformPeerPresence :: ConnectionKey -> Stanza -> IO ()
     , xmppAnswerProbe :: ConnectionKey -> Stanza -> TChan Stanza -> IO ()
+    , xmppClientSubscriptionRequest :: IO () -> ConnectionKey -> Stanza -> IO () 
     }
 
 
@@ -1607,6 +1608,9 @@ monitor sv params xmpp = do
                             xmppSubscribeToRoster xmpp k
                         PresenceStatus {} -> do
                             xmppInformClientPresence xmpp k stanza
+                        PresenceRequestSubscription {} -> do
+                            let fail = return () -- todo
+                            xmppClientSubscriptionRequest xmpp fail k stanza
                         NotifyClientVersion name version -> do
                             enableClientHacks name version replyto
                         UnrecognizedQuery query -> do