1 files changed, 1 insertions, 1 deletions
diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 2ab59568..33db0c63 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -90,7 +90,7 @@ toxToXmpp laddr me theirhost = do
    awaitForever $ \toxmsg -> do
        xmppInstantMessage "jabber:server"
            (Just theirhost)      -- /from/
-            (Just $ unsplitJID (me_u,T.pack (show laddr),Nothing)) -- /to/ should match local address of this node.
+            (Just $ unsplitJID (Just me_u,T.pack (show laddr),Nothing)) -- /to/ should match local address of this node.
            (T.pack $ show $ msgID toxmsg)
 xmppInstantMessage :: Monad m => Text -> Maybe Text -> Maybe Text -> Text -> ConduitM i Event m ()

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs index 2ab59568..33db0c63 100644 --- a/ToxToXMPP.hs +++ b/ToxToXMPP.hs
@@ -90,7 +90,7 @@ toxToXmpp laddr me theirhost = do
90	awaitForever $ \toxmsg -> do	90	awaitForever $ \toxmsg -> do
91	xmppInstantMessage "jabber:server"	91	xmppInstantMessage "jabber:server"
92	(Just theirhost) -- /from/	92	(Just theirhost) -- /from/
93	(Just $ unsplitJID (me_u,T.pack (show laddr),Nothing)) -- /to/ should match local address of this node.	93	(Just $ unsplitJID (Just me_u,T.pack (show laddr),Nothing)) -- /to/ should match local address of this node.
94	(T.pack $ show $ msgID toxmsg)	94	(T.pack $ show $ msgID toxmsg)
95		95
96	xmppInstantMessage :: Monad m => Text -> Maybe Text -> Maybe Text -> Text -> ConduitM i Event m ()	96	xmppInstantMessage :: Monad m => Text -> Maybe Text -> Maybe Text -> Text -> ConduitM i Event m ()