From 19efaca1db008a58a1c1b65395465550ec0b72b6 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Tue, 9 Jul 2013 00:09:20 +0400
Subject: ~ Move DHT to single module.

---
 src/Network/BitTorrent/DHT/Server.hs | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 src/Network/BitTorrent/DHT/Server.hs

(limited to 'src/Network/BitTorrent/DHT/Server.hs')

diff --git a/src/Network/BitTorrent/DHT/Server.hs b/src/Network/BitTorrent/DHT/Server.hs
deleted file mode 100644
index 1f73af8a..00000000
--- a/src/Network/BitTorrent/DHT/Server.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module Network.BitTorrent.DHT.Server
-       (
-       ) where
-
-import Control.Monad.Trans.State
-import Data.Kademlia.Routing.Table
-import Data.Kademlia.Common
-
-
-
-type DHT k v = StateT (Table NodeInfo InfoHash) IO
-
-ping :: NodeID -> DHT k v NodeID
-ping nid = do
---  update nid
---  gets nodeID
-  undefined
-
-findNode :: NodeID -> DHT k v [NodeInfo]
-findNode = undefined
-
--- | Bittorrent /get_peers/ RPC is special case of the /find_value/.
-findValue :: NodeID -> DHT k v (Either [NodeID] v)
-findValue = undefined
-
--- | Bittorrent /announce_peer/ RPC is special case of the /store/.
-store :: NodeID -> (k, v) -> DHT k v NodeID
-store = undefined
\ No newline at end of file
-- 
cgit v1.2.3