1 files changed, 6 insertions, 3 deletions

diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index 408b12d2..39377733 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -327,13 +327,16 @@ gotDhtPubkey theirDhtKey tx theirKey = do
       , rumoredAddress    = assume akey
       }
 
+    showak :: AnnounceKey -> String
+    showak k = unpackAnnounceKey (txAnnouncer tx) k
+
     assume :: AnnounceKey -> POSIXTime -> SockAddr -> NodeInfo -> STM ()
     assume akey time addr ni =
-      tput XNodeinfoSearch $ show ("rumor", akey, time, addr, ni)
+      tput XNodeinfoSearch $ show ("rumor", showak akey, time, addr, ni)
 
     observe :: AnnounceKey -> POSIXTime -> NodeInfo -> STM ()
     observe akey time ni@(nodeAddr -> addr) = do
-      tput XNodeinfoSearch $ show ("observation", akey, time, addr)
+      tput XNodeinfoSearch $ show ("observation", showak akey, time, addr)
       setContactAddr time theirKey ni (txAccount tx)
 
 gotAddr :: NodeInfo -> ToxToXMPP -> PublicKey -> IO ()
@@ -408,7 +411,7 @@ gotAddr' ni@(nodeAddr -> addr) tx theirKey theirDhtKey = atomically blee
     getCookie ni isActive getC ann akey now = getCookieAgain
       where
         getCookieAgain = do
-          tput XNodeinfoSearch $ show ("getCookieAgain", akey)
+          tput XNodeinfoSearch $ show ("getCookieAgain", unpackAnnounceKey ann akey)
           mbContact  <- getC
           case mbContact of
             Nothing      -> return $ return ()