From 308f1e47e6a2e79f2f290e94cd671530633511cd Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 27 Oct 2017 20:58:24 -0400 Subject: Added missing pattern for Size of Hardening packet. --- src/Network/Tox/DHT/Transport.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Network/Tox/DHT') 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 + case size of ConstSize n -> n VarSize f -> f (wrapData wrap) + Hardening -> 1{-typ-} + 384 instance Serialize DHTRequest where get = do -- cgit v1.2.3