1 files changed, 3 insertions, 16 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 5c5cbaef..e15b10cc 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -321,35 +321,22 @@ fromClient session cmdChan = doNestingXML $ do
     log "begin-doc"
     withXML $ \xml -> do
     withJust (elementAttrs "stream" xml) $ \stream_attrs -> do
-    log $ "stream " <++> bshow stream_attrs
+    log $ "stream atributes: " <++> bshow stream_attrs
     host <- liftIO $ do
         jid <- getJID session
         names <- getNamesForPeer (peer jid)
         return (S.decodeUtf8 . head $ names)
     send $ greet host
     
-{-
-    fix $ \loop -> do
-      xml <- mawait
-      log $ bshow xml
-      let isIQ n       = n=="{jabber:client}iq"
-      case xml of
-        _ | eventIsEndElement xml -> return ()
-        tag@(EventBeginElement name attrs) | isIQ name -> doIQ session cmdChan tag >> loop
-
-        tag@(EventBeginElement _ _) -> do
-             xs <- gatherElement tag Seq.empty
-             prettyPrint "client-in: ignoring..." (toList xs)
-             loop
-        _ -> loop
--}
     fix $ \loop -> do
         whenJust nextElement $ \stanza -> do
             stanza_lvl <- nesting
+
             let unhandledStanza = liftIO $ putStrLn ("ignoring stanza: "++show stanza)
             case () of
              _ | stanza `isIQOf` iqTypeSet -> handleIQSet session cmdChan stanza
              _ | otherwise                 -> unhandledStanza
+
             awaitCloser stanza_lvl
             loop