Send roster push events to client in case of subscription requests.

1 files changed, 6 insertions, 0 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 301f19fd..2bba8614 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -38,6 +38,7 @@ class JabberClientSession session where
     getJID       :: session -> IO JID
     closeSession :: session -> IO ()
     subscribe :: session -> Maybe JID -> IO (TChan Presence)
+    subscribeToRoster :: session -> IO (TChan RosterEvent)
     forCachedPresence :: session -> (Presence -> IO ()) -> IO ()
     getMyBuddies       :: session -> IO [ByteString]
     getMySubscribers   :: session -> IO [ByteString]
@@ -72,6 +73,11 @@ data JabberShow = Offline
 data Presence = Presence JID JabberShow
  deriving Prelude.Show
 
+data RosterEvent = RequestedSubscription 
+                    {- user: -} ByteString 
+                    {- contact: -} ByteString
+ deriving Prelude.Show
+
 data Peer = LocalHost | RemotePeer SockAddr
   deriving (Eq,Prelude.Show)