1 files changed, 10 insertions, 11 deletions

diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index 6adfb9a9..084a9978 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -174,7 +174,6 @@ newClient drg net classify selfAddr handlers modifytbl modifynet = do
                 , lookupHandler   = handlers -- var
                 , tableMethods    = modifytbl tbl
                 }
-        eprinter = logErrors -- printErrors stderr
         mkclient :: (TransactionMethods
                          (g, pending) DHT.TransactionId addr x,
                        TVar (g, pending))
@@ -184,9 +183,9 @@ newClient drg net classify selfAddr handlers modifytbl modifynet = do
                       -> ClientA String meth DHT.TransactionId addr x x
         mkclient (tbl,var) handlers =
             let client = Client
-                    { clientNet           = addHandler (reportParseError eprinter) (handleMessage client) $ modifynet client net
+                    { clientNet           = addHandler (handleMessage client) $ modifynet client net
                     , clientDispatcher    = dispatch tbl var (handlers client) client
-                    , clientErrorReporter = eprinter
+                    , clientErrorReporter = logErrors
                     , clientPending       = var
                     , clientAddress       = selfAddr
                     , clientResponseId    = genNonce24 var
@@ -412,8 +411,8 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
         { toxDHT            = dhtclient
         , toxOnion          = onionclient
         , toxToRoute        = onInbound (updateContactInfo roster) dtacrypt
-        , toxCrypto         = addHandler (dput XMisc) (sessionHandler sessions) cryptonet
-        , toxHandshakes     = addHandler (dput XMisc) (handshakeH sparams) handshakes
+        , toxCrypto         = addHandler (sessionHandler sessions) cryptonet
+        , toxHandshakes     = addHandler (handshakeH sparams) handshakes
         , toxHandshakeCache = hscache
         , toxCryptoKeys     = crypto
         , toxRouting        = mkrouting dhtclient
@@ -467,13 +466,13 @@ forkTox :: Tox extra
             -> Bool -- tcp
             -> IO (IO (), [NodeInfo] -> [NodeInfo] -> IO (), [NodeInfo] -> [NodeInfo] -> IO ())
 forkTox tox with_avahi with_tcp = do
-    quitHs      <- forkListener "toxHandshakes" (toxHandshakes tox)
-    quitToRoute <- forkListener "toxToRoute" (toxToRoute tox)
-    quitOnion   <- forkListener "toxOnion" (clientNet $ toxOnion tox)
-    quitDHT     <- forkListener "toxDHT" (clientNet $ toxDHT tox)
-    quitNC      <- forkListener "toxCrypto" (toxCrypto tox)
+    quitHs      <- forkListener "toxHandshakes" (dput XMan . mappend "hs-parse: ") (toxHandshakes tox)
+    quitToRoute <- forkListener "toxToRoute" (dput XOnion . mappend "dta-parse: ") (toxToRoute tox)
+    quitOnion   <- forkListener "toxOnion" (dput XOnion . mappend "onion-parse: ") (clientNet $ toxOnion tox)
+    quitDHT     <- forkListener "toxDHT" (dput XDHT . mappend "dht-parse: ") (clientNet $ toxDHT tox)
+    quitNC      <- forkListener "toxCrypto" (dput XNetCrypto . mappend "nc-parse: ") (toxCrypto tox)
     quitTCP     <- if with_tcp
-                    then forkListener "relay-client" (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox)
+                    then forkListener "relay-client" (dput XTCP . mappend "tcp-parse: ") (clientNet $ tcpClient $ tcpKademliaClient $ toxOnionRoutes tox)
                     else return $ return ()
     refresher4 <- forkPollForRefresh (DHT.refresher4 $ toxRouting tox)
     refresher6 <- forkPollForRefresh (DHT.refresher6 $ toxRouting tox)