1 files changed, 2 insertions, 2 deletions

diff --git a/dht/src/Data/Tox/Msg.hs b/dht/src/Data/Tox/Msg.hs
index 4398586f..3188d86f 100644
--- a/dht/src/Data/Tox/Msg.hs
+++ b/dht/src/Data/Tox/Msg.hs
@@ -259,13 +259,13 @@ instance Serialize ChatID where
 
 instance Read ChatID where
     readsPrec _ s
-        | Right bs <- parseToken32 s
+        | Right bs <- parseBase64Key256 s
         , CryptoPassed ed <- Ed25519.publicKey bs
                     = [ (ChatID ed, Prelude.drop 43 s) ]
         | otherwise = []
 
 instance Show ChatID where
-    show (ChatID ed) = showToken32 ed
+    show (ChatID ed) = showBase64Key256 ed
 
 data InviteType = GroupInvite { groupName :: Text }
                 | AcceptedInvite