From 644c06e66fd311cecabbc1cb08c53b4a1d350e27 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 19 Feb 2014 04:14:50 +0400
Subject: Stop DHT node at client cleanup

---
 src/Network/BitTorrent/DHT/Query.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Network/BitTorrent/DHT/Query.hs')

diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index 07fb80c2..714e9559 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -80,6 +80,7 @@ announceH = nodeHandler $ \ naddr @ NodeAddr {..} (Announce {..}) -> do
   insertPeer topic peerAddr
   return Announced
 
+-- | Includes all query handlers.
 handlers :: Address ip => [NodeHandler ip]
 handlers = [pingH, findNodeH, getPeersH, announceH]
 
-- 
cgit v1.2.3