netcrypto bug fixes

1 files changed, 2 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 36a9fa68..f6c57130 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1722,7 +1722,8 @@ main = runResourceT $ liftBaseWith $ \resT -> do
             let sockAddr = Tox.ncSockAddr netcrypto
                 pubKey   = Tox.ncTheirPublicKey netcrypto
             tmchan <- atomically newTMChan
-            let Just pingMachine = Tox.ncPingMachine netcrypto
+            mbPingMaching <- atomically $ readTVar (Tox.ncPingMachine netcrypto)
+            let Just pingMachine = mbPingMaching
                 pingflag         = readTVar (pingFlag pingMachine)
                 receiveCrypto    = atomically $ readTMChan tmchan
                 onEOF            = return () -- TODO: Update toxContactInfo, not connected.