1 files changed, 5 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 553146f7..fdbe7719 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1369,12 +1369,12 @@ ioToSource !action !onEOF = liftIO action >>= \case
                         ioToSource action onEOF
 
 newXmmpSink :: Tox.NetCryptoSession -> C.Sink (Flush Tox.CryptoMessage) IO ()
-newXmmpSink session@(Tox.NCrypto { ncOutgoingQueue, ncPacketQueue }) = C.awaitForever $ \flush_cyptomessage -> do
+newXmmpSink session@(Tox.NCrypto { ncOutgoingQueue = Tox.HaveHandshake outq, ncPacketQueue }) = C.awaitForever $ \flush_cyptomessage -> do
     let sendit :: Tox.NetCryptoSession -> Flush Tox.CryptoMessage -> IO ()
         sendit session (Chunk msg) = do
-            extra <- readyOutGoing ncOutgoingQueue
+            extra <- readyOutGoing outq
             r <- atomically $ do
-                rTry <- tryAppendQueueOutgoing extra ncOutgoingQueue msg
+                rTry <- tryAppendQueueOutgoing extra outq msg
                 case rTry of
                     OGFull -> retry
                     OGSuccess -> return OGSuccess
@@ -1899,7 +1899,8 @@ main = runResourceT $ liftBaseWith $ \resT -> do
                 xmppSrc          = ioToSource receiveCrypto onEOF
                 xmppSink         = newXmmpSink netcrypto
             forM_ msv $ \sv -> do
-                announceToxJabberPeer (Tox.ncTheirPublicKey netcrypto) (xmppEventChannel sv) addrTox (Tox.ncSockAddr netcrypto) pingflag xmppSrc xmppSink
+                let Tox.HaveDHTKey saddr = Tox.ncSockAddr netcrypto
+                announceToxJabberPeer (Tox.ncTheirPublicKey netcrypto) (xmppEventChannel sv) addrTox saddr pingflag xmppSrc xmppSink
             -- TODO: Update toxContactInfo, connected.
             atomically $ do
                 supply <- readTVar (Tox.listenerIDSupply netCryptoSessionsState)