diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/dhtd.hs | 3 |
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 | |||
| 1722 | let sockAddr = Tox.ncSockAddr netcrypto | 1722 | let sockAddr = Tox.ncSockAddr netcrypto |
| 1723 | pubKey = Tox.ncTheirPublicKey netcrypto | 1723 | pubKey = Tox.ncTheirPublicKey netcrypto |
| 1724 | tmchan <- atomically newTMChan | 1724 | tmchan <- atomically newTMChan |
| 1725 | let Just pingMachine = Tox.ncPingMachine netcrypto | 1725 | mbPingMaching <- atomically $ readTVar (Tox.ncPingMachine netcrypto) |
| 1726 | let Just pingMachine = mbPingMaching | ||
| 1726 | pingflag = readTVar (pingFlag pingMachine) | 1727 | pingflag = readTVar (pingFlag pingMachine) |
| 1727 | receiveCrypto = atomically $ readTMChan tmchan | 1728 | receiveCrypto = atomically $ readTMChan tmchan |
| 1728 | onEOF = return () -- TODO: Update toxContactInfo, not connected. | 1729 | onEOF = return () -- TODO: Update toxContactInfo, not connected. |