ChatID is a type alias for an Ed25519 signature key.

1 files changed, 12 insertions, 2 deletions

diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index 97faa942..56ddf03c 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -37,6 +37,8 @@ module Network.Tox.NodeId
     , verifyChecksum
     , ToxContact(..)
     , ToxProgress(..)
+    , parseToken32
+    , showToken32
     ) where
 
 import Control.Applicative
@@ -166,18 +168,26 @@ nmtoken64 True  '+' = '.'
 nmtoken64 True  '/' = '-'
 nmtoken64 _     c   = c
 
+-- | Parse 43-digit base64 token into 32-byte bytestring.
+parseToken32 :: String -> Either String ByteString
+parseToken32 str = fmap (BA.drop 1) $ Base64.decode $ C8.pack $ 'A':map (nmtoken64 False) (take 43 str)
+
+-- | Encode 32-byte bytestring as 43-digit base64 token.
+showToken32 :: ByteArrayAccess bin => bin -> String
+showToken32 bs = map (nmtoken64 True) $ C8.unpack $ BA.drop 1 $ Base64.encode $ BA.cons 0 $ BA.convert bs
+
 instance Read NodeId where
     readsPrec _ str
         | (bs,_) <- Base16.decode (C8.pack $ take 64 str)
         , CryptoPassed pub <- publicKey bs -- B.length bs == 32
                     = [ (key2id pub, drop (2 * B.length bs) str) ]
-        | Right bs <- fmap (BA.drop 1) $ Base64.decode $ C8.pack $ 'A':map (nmtoken64 False) (take 43 str)
+        | Right bs <- parseToken32 str
         , CryptoPassed pub <- publicKey bs -- B.length bs == 32
                     = [ (key2id pub, drop 43 str) ]
         | otherwise = []
 
 instance Show NodeId where
-    show nid = map (nmtoken64 True) $ C8.unpack $ BA.drop 1 $ Base64.encode $ BA.cons 0 $ BA.convert $ id2key nid
+    show nid = showToken32 $ id2key nid
 
 instance S.Serialize NodeId where
     get = key2id <$> getPublicKey