Move ping function to Query module

1 files changed, 0 insertions, 6 deletions

diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs
index 11e1c81a..6f13cf78 100644
--- a/src/Network/BitTorrent/DHT/Session.hs
+++ b/src/Network/BitTorrent/DHT/Session.hs
@@ -55,7 +55,6 @@ module Network.BitTorrent.DHT.Session
        , queryNode
        , queryParallel
        , (<@>)
-       , ping
        ) where
 
 import Prelude hiding (ioError)
@@ -463,8 +462,3 @@ queryParallel queries = do
   where
     cleanup :: [Either QueryFailure a] -> [a]
     cleanup = mapMaybe (either (const Nothing) Just)
-
-ping :: Address ip => NodeAddr ip -> DHT ip (NodeInfo ip)
-ping addr = do
-  (nid, Ping) <- queryNode addr Ping
-  return (NodeInfo nid addr)