XMPP: Type-checking on various uses of SockAddr.

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 8e34d4fe..7aa5cd2c 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1537,7 +1537,7 @@ newXmmpSink session@(Tox.NCrypto { ncOutgoingQueue = outGoingQVar, ncPacketQueue
 -- order to set up translating conduits that simulate a remote XMPP server.
 announceToxJabberPeer :: PublicKey  -- ^ This node's long-term user key.
                       -> PublicKey -- ^ Remote tox node's long-term user key.
-                      -> TChan ((ConnectionKey,ConnectionData), Tcp.ConnectionEvent XML.Event)
+                      -> TChan ((SockAddr,ConnectionData), Tcp.ConnectionEvent XML.Event)
                       -> SockAddr -- ^ Local bind address for incoming Tox packets.
                       -> SockAddr -- ^ Remote address for this connection.
                       -> STM Bool
@@ -1547,7 +1547,7 @@ announceToxJabberPeer :: PublicKey  -- ^ This node's long-term user key.
 announceToxJabberPeer me them echan laddr saddr pingflag tsrc tsnk
     = do
      atomically $ writeTChan echan
-        ( (PeerKey saddr, ConnectionData laddr XMPPServer.Tox )
+        ( (saddr, ConnectionData (Left (Local laddr)) XMPPServer.Tox )
         , Tcp.Connection pingflag xsrc xsnk )
      return Nothing
  where