1 files changed, 10 insertions, 0 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index a44f7fb1..84da2fed 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -41,6 +41,15 @@ import ByteStringOperators
 import SocketLike
 import GetHostByAddr
 import Data.Maybe (listToMaybe)
+import Data.XML.Types as XML (Event)
+
+data ClientCommands = 
+    Send [XML.Event] 
+    | BoundToResource
+    | InterestedInRoster
+    | QuitThread 
+ deriving Prelude.Show
+
 
 class JabberClientSession session where
     data XMPPClass session
@@ -50,6 +59,7 @@ class JabberClientSession session where
     closeSession :: session -> IO ()
     subscribe :: session -> Maybe JID -> IO (TChan Presence)
     subscribeToRoster :: session -> IO (TChan RosterEvent)
+    clientChannel :: session -> TChan ClientCommands
     forCachedPresence :: session -> (Presence -> IO ()) -> IO ()
     sendPending :: session -> IO ()
     getMyBuddies       :: session -> IO [ByteString]