1 files changed, 3 insertions, 1 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 464d3b1d..3a16aca5 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -26,7 +26,9 @@ main = runResourceT $ do
         XMPPServerParameters
         { xmppChooseResourceName = \k sock desired -> return $ "nobody@" <> hostname <> "/tty666"
         , xmppTellMyNameToClient = return hostname
-        , xmppTellMyNameToPeer = \addr -> return "localhost"
+        , xmppTellMyNameToPeer = \addr -> return $ addrToText addr
+        , xmppTellClientHisName = \k -> return $ "nobody@" <> hostname <> "/tty666"
+        , xmppTellPeerHisName = return . peerKeyToText
         , xmppNewConnection = \k outchan -> return ()
         , xmppEOF = \k -> return ()
         , xmppRosterBuddies = \k -> return []