1 files changed, 6 insertions, 3 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 6e2a42c5..d0304170 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -257,15 +257,18 @@ newOnionClient :: DRG g =>
                                   DHT.TransactionId
                                   (Onion.OnionDestination RouteId)
                                   Onion.Message
-newOnionClient crypto net r toks keydb orouter map_var store load = Client
-    { clientNet = net
+newOnionClient crypto net r toks keydb orouter map_var store load = c
+ where
+  eprinter = logErrors
+  c = Client
+    { clientNet = addHandler (reportParseError eprinter) (handleMessage c) net
     , clientDispatcher = DispatchMethods
         { classifyInbound = Onion.classify
         , lookupHandler   = Onion.handlers net r toks keydb
         , tableMethods = hookQueries orouter DHT.transactionKey
                          $ transactionMethods' store load (contramap w64Key w64MapMethods) gen
         }
-    , clientErrorReporter = logErrors { reportTimeout = reportTimeout ignoreErrors }
+    , clientErrorReporter = eprinter { reportTimeout = reportTimeout ignoreErrors }
     , clientPending = map_var
     , clientAddress = getOnionAlias crypto $ R.thisNode <$> readTVar (DHT.routing4 r)
     , clientResponseId = genNonce24 map_var