Fixed handshake behavior

The handshake code would flood the network with interminable handshakes.

1 files changed, 4 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index c03df3cc..9b5abb22 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1065,7 +1065,7 @@ clientSession s@Session{..} sock cnum h = do
                         rs <- atomically $ do
                             as <- scheduleToList announcer
                             forM (as) $ \(k,ptm,item) -> do
-                                kstr <- unpackAnnounceKey announcer k
+                                let kstr = unpackAnnounceKey announcer k
                                 return [ if ptm==0 then "now"
                                                    else show (ptm - now)
                                        , show (itemStatusNum item)
@@ -1124,7 +1124,7 @@ clientSession s@Session{..} sock cnum h = do
                                 -- return $ hPutClient h "Type matches."
                                 dta <- either (const Nothing) Just $ announceParseData dtastr
                                 return $ do
-                                    akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr)
+                                    let akey = packAnnounceKey announcer (method ++ ":" ++ dtastr)
                                     doitR op announcer
                                             akey
                                             (AnnounceMethod qsearch asend
@@ -1150,7 +1150,7 @@ clientSession s@Session{..} sock cnum h = do
                                 dta <- either (const Nothing) Just $ announceParseData dtastr
                                 pub <- selectedKey
                                 return $ do
-                                    akey <- atomically $ packAnnounceKey announcer (method ++ ":" ++ dtastr)
+                                    let akey = packAnnounceKey announcer (method ++ ":" ++ dtastr)
                                     doitL op announcer
                                             akey
                                             (SearchMethod qsearch (asend pub)
@@ -1352,7 +1352,7 @@ netcrypto (Just (DHT {..})) (Just mypubkey) h roster (Just tox) exes paramStr =
             Nothing -> hPutClient h "Unable to find account for selected key"
             Just account -> do
               now <- getPOSIXTime
-              atomically $ setContactAddr now their_pub their_addr account
+              atomically $ setContactAddr now their_pub (_fixme their_addr) account
               sessions <- Tox.netCrypto tox sec their_pub
               exeDir <- takeDirectory <$> getExecutablePath
               forM_ sessions $ \session -> do