diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Query.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Query.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs index 714e9559..b9f12649 100644 --- a/src/Network/BitTorrent/DHT/Query.hs +++ b/src/Network/BitTorrent/DHT/Query.hs | |||
@@ -6,7 +6,7 @@ module Network.BitTorrent.DHT.Query | |||
6 | , findNodeH | 6 | , findNodeH |
7 | , getPeersH | 7 | , getPeersH |
8 | , announceH | 8 | , announceH |
9 | , handlers | 9 | , defaultHandlers |
10 | 10 | ||
11 | -- * Search | 11 | -- * Search |
12 | -- ** Step | 12 | -- ** Step |
@@ -81,8 +81,8 @@ announceH = nodeHandler $ \ naddr @ NodeAddr {..} (Announce {..}) -> do | |||
81 | return Announced | 81 | return Announced |
82 | 82 | ||
83 | -- | Includes all query handlers. | 83 | -- | Includes all query handlers. |
84 | handlers :: Address ip => [NodeHandler ip] | 84 | defaultHandlers :: Address ip => [NodeHandler ip] |
85 | handlers = [pingH, findNodeH, getPeersH, announceH] | 85 | defaultHandlers = [pingH, findNodeH, getPeersH, announceH] |
86 | 86 | ||
87 | {----------------------------------------------------------------------- | 87 | {----------------------------------------------------------------------- |
88 | -- Search | 88 | -- Search |