1 files changed, 17 insertions, 0 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index c4e4d7f6..fb53c2fb 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -331,6 +331,11 @@ iq_service_unavailable host iq_id mjid req =
     , EventEndElement "{jabber:client}iq"
     ]
 
+getRoster session = do
+    budies <- getMyBuddies session
+    subscribers <- getMySubscribers session
+    return ([]::[Event]) -- TODO
+
 handleIQGet session cmdChan tag = do
     withJust (lookupAttrib "id" (tagAttrs tag)) $ \stanza_id -> do
     whenJust nextElement $ \child -> do
@@ -356,6 +361,18 @@ handleIQGet session cmdChan tag = do
                       , EventEndElement "{jabber:client}iq"
                       ]
             atomically . writeTChan cmdChan . Send $ pong
+        "{jabber:iq:roster}query" -> liftIO $ do
+            putStrLn $ "REQUESTED ROSTER " ++ show tag
+            -- REQUESTED ROSTER EventBeginElement 
+            -- (Name {nameLocalName = "iq", nameNamespace = Just "jabber:client", namePrefix = Nothing}) 
+            -- [(Name { nameLocalName = "id"
+            --        , nameNamespace = Nothing
+            --        , namePrefix = Nothing},
+            --  [ContentText "32a337c2-7b22-45b6-9d21-15ded0d079ec"])
+            -- ,(Name {nameLocalName = "type", nameNamespace = Nothing, namePrefix = Nothing},
+            --  [ContentText "get"])]
+            roster <- getRoster session
+            atomically . writeTChan cmdChan . Send $ roster
         req -> unhandledGet req