From 563125c8dc8c73b6382708637a12c72110cd0662 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 11 Jul 2013 15:57:30 -0400
Subject: roster updates and presence notification in case of a new
 subscription.

---
 Presence/XMPPTypes.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Presence/XMPPTypes.hs')

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
-- 
cgit v1.2.3