~ Merge kademlia package.

2 files changed, 42 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
new file mode 100644
index 00000000..2d2073f0
--- /dev/null
+++ b/src/Network/BitTorrent/DHT.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Network.BitTorrent.DHT
+       (
+       ) where
+
+import Data.ByteString
+import Network
+
+import Data.Kademlia.Routing.Table
+
+--type DHT k v = StateT (Table k v) IO
+
+--findNode :: NodeID -> DHT k v [NodeInfo]
+--findNode = undefined
\ No newline at end of file
diff --git a/src/Network/BitTorrent/DHT/Server.hs b/src/Network/BitTorrent/DHT/Server.hs
new file mode 100644
index 00000000..1f73af8a
--- /dev/null
+++ b/src/Network/BitTorrent/DHT/Server.hs
@@ -0,0 +1,28 @@
+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