summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT/Query.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/DHT/Query.hs')
-rw-r--r--src/Network/BitTorrent/DHT/Query.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index 627bc096..724c07e6 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -54,7 +54,7 @@ nodeHandler action = handler $ \ sockAddr (Query remoteId q) -> do
54 Nothing -> throwIO BadAddress 54 Nothing -> throwIO BadAddress
55 Just naddr -> do 55 Just naddr -> do
56 insertNode (NodeInfo remoteId naddr) 56 insertNode (NodeInfo remoteId naddr)
57 Response <$> getNodeId <*> action naddr q 57 Response <$> asks thisNodeId <*> action naddr q
58 58
59pingH :: Address ip => NodeHandler ip 59pingH :: Address ip => NodeHandler ip
60pingH = nodeHandler $ \ _ Ping -> do 60pingH = nodeHandler $ \ _ Ping -> do