1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 317dc71e..3d5ac046 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -89,7 +89,7 @@ data PresenceState = PresenceState
     , remoteUsers :: TVar (Map Peer (RefCount,TVar (MultiMap JabberUser (JabberResource,JabberShow))))
 
     -- outGoingConnections  - a set of channels that may be used to send messages to remote peers.
-    , outGoingConnections :: TVar (Map Peer (TChan OutBoundMessage, ThreadId)) 
+    , outGoingConnections :: OutgoingConnections CachedMessages
     }
 
 
@@ -108,7 +108,7 @@ newPresenceState hostname = atomically $ do
     locals_greedy <- newEmptyTMVar
     rchan <- newEmptyTMVar
     remotes <- newTVar (Map.empty)
-    server_connections <- newServerConnections
+    server_connections <- newOutgoingConnections toPeer
     return $ PresenceState hostname tty us subs locals_greedy rchan remotes server_connections