1 files changed, 8 insertions, 2 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 5487e532..3899a258 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -414,6 +414,7 @@ informClientPresence state k stanza = do
         writeTVar (clientStatus cstate) $ Just dup
 
 answerProbe state k stanza chan = do
+    putStrLn $ "answerProbe! " ++ show (stanzaType stanza)
     ktc <- atomically $ readTVar (keyToChan state)
     replies <- runTraversableT $ do
         let liftMaybe = liftT . maybeToList
@@ -427,8 +428,13 @@ answerProbe state k stanza chan = do
         cbu <- lift . atomically $ readTVar (clientsByUser state)
         lpres <- liftMaybe $ Map.lookup u cbu
         clientState <- liftT $ Map.elems (networkClients lpres)
-        mstanza <- lift $ atomically (readTVar (clientStatus clientState))
-        liftMaybe mstanza
+        stanza <- liftIOMaybe $ atomically (readTVar (clientStatus clientState))
+        -- TODO: from address!!
+        let jid = unsplitJID (Just $ clientUser clientState
+                             , ch
+                             ,Just $ clientResource clientState)
+            ch = addrToText (auxAddr conn)
+        return stanza { stanzaFrom = Just jid }
     forM_ replies $ \reply -> do
         sendModifiedStanzaToPeer reply chan
     -- TODO: if null replies, send offline message