diff options
-rw-r--r-- | Presence/XMPPServer.hs | 6 |
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 | |||
1614 | PresenceRequestSubscription {} -> do | 1614 | PresenceRequestSubscription {} -> do |
1615 | let fail = return () -- todo | 1615 | let fail = return () -- todo |
1616 | xmppClientSubscriptionRequest xmpp fail k stanza replyto | 1616 | xmppClientSubscriptionRequest xmpp fail k stanza replyto |
1617 | PresenceInformSubscription {} -> do | ||
1618 | let fail = return () -- todo | ||
1619 | xmppClientInformSubscription xmpp fail k stanza | ||
1617 | NotifyClientVersion name version -> do | 1620 | NotifyClientVersion name version -> do |
1618 | enableClientHacks name version replyto | 1621 | enableClientHacks name version replyto |
1619 | UnrecognizedQuery query -> do | 1622 | UnrecognizedQuery query -> do |
@@ -1635,6 +1638,9 @@ monitor sv params xmpp = do | |||
1635 | PresenceRequestSubscription {} -> do | 1638 | PresenceRequestSubscription {} -> do |
1636 | let fail = return () -- todo | 1639 | let fail = return () -- todo |
1637 | xmppPeerSubscriptionRequest xmpp fail k stanza replyto | 1640 | xmppPeerSubscriptionRequest xmpp fail k stanza replyto |
1641 | PresenceInformSubscription {} -> do | ||
1642 | let fail = return () -- todo | ||
1643 | xmppPeerInformSubscription xmpp fail k stanza | ||
1638 | _ -> return () | 1644 | _ -> return () |
1639 | _ -> return () | 1645 | _ -> return () |
1640 | let deliver replyto = do | 1646 | let deliver replyto = do |