diff options
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r-- | src/Network/Tox.hs | 4 |
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 | |||
204 | eprinter = printErrors stderr | 204 | eprinter = printErrors stderr |
205 | mkclient (tbl,var) handlers = | 205 | mkclient (tbl,var) handlers = |
206 | let client = Client | 206 | let client = Client |
207 | { clientNet = addHandler eprinter (handleMessage client) $ modifynet client net | 207 | { clientNet = addHandler (reportParseError eprinter) (handleMessage client) $ modifynet client net |
208 | , clientDispatcher = dispatch tbl var handlers client | 208 | , clientDispatcher = dispatch tbl var handlers client |
209 | , clientErrorReporter = eprinter { reportTimeout = reportTimeout ignoreErrors } | 209 | , clientErrorReporter = eprinter { reportTimeout = reportTimeout ignoreErrors } |
210 | , clientPending = var | 210 | , clientPending = var |
@@ -314,7 +314,7 @@ newTox keydb addr = do | |||
314 | { toxDHT = dhtclient | 314 | { toxDHT = dhtclient |
315 | , toxOnion = onionclient | 315 | , toxOnion = onionclient |
316 | , toxToRoute = onInbound (updateRoster roster) dtacrypt | 316 | , toxToRoute = onInbound (updateRoster roster) dtacrypt |
317 | , toxCrypto = addHandler (error "printErrors stderr") (cryptoNetHandler sessionsState) cryptonet | 317 | , toxCrypto = addHandler (reportParseError $ printErrors stderr) (cryptoNetHandler sessionsState) cryptonet |
318 | , toxCryptoKeys = crypto | 318 | , toxCryptoKeys = crypto |
319 | , toxRouting = routing | 319 | , toxRouting = routing |
320 | , toxTokens = toks | 320 | , toxTokens = toks |