atox: subProcess exe launch from dhtd netcrypto command

1 files changed, 17 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index fabbf21d..d8ba19eb 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -241,6 +241,23 @@ data ViewSnapshot = ViewSnapshot
         , vGroups      :: Map.Map GroupChatId (Set.Set SockAddr)
         }
 
+instance Serialize ViewSnapshot where
+    get = ViewSnapshot <$> get <*> get <*> get <*> get <*> get
+                       <*> get <*> get <*> get <*> get <*> get <*> (pure Map.empty)
+    put (ViewSnapshot nick  status  statusmsg typing nospam
+                      nick' status' statusmsg' typing' nospam' grps)
+        = do
+        put nick
+        put status
+        put statusmsg
+        put typing
+        put nospam
+        put nick'
+        put status'
+        put statusmsg'
+        put typing'
+        put nospam'
+
 -- | Take snapshot of SessionView
 --
 -- This is useful for storing the context of