atox: subProcess exe launch from dhtd netcrypto command

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/Tox/NodeId.hs b/src/Network/Tox/NodeId.hs
index f9cf22a8..e3c6fb36 100644
--- a/src/Network/Tox/NodeId.hs
+++ b/src/Network/Tox/NodeId.hs
@@ -498,6 +498,12 @@ instance OnionPacket 3 where mkOnion = OnionResponse3
 data NoSpam = NoSpam !Word32 !(Maybe Word16)
  deriving (Eq,Ord,Show)
 
+instance Serialize NoSpam where
+    get = NoSpam <$> get <*> get
+    put (NoSpam w32 w16) = do
+        put w32
+        put w16
+
 -- Utilizes Data.Serialize format for Word32 nospam and Word16 checksum.
 instance Read NoSpam where
     readsPrec d s = case break isSpace s of