diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-28 22:19:33 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-12-16 14:08:26 -0500 |
| commit | d8797823bb3cbf91eabad48c400632dcecfec245 (patch) | |
| tree | 16fbe3de1231573789487d5ac175910679fbd682 /src/Network/Tox/DHT | |
| parent | 92fce0499c05c609cba423ea02f5c61aa33c6915 (diff) | |
Use getPublicKey/putPublicKey more liberally.
Diffstat (limited to 'src/Network/Tox/DHT')
| -rw-r--r-- | src/Network/Tox/DHT/Transport.hs | 8 |
1 files changed, 3 insertions, 5 deletions
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 | |||
| 382 | size = ConstSize 72 | 382 | size = ConstSize 72 |
| 383 | 383 | ||
| 384 | instance Serialize CookieData where | 384 | instance Serialize CookieData where |
| 385 | get = CookieData <$> get | 385 | get = CookieData <$> get <*> getPublicKey <*> getPublicKey |
| 386 | <*> (id2key <$> get) | ||
| 387 | <*> (id2key <$> get) | ||
| 388 | put (CookieData tm userkey dhtkey) = do | 386 | put (CookieData tm userkey dhtkey) = do |
| 389 | put tm | 387 | put tm |
| 390 | put (key2id userkey) | 388 | putPublicKey userkey |
| 391 | put (key2id dhtkey) | 389 | putPublicKey userkey |
| 392 | 390 | ||
| 393 | instance Sized CookieRequest where | 391 | instance Sized CookieRequest where |
| 394 | size = ConstSize 64 -- 32 byte key + 32 byte padding | 392 | size = ConstSize 64 -- 32 byte key + 32 byte padding |