roster updates and presence notification in case of a new subscription.

1 files changed, 5 insertions, 1 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 6d00d509..0e98a77b 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -57,6 +57,7 @@ class JabberClientSession session where
     getMySolicited     :: session -> IO [ByteString]
     addSolicited :: session -> ByteString -> JID ->  IO ()
     isSubscribed :: session -> ByteString -> IO Bool
+    isBuddy      :: session -> ByteString -> IO Bool
     approveSubscriber :: session -> ByteString -> IO ()
 
 class JabberPeerSession session where
@@ -94,7 +95,10 @@ data RosterEvent = RequestedSubscription
                  | NewBuddy 
                     {- user: -} ByteString
                     {- contact: -} ByteString
-                 | PendingBuddy
+                 | PendingSubscriber
+                    {- user: -} ByteString
+                    {- contact: -} ByteString
+                 | NewSubscriber 
                     {- user: -} ByteString
                     {- contact: -} ByteString
  deriving Prelude.Show