track remote useres in the remoteUsers map.

1 files changed, 1 insertions, 2 deletions

diff --git a/Presence/XMPP.hs b/Presence/XMPP.hs
index 9dfee14e..3d20a9b8 100644
--- a/Presence/XMPP.hs
+++ b/Presence/XMPP.hs
@@ -4,6 +4,7 @@
 {-# LANGUAGE ViewPatterns        #-}
 module XMPP 
     ( module XMPPTypes
+    , module SocketLike
     , listenForXmppClients
     , listenForRemotePeers
     , seekRemotePeers
@@ -675,8 +676,6 @@ connect' addr port = do
     -}
     let getport (SockAddrInet port _) = port
         getport (SockAddrInet6 port _ _ _) = port
-    let withPort (SockAddrInet _ a)      port = SockAddrInet (toEnum port) a
-        withPort (SockAddrInet6 _ a b c) port = SockAddrInet6 (toEnum port) a b c
     let doException (SomeException e) = do
             L.putStrLn $  "\nFailed to reach "<++> showPeer (RemotePeer addr) <++> " on port "<++>bshow port<++>": " <++> bshow e
             return Nothing