Made "dhtkey" and "friend" automated with "a" command.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index 5c4544ca..23fd369b 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -805,6 +805,17 @@ instance Show Rendezvous where
           . (':' :)
           . showsPrec d ni
 
+instance Read Rendezvous where
+    readsPrec d = RP.readP_to_S $ do
+        rkstr <- RP.munch (/=':')
+        RP.char ':'
+        nistr <- RP.munch (const True)
+        return Rendezvous
+                { rendezvousKey = id2key $ read rkstr
+                , rendezvousNode = read nistr
+                }
+
+
 data AnnouncedRendezvous = AnnouncedRendezvous
     { remoteUserKey :: PublicKey
     , rendezvous :: Rendezvous