remove eroneous requirement of "from" attribute on client announced

presence.

1 files changed, 4 insertions, 2 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 756d300a..6c802fb4 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -362,12 +362,14 @@ handleIQGet session cmdChan tag = do
 handleClientPresence session stanza = do
     -- online (Available or Away)
     let log  = liftIO . debugL . ("(C) " <++>)
-    withJust (lookupAttrib "from" (tagAttrs stanza)) $ \jid -> do
+    log $ "handleClientPresence "<++>bshow stanza
+    jid <- liftIO $ getJID session
     -- cjid <- liftIO $ parseAddressJID (textToByteString jid)
     let parseChildren stat = do
             child <- nextElement
+            log $ " child: "<++> bshow child
             case child of
-                Just tag | tagName tag=="{jabber:server}show"
+                Just tag | tagName tag=="{jabber:client}show"
                                       -> fmap toStat (lift content)
                 Just tag | otherwise  -> parseChildren stat
                 Nothing -> return stat