summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 32fb8060..0b208362 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -458,7 +458,7 @@ clientSession s@Session{..} sock cnum h = do
458 ps <- atomically $ Peers.lookup ih <$> readTVar (Mainline.contactInfo swarms) 458 ps <- atomically $ Peers.lookup ih <$> readTVar (Mainline.contactInfo swarms)
459 hPutClient h $ showReport $ map (((,) "") . show . pPrint) ps 459 hPutClient h $ showReport $ map (((,) "") . show . pPrint) ps
460 Left er -> hPutClient h er 460 Left er -> hPutClient h er
461 ("keys", s) -> cmd0 $ do 461 ("toxids", s) -> cmd0 $ do
462 keydb <- atomically $ readTVar toxkeys 462 keydb <- atomically $ readTVar toxkeys
463 now <- getPOSIXTime 463 now <- getPOSIXTime
464 let entries = map mkentry $ PSQ.toList (Tox.keyByAge keydb) 464 let entries = map mkentry $ PSQ.toList (Tox.keyByAge keydb)