From d8797823bb3cbf91eabad48c400632dcecfec245 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Wed, 28 Nov 2018 22:19:33 -0500 Subject: Use getPublicKey/putPublicKey more liberally. --- src/Network/Tox/DHT/Transport.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src/Network/Tox/DHT') diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs index e784ec90..b9b63165 100644 --- a/src/Network/Tox/DHT/Transport.hs +++ b/src/Network/Tox/DHT/Transport.hs @@ -382,13 +382,11 @@ instance Sized CookieData where size = ConstSize 72 instance Serialize CookieData where - get = CookieData <$> get - <*> (id2key <$> get) - <*> (id2key <$> get) + get = CookieData <$> get <*> getPublicKey <*> getPublicKey put (CookieData tm userkey dhtkey) = do put tm - put (key2id userkey) - put (key2id dhtkey) + putPublicKey userkey + putPublicKey userkey instance Sized CookieRequest where size = ConstSize 64 -- 32 byte key + 32 byte padding -- cgit v1.2.3