diff options
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 2 |
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) |