invoke the new stubs

1 files changed, 6 insertions, 0 deletions

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