From 7520e893fb5e4141be53ce35b80be73d1d43ae58 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 7 Jan 2014 03:53:59 +0400 Subject: Remove logging from DHT handlers --- src/Network/BitTorrent/DHT.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs index c35b5bd6..6ce4c515 100644 --- a/src/Network/BitTorrent/DHT.hs +++ b/src/Network/BitTorrent/DHT.hs @@ -56,22 +56,18 @@ import Network.KRPC pingH :: Address ip => NodeHandler ip pingH = nodeHandler $ \ _ Ping -> do - $(logDebug) "ping received, sending pong" return Ping findNodeH :: Address ip => NodeHandler ip findNodeH = nodeHandler $ \ _ (FindNode nid) -> do - $(logDebug) "find_node received, sending closest nodes back" NodeFound <$> getClosest nid getPeersH :: Address ip => NodeHandler ip getPeersH = nodeHandler $ \ naddr (GetPeers ih) -> do - $(logDebug) "get_peers received, trying to find peers" GotPeers <$> getPeerList ih <*> grantToken naddr announceH :: Address ip => NodeHandler ip announceH = nodeHandler $ \ naddr (Announce {..}) -> do - $(logDebug) "announce received, trying to check token" checkToken naddr sessionToken case fromAddr naddr of Nothing -> throw $ KError ProtocolError "bad address" "" -- cgit v1.2.3