Revised interface to addHandler:

  Pass only a parse-error handler, not bunch of unneeded methods.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 4cc762c4..79bd68ac 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -204,7 +204,7 @@ newClient drg net classify selfAddr handlers modifytbl modifynet = do
         eprinter = printErrors stderr
         mkclient (tbl,var) handlers =
             let client = Client
-                    { clientNet           = addHandler eprinter (handleMessage client) $ modifynet client net
+                    { clientNet           = addHandler (reportParseError eprinter) (handleMessage client) $ modifynet client net
                     , clientDispatcher    = dispatch tbl var handlers client
                     , clientErrorReporter = eprinter { reportTimeout = reportTimeout ignoreErrors }
                     , clientPending       = var
@@ -314,7 +314,7 @@ newTox keydb addr = do
         { toxDHT = dhtclient
         , toxOnion = onionclient
         , toxToRoute = onInbound (updateRoster roster) dtacrypt
-        , toxCrypto = addHandler (error "printErrors stderr") (cryptoNetHandler sessionsState) cryptonet
+        , toxCrypto = addHandler (reportParseError $ printErrors stderr) (cryptoNetHandler sessionsState) cryptonet
         , toxCryptoKeys = crypto
         , toxRouting = routing
         , toxTokens = toks