Expire old tox key announcements after 5 minutes.

1 files changed, 1 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index b845f9df..369650f9 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1165,7 +1165,7 @@ clientSession s@Session{..} sock cnum h = do
                         keydb <- atomically $ readTVar toxkeys
                         now <- getPOSIXTime
                         let entries = map mkentry $ PSQ.toList (Tox.keyByAge keydb)
-                            mkentry (k :-> Down tm) = [ show cnt, show k, show (now - tm) ]
+                            mkentry (k :-> tm) = [ show cnt, show k, show (now - tm) ]
                                 where Just (_,(cnt,_)) = MM.lookup' k (Tox.keyAssoc keydb)
                         hPutClient h $ showColumns entries