Revised interface to addHandler:

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

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs
index c0413322..c9abf003 100644
--- a/src/Network/BitTorrent/MainlineDHT.hs
+++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -583,8 +583,11 @@ newClient swarms addr = do
         gen :: Word16 -> (TransactionId, Word16)
         gen cnt = (TransactionId $ S.encode cnt, cnt+1)
 
+        ignoreParseError :: String -> IO ()
+        ignoreParseError _ = return ()
+
         client = Client
-            { clientNet           = addHandler ignoreErrors (handleMessage client) net
+            { clientNet           = addHandler ignoreParseError (handleMessage client) net
             , clientDispatcher    = dispatch
             , clientErrorReporter = ignoreErrors -- printErrors stderr
             , clientPending       = map_var