diff options
author | Joe Crayne <joe@jerkface.net> | 2020-01-24 21:43:44 -0500 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-01-25 19:18:12 -0500 |
commit | 81489b13ee734bf5c618e1b826971725df8ed808 (patch) | |
tree | eb45f4806aee2b17394a153b7f99fa7b7287a8bf /dht/src/Network/BitTorrent | |
parent | 41b1a490c7b516c0feb0251fdb7723f045773f23 (diff) |
Moved parse-error printing from addHandler to forkListener.
Diffstat (limited to 'dht/src/Network/BitTorrent')
-rw-r--r-- | dht/src/Network/BitTorrent/MainlineDHT.hs | 5 | ||||
-rw-r--r-- | dht/src/Network/BitTorrent/Tracker/Transport.hs | 2 |
2 files changed, 2 insertions, 5 deletions
diff --git a/dht/src/Network/BitTorrent/MainlineDHT.hs b/dht/src/Network/BitTorrent/MainlineDHT.hs index a83cf740..705d7291 100644 --- a/dht/src/Network/BitTorrent/MainlineDHT.hs +++ b/dht/src/Network/BitTorrent/MainlineDHT.hs | |||
@@ -623,11 +623,8 @@ newClient swarms addr udp = do | |||
623 | gen :: Word16 -> (TransactionId, Word16) | 623 | gen :: Word16 -> (TransactionId, Word16) |
624 | gen cnt = (TransactionId $ S.encode cnt, cnt+1) | 624 | gen cnt = (TransactionId $ S.encode cnt, cnt+1) |
625 | 625 | ||
626 | ignoreParseError :: String -> IO () | ||
627 | ignoreParseError _ = return () | ||
628 | |||
629 | client = Client | 626 | client = Client |
630 | { clientNet = addHandler ignoreParseError (handleMessage client) net | 627 | { clientNet = addHandler (handleMessage client) net |
631 | , clientDispatcher = dispatch | 628 | , clientDispatcher = dispatch |
632 | , clientErrorReporter = ignoreErrors -- printErrors stderr | 629 | , clientErrorReporter = ignoreErrors -- printErrors stderr |
633 | , clientPending = map_var | 630 | , clientPending = map_var |
diff --git a/dht/src/Network/BitTorrent/Tracker/Transport.hs b/dht/src/Network/BitTorrent/Tracker/Transport.hs index 5d225a7e..eacf7946 100644 --- a/dht/src/Network/BitTorrent/Tracker/Transport.hs +++ b/dht/src/Network/BitTorrent/Tracker/Transport.hs | |||
@@ -94,4 +94,4 @@ implementTracker err net c = do | |||
94 | , clientAddress = const $ return localhost4 | 94 | , clientAddress = const $ return localhost4 |
95 | , clientResponseId = return | 95 | , clientResponseId = return |
96 | } | 96 | } |
97 | return $ addHandler (\err -> return ()) (handleMessage client) net | 97 | return $ addHandler (handleMessage client) net |