diff options
| author | joe <joe@jerkface.net> | 2017-10-27 20:58:24 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-27 20:58:24 -0400 |
| commit | 308f1e47e6a2e79f2f290e94cd671530633511cd (patch) | |
| tree | 56e26b6d6c4412db544692dd6f8179959f1c631f | |
| parent | e864406381f10370907afaa1054dcd4370466bf3 (diff) | |
Added missing pattern for Size of Hardening packet.
| -rw-r--r-- | src/Network/Tox/DHT/Transport.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs index 6009afa2..bebb8ae7 100644 --- a/src/Network/Tox/DHT/Transport.hs +++ b/src/Network/Tox/DHT/Transport.hs | |||
| @@ -194,6 +194,7 @@ instance Sized DHTRequest where | |||
| 194 | + case size of | 194 | + case size of |
| 195 | ConstSize n -> n | 195 | ConstSize n -> n |
| 196 | VarSize f -> f (wrapData wrap) | 196 | VarSize f -> f (wrapData wrap) |
| 197 | Hardening -> 1{-typ-} + 384 | ||
| 197 | 198 | ||
| 198 | instance Serialize DHTRequest where | 199 | instance Serialize DHTRequest where |
| 199 | get = do | 200 | get = do |