1 files changed, 9 insertions, 0 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 0e98a77b..4507f5bf 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -59,6 +59,7 @@ class JabberClientSession session where
     isSubscribed :: session -> ByteString -> IO Bool
     isBuddy      :: session -> ByteString -> IO Bool
     approveSubscriber :: session -> ByteString -> IO ()
+    rejectSubscriber  :: session -> ByteString -> IO ()
 
 class JabberPeerSession session where
     data XMPPPeerClass session
@@ -72,6 +73,7 @@ class JabberPeerSession session where
     getBuddies       :: XMPPPeerClass session -> ByteString -> IO [ByteString]
     getSubscribers   :: XMPPPeerClass session -> ByteString -> IO [ByteString]
     processApproval  :: session -> ByteString -> JID -> IO ()
+    processRejection :: session -> ByteString -> JID -> IO ()
     processRequest   :: session -> ByteString -> JID -> IO ()
 
 -- | Jabber ID (JID) datatype
@@ -95,12 +97,18 @@ data RosterEvent = RequestedSubscription
                  | NewBuddy 
                     {- user: -} ByteString
                     {- contact: -} ByteString
+                 | RemovedBuddy 
+                    {- user: -} ByteString
+                    {- contact: -} ByteString
                  | PendingSubscriber
                     {- user: -} ByteString
                     {- contact: -} ByteString
                  | NewSubscriber 
                     {- user: -} ByteString
                     {- contact: -} ByteString
+                 | RejectSubscriber 
+                    {- user: -} ByteString
+                    {- contact: -} ByteString
  deriving Prelude.Show
 
 data Peer = LocalHost | RemotePeer SockAddr
@@ -220,6 +228,7 @@ data OutBoundMessage = OutBoundPresence Presence
                         | PresenceProbe JID JID
                         | Solicitation  JID JID
                         | Approval JID JID
+                        | Rejection JID JID
  deriving Prelude.Show
 
 getNamesForPeer :: Peer -> IO [S.ByteString]