summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/DHT
diff options
context:
space:
mode:
authorSam T <pxqr.sta@gmail.com>2013-07-09 00:09:20 +0400
committerSam T <pxqr.sta@gmail.com>2013-07-09 00:09:20 +0400
commit19efaca1db008a58a1c1b65395465550ec0b72b6 (patch)
tree7b99c38e0af6b894d2a84727a1cba6a838e01e02 /src/Network/BitTorrent/DHT
parentf7245e3cc7c5729b401bbbe3438a9f5b9dda211b (diff)
~ Move DHT to single module.
Diffstat (limited to 'src/Network/BitTorrent/DHT')
-rw-r--r--src/Network/BitTorrent/DHT/Server.hs28
1 files changed, 0 insertions, 28 deletions
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 @@
1module Network.BitTorrent.DHT.Server
2 (
3 ) where
4
5import Control.Monad.Trans.State
6import Data.Kademlia.Routing.Table
7import Data.Kademlia.Common
8
9
10
11type DHT k v = StateT (Table NodeInfo InfoHash) IO
12
13ping :: NodeID -> DHT k v NodeID
14ping nid = do
15-- update nid
16-- gets nodeID
17 undefined
18
19findNode :: NodeID -> DHT k v [NodeInfo]
20findNode = undefined
21
22-- | Bittorrent /get_peers/ RPC is special case of the /find_value/.
23findValue :: NodeID -> DHT k v (Either [NodeID] v)
24findValue = undefined
25
26-- | Bittorrent /announce_peer/ RPC is special case of the /store/.
27store :: NodeID -> (k, v) -> DHT k v NodeID
28store = undefined \ No newline at end of file