From 99ae191859d14f06b531801eac386686605d333e Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 1 Jul 2013 19:20:06 -0400
Subject: track remote useres in the remoteUsers map.

---
 Presence/XMPP.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Presence/XMPP.hs')

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
-- 
cgit v1.2.3