diff options
Diffstat (limited to 'src/Network/BitTorrent/DHT/Query.hs')
-rw-r--r-- | src/Network/BitTorrent/DHT/Query.hs | 2 |
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 | ||
59 | pingH :: Address ip => NodeHandler ip | 59 | pingH :: Address ip => NodeHandler ip |
60 | pingH = nodeHandler $ \ _ Ping -> do | 60 | pingH = nodeHandler $ \ _ Ping -> do |