Remove logging from DHT handlers

1 files changed, 0 insertions, 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" ""