From 2bdda56272380ed35ac0a85e96e31930609779a4 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 8 Mar 2014 14:49:13 -0500 Subject: invoke the new stubs --- Presence/XMPPServer.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Presence') diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 08871cfe..a61601ef 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs @@ -1614,6 +1614,9 @@ monitor sv params xmpp = do PresenceRequestSubscription {} -> do let fail = return () -- todo xmppClientSubscriptionRequest xmpp fail k stanza replyto + PresenceInformSubscription {} -> do + let fail = return () -- todo + xmppClientInformSubscription xmpp fail k stanza NotifyClientVersion name version -> do enableClientHacks name version replyto UnrecognizedQuery query -> do @@ -1635,6 +1638,9 @@ monitor sv params xmpp = do PresenceRequestSubscription {} -> do let fail = return () -- todo xmppPeerSubscriptionRequest xmpp fail k stanza replyto + PresenceInformSubscription {} -> do + let fail = return () -- todo + xmppPeerInformSubscription xmpp fail k stanza _ -> return () _ -> return () let deliver replyto = do -- cgit v1.2.3