Show rendezvous addresses for toxid search results.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Crypto/Tox.hs b/src/Crypto/Tox.hs
index 6660fc13..c8b3665f 100644
--- a/src/Crypto/Tox.hs
+++ b/src/Crypto/Tox.hs
@@ -57,6 +57,7 @@ import qualified Data.ByteArray         as BA
          ;import Data.ByteArray         as BA (ByteArrayAccess, Bytes)
 import Data.ByteString                  as B
 import qualified Data.ByteString.Base16 as Base16
+import qualified Data.ByteString.Base64 as Base64
 import qualified Data.ByteString.Char8  as C8
 import Data.Data
 import Data.Functor.Contravariant
@@ -252,6 +253,9 @@ quoted shows s = '"':shows ('"':s)
 bin2hex :: ByteArrayAccess bs => bs -> String
 bin2hex = C8.unpack . Base16.encode . BA.convert
 
+bin2base64 :: ByteArrayAccess bs => bs -> String
+bin2base64 = C8.unpack . Base64.encode . BA.convert
+
 instance Show Nonce24 where
     showsPrec d nonce = quoted (mappend $ bin2hex nonce)
 
@@ -288,7 +292,7 @@ newtype Nonce32 = Nonce32 ByteString
  deriving (Eq, Ord, ByteArrayAccess, Data)
 
 instance Show Nonce32 where
-    showsPrec d nonce = quoted (mappend $ bin2hex nonce)
+    showsPrec d nonce = mappend $ bin2base64 nonce
 
 instance Serialize Nonce32 where
     get = Nonce32 <$> getBytes 32