diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-16 23:53:11 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-16 23:53:11 +0400 |
| commit | 81fb820ce0469a7ff3677e278ed5e3b3c491f569 (patch) | |
| tree | e0c7cba820d9d89404dd50f687e74e87264c0fe1 /src/Network/BitTorrent/DHT/Query.hs | |
| parent | 3d2408eb3f680117d841e5f90e120ff018009f03 (diff) | |
Remove getNodeId function
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 |