Multi Transports: TCP for DHT/Cookies/Handshakes.

1 files changed, 2 insertions, 1 deletions

diff --git a/dht/ToxChat.hs b/dht/ToxChat.hs
index fba5d33b..7ac89867 100644
--- a/dht/ToxChat.hs
+++ b/dht/ToxChat.hs
@@ -25,6 +25,7 @@ import GHC.Conc                  (labelThread)
 #endif
 
 import Chat
+import ConnectionKey
 import Data.Tox.Msg
 import DebugTag
 import DPut
@@ -100,7 +101,7 @@ forkToxChat muc = do
         { rememberInvite = \c i jid inv -> do
             dput XJabber $ "remember invite " ++ show (T.pack $ show $ inviteChatID inv, i, jid )
             atomically $ do
-              modifyTVar' rs $ Map.alter (\d -> Just $ RoomData (room =<< (d:: Maybe (RoomData _)))
+              modifyTVar' rs $ Map.alter (\d -> Just $ RoomData (room =<< (d:: Maybe (RoomData ClientAddress)))
                                                                 ( ((c,i,jid,inv) :) $ maybe [] pendingInvites d))
                                        (T.pack $ map toLower $ show $ inviteChatID inv)
         , lookupInvite = \_ -> return Nothing